Oui évidemment par principes ou par restrictions d'entreprise beaucoup n'accèdent pas aux classeurs postés avec code …
Effectivement avec le dernier classeur joint le code du post #9 fonctionne bien.
Mon code en seulement 9 lignes et 2 variables ayant été conçu par rapport à la présentation initiale,
Louis, il suffit de le tester avec le classeur dont tu as affiché une capture de la feuille :
1 2 3 4 5 6 7 8 9
| With [A1].CurrentRegion.Rows
[H2].Resize(.Count - 1).Formula = "=E2"
For R& = 2 To .Count
If .Cells(R, 2).Value > "" Then
V = Application.Match(.Cells(R, 2).Value, .Columns(5), 0)
If IsNumeric(V) Then Cells(V, 8).Formula = Cells(V, 8).Formula & "&"",""&H" & R
End If
Next
End With |
Ce code prouvant « Penser Excel Avant VBA » réduit la difficulté de programmation, évitant souvent les usines à gaz !
Le résultat étant affiché en colonne H, j'y ai évidemment laissé les formules afin de visualiser la simplicité de la logique …
Ce même type de logique a été menée avec succès cet été un jour de pluie par un futur collégien, pas un génie pourtant !
Il suffit d'une ligne de code supplémentaire pour remplacer les formules par le résultat …
___________________________________________________________________________________________________________
Merci de cliquer sur
en bas à droite de chaque message ayant aidé …
Partager