Dupliquer cellules sur les même colonnes

Bonjour,

Je recherche une macro pouvant me permettre de dupliquer des cellules dans cellules vides sur deux colonnes, là ce serai la colonne A et B, tant qu'elles ne rencontrent pas une donnée différente.

J'espère m'être bien exprimée, sur le forum je n'ai trouvé que pour une colonne cela fonctionne mais pour la colonne b ma formule n'est pas correcte. Je voulais savoir aussi si dans ce cas il valait mieux faire la première colonne et ensuite la deuxième ?

Merci de votre aide

KATYJANE

Bonjour katyjane, bonjour le forum,

Une proposition VBA :

Sub Macro1()
Dim DL As Long 'déclare la variable DL (Dernière Ligne)
Dim I As Long 'déclare la variable I (Incrément)
Dim VA As String 'déclare la variable VA (Valeur colonne A)
Dim VB As String 'déclare la variable VB (Valeur colonne B)

Application.ScreenUpdating = False 'masque les rafraîchissements d'écran
DL = Cells(Application.Rows.Count, "C").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne C
For I = 5 To DL 'boucle sur les lignes 5 à DL
    If Cells(I, "A").Value <> "" Then 'condition : si la cellule de la ligne en colonne "A" n'est pas vide
        VA = Cells(I, "A"): VB = Cells(I, "B") 'définit les valeurs VA et VB
    Else 'sinon
        Cells(I, "A") = VA: Cells(I, "B") = VB 'renvoie VA dans la cellule en colonne A et VB dans la cellule en colonne B
    End If 'fin de la condition
Next I 'prochaine ligne de la boucle
Application.ScreenUpdating = True 'affiche les rafraîchissements d'écran
End Sub

Génial ça fonctionne merci beaucoup !

Rechercher des sujets similaires à "dupliquer meme colonnes"