• Initiateur de la discussion Initiateur de la discussion imhotep
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

I

imhotep

Guest
salut à tous,

petit probleme:

comment d'un simple clic, sur un bouton macro, comparer une grille de loto avec la sortie nationale du loto?

le résultat se trouverait dans la colonne A6:A9
du fichier joint

pour corser le probleme:

le nombre de lignes de codes doivent etre inférieures à 14!!!

bonsoir.......... [file name=essai_loto_nationale.zip size=6897]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/essai_loto_nationale.zip[/file]
 

Pièces jointes

Re Impotep et bonsoir AeroPlanneur,

Pour ouvrir l'Editeur Visual Basic, tu dois faire Alt F11, puis double cliquer sur le module appelé 'Test'

Pour info, la macro :

Sub TestLoto()
Range('A5:A9').ClearContents
For i = 6 To 9
For j = 2 To 7
For k = 2 To 7
If Cells(i, j) = Cells(4, k) Then N = N + 1
Next k
Next j
Cells(i, 1) = N: N = 0
Next i
If Application.CountIf(Range('A6:A9'), 6) > 0 Then Range('A5') = 'Gagné'
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 18/05/2006 22:53
 
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....
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

J
Réponses
0
Affichages
2 K
J
C
Réponses
8
Affichages
2 K
carlos
C
S
Réponses
3
Affichages
1 K
E
  • Question Question
Réponses
0
Affichages
931
etudiant72
E
P
  • Question Question
Réponses
6
Affichages
4 K
L
  • Question Question
Réponses
1
Affichages
1 K
P
Réponses
9
Affichages
2 K
philest
P
S
  • Question Question
Réponses
0
Affichages
2 K
Sébastien
S
D
  • Question Question
Réponses
5
Affichages
1 K
E
  • Question Question
Réponses
5
Affichages
1 K
J
  • Question Question
Réponses
3
Affichages
1 K
jhonny
J
Réponses
2
Affichages
1 K
L
Réponses
0
Affichages
795
L
Réponses
4
Affichages
1 K
anber
A
J
  • Question Question
Réponses
2
Affichages
860
Jean-Luc
J
E
  • Question Question
Réponses
5
Affichages
1 K
ETUDIANT72
E
V
Réponses
5
Affichages
3 K
X
Réponses
14
Affichages
2 K
XGuarden
X
Retour