XL 2016 Compilation de données

croco40

XLDnaute Occasionnel
Bonjour à tous,
Merci pour tous vos posts que j'essaie de consulter le plus souvent possible.
Après plusierus recherches, je n'arrive pas a trouver ce que je veux.
Sur le fichier joint, il y a en haut ce que j'ai et en bas, ce que je veux .
Voici le code que j'ai tapé :

For i = 2 To 11
n = 1
var1 = Cells(i, 1).Value
If var1 <> "" Then


Do While Cells(i + n, 1) = var1
n = n + 1
If Cells(i + 1, 1).Value = var1 Then
var3 = Cells(i, 2).Value & Cells(i + n, 2).Value
n = n + 1
End If
Loop
n = n + 1
Loop Until n = 10

End If

Next i

Vous vous en doutez, ca ne fonctionne pas.
J'ai essayé plusieurs codes, mais je n'arrive pas à utiliser While wend ou do while loop.

Je veux lui dire, dans la colonne A, tant que la ref de la ligne suivante est égale a la ligne actuelle, la variable est = a ce qu'il y a dans la colonne 2 de chaque ligne.
En d'autre termes, je voudrais pour chaque référence, tous les prenoms associé.
Par avance merci
Suerte Croco
 

Pièces jointes

  • Classeur1.xlsx
    12.4 KB · Affichages: 3

Discussions similaires

Réponses
5
Affichages
354

Statistiques des forums

Discussions
313 274
Messages
2 096 754
Membres
106 739
dernier inscrit
jcdu16