Re:LoTo National
Super les gars,
ca fait un peu travailler les machins pas vrai, et c'est le principale...
pour ma par j'avais trouvé ceci mais tous les gouts sont dans la nature...
'Une boucle For Each dans une boucle For To
For ligne = 6 To 9
compteur = 0
For Each c In Worksheets('feuil1').Range('tirage')
For colonne = 2 To 7
If Cells(ligne, colonne) = c.Value Then
compteur = compteur + 1
Exit For
End If
Next colonne
Next c
Worksheets(1).Cells(ligne, 1).Value = compteur
Next ligne
____________________________________________
ou ceci: 2 boucle For Each imbriquées
ligne = 6
colonne = 2
compteur = 0
For i = 1 To 4
For Each d In Worksheets('feuil1').Range(Cells(ligne, colonne), (Cells(ligne, colonne + 5)))
For Each c In Worksheets('feuil1').Range('tirage')
If c.Value = d.Value Then
compteur = compteur + 1
'Exit For
End If
Next c
Worksheets(1).Cells(ligne, 1).Value = compteur
Next d
ligne = ligne + 1
compteur = 0
Next i
------------------
Je sais les boucles For...To fonctionne très bien mais dans VBA il y a d'autres fonctions très interressantes pour optimizer la programmation et je sais aussi que le temps presse.
Encore merci d'avoir attiver ce sujet sans grand interret (sans pour le moins captivant) et je vous pris de passer une très bonne soirée à vous tous....