Menu

Selectionner toute une ligne

Messages postés
1
Date d'inscription
lundi 7 janvier 2019
Dernière intervention
7 janvier 2019
-
Bonjour et bonne année,

je tente de créer une application qui va enregistrer les données venant d'un userform sur une feuille Excel, copier toute la dernière ligne de l'enregistrement (de à xlright) puis la coller dans une autre feuille.
mon code:
Dim derligne As Integer
Dim LastRow As Range

Worksheets("Sheet4").Activate

Set LastRow = Range("A1048576").End(xlUp)
derligne = Range("A48").End(xlDown).Count
   
   Range("A48").End(xlDown).Offset(1, 0).Select
  
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
ActiveCell.Offset(0, 1).Value = cboTasks11.Value
ActiveCell.Offset(0, 2).Value = txtdetails11.Value
ActiveCell.Offset(0, 3).Value = LDDate1.DateString

LastRow.Offset(1, 0).Activate

If LastRow.Offset(1, 0).Value <> "" Then
   
   Rows(derligne).Select    <c'est cette ligne qui pose blême>
   Selection.Copy 
       
   Worksheets("Sheet3").Activate
   Selection.PasteSpecial

   ActiveCell.Offset(1, 0).Select


le blême, Il y a beaucoup de range vide avant ma derligne (range vide mise à dessein), donc ma commande "Row" ne sélectionne pas ma vrai dernière ligne.
qlq1 pourrait me sortir de cette m**** svp??? .

Configuration: Windows / Internet Explorer 11.0
Afficher la suite 

Votre réponse

1 réponse

Messages postés
13889
Date d'inscription
dimanche 25 novembre 2007
Dernière intervention
15 janvier 2019
1283
0
Merci
Bonjour,
derniere cellule non vide d'une colonne:
derlig = Range("A" & Rows.Count).End(xlUp).Row


ca pas bon, erreur 1004:
Range("A48").End(xlDown).Offset(1, 0).Select
Commenter la réponse de f894009