A
avoriaz
Guest
salut le forum,
je voudrais realiser ceci :
je recherche la derniere celulle avec une valeur de la colonne a, et je colle la colonne b a la suite
j'ai commencé avec ce code
Dim Ligne As Long
Columns("B:B").Select
Selection.Copy
For Ligne = 1 To Range("a1").End(xlDown).Row ' je recpere la derniere celulle et je commence a partir de ligne 1
Next Ligne
ActiveSheet.Paste ' enfin il le fais pas il me demande de selectionner l'endroit
End Sub
je voudrais realiser ceci :
je recherche la derniere celulle avec une valeur de la colonne a, et je colle la colonne b a la suite
j'ai commencé avec ce code
Dim Ligne As Long
Columns("B:B").Select
Selection.Copy
For Ligne = 1 To Range("a1").End(xlDown).Row ' je recpere la derniere celulle et je commence a partir de ligne 1
Next Ligne
ActiveSheet.Paste ' enfin il le fais pas il me demande de selectionner l'endroit
End Sub