VBA : établir une boucle et copier-coller

bonjour,

peux-tu montrer ton code, en veillant à suivre ces conseils: https://codes-sources.commentcamarche.net/faq/11288-poster-un-extrait-de-code

Bonjour,

Pour le moment, ce n'est pas complet car je ne connais pas toutes les commandes d'instructions. Malgré des heures de recherches je n'arrive pas à trouver quelque chose me mettant sur la voie.

En espérant que j'ai bien suivi les conseils de votre lien.

Sub Mergecolumns()

Dim wk_Futurismo As Workbook
Dim ws_Sheet1 As Worksheet
Dim lstrw As Long
Dim C1 As Integer
Dim C2 As Integer

'Définir les variables'
Set wk_Futurismo = Workbook
Set ws_Sheet1 = Worksheet(1)

'Démarrer la boucle'
For i = 2 To lstrw

'Condition si An=An+1, alors'
If C1 = C2 Then

    'Coller N°ID à la suite du premier'
    
    
    Else
    
        'Lecture de la dernière ligne et coller à la suite'
        lstrw = ws_Sheet1.Cells(Rows.Count, 1).End(xlUp).Row
        Past_line = lstrw + 1

        'Coller les valeurs sur la ligne suivante'
        ws_Sheet1.Cells(Past_line, 1) = ws_Sheet1.Cells(i, 1)
        ws_Sheet1.Cells(Past_line, 2) = ws_Sheet1.Cells(i, 2)
       

End Sub

Bonjour,

Fichier exemple avec votre image.

 https://www.cjoint.com/c/MFwislEw5Wg

Un dictionnaire pour liste sans doublon et recherche en fonction de cette liste

Pour les colonnes, z'etes sur d'ecrire le resultat dans les memes colonnes?

Re,

Fichier avec ecriture colonnes AB

 https://www.cjoint.com/c/MFwoQra5l0g

Faut pas vous rater car vous n'aurez qu'un seul essai, les donnees d'origine AB n'existeront plus