Sauvegarder données VBA

Bonjour,

J'aimerai pouvoir croiser deux colonnes en ligne comme sur l'image

par la suite les données vont évoluer et il faudra refaire la manip et les nouvelles données s'ajouterons à droite par exemple

Merci de votre aide

Salut Page,

Je te laisse tester le fichier ci-joint, et tu reviens vers nous ?

En gros, tu dois sélectionner la plage à lister en une seule colonne

Et tu dois sélectionner ta cellule de destination où il y aura la liste

Restant à dispo

Ca fonctionne merci !

Étant donné que les cellules a lister sont toujours au même endroit je vais automatiser tout ça si jamais je revient vers vous

Bon bah super !

pagesalex a écrit :

si jamais je revient vers vous

Yep! Yep! Hésite surtout pas ^^

Re,

Je ne trouve plus le code pour récupérer la derniere colonne vide pour y stocker mes données. J'essaie ça

Set Destination = Cells(5, Columns.Count).End(xlToLeft).Column

mais ça ne fonctionne pas

C'est bon j'ai trouvé merci pour votre aide

Le code

dercol = Cells(5, Cells.Columns.Count).End(xlToLeft).Column + 1
Set Destination = Cells(5, dercol)

Bonjour

a voir peux être plus simple

Sub Test()
L1 = 2
    For L = 2 To Cells(Rows.Count, 2).End(xlUp).Row
          Cells(L1, 7).Value = Cells(L, 2).Value
        L1 = L1 + 1
          Cells(L1, 7).Value = Cells(L, 3).Value
        L1 = L1 + 1
    Next L
End Sub

A+

Maurice