premiere cellule vide en colonne a ! alors copy colone b

[avoriaz]

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

 

[CBernardT]

Bonjour Avoriaz

Un essai de code :

Sub Recapitulation()
Dim L1 As Integer, L2 As Integer

Application.ScreenUpdating = False ' Mise à jour de l'écran désactivée
L1 = Range("A10000").End(xlUp).Row 'Dernière ligne de la colonne A
L2 = Range("B10000").End(xlUp).Row 'Dernière ligne de la colonne B
Range("B1:B" & L2).Copy 'Copie de la plage utilisée en colonne B
Range("A" & L1).Offset(1, 0).PasteSpecial xlPasteValues 'Coller après la dernière ligne de la colonne A
Application.CutCopyMode = False ' Définit le mode
Application.ScreenUpdating = True ' Mise à jour de l'écran activée
End Sub

Cordialement

CbernardT

 

[avoriaz]

re le forum

ca marche impeccable merci pour ton aide

avo