Salut à tous,
je viens d'écrire ce petit programme et je ne comprends pas pourquoi j'ai une erreur
alors; sur la feuille 'resultats j'ai une première ligne avec les en-têtes de lignes
la première colonne contient les dates, raison pour laquelle je commence plus loin à lire en 2e colonne...
Ce doit être une erreur stupide, comme toutes les erreurs, mais je ne comprends pas.
Merci d'avance pour votre aide que j'espère formidable
non, ne pas frapper
Sub statistiques_paires()
'table contenant le nombre des paires
Dim paire(42, 42) As Integer
' col1: compteur en colonne ran1: compteur en rangée
Dim col1, ran1 As Integer
'val1: valeur 1ere cellule, val2: valeur 2e cellule
Dim val1, val2 As Integer
Dim col2 As Integer
Dim lignelue, lignemax As Long
For col1 = 1 To 42
For ran1 = 1 To 42
paire(col1, ran1) = 0
If col1 = ran1 Then paire(col1, ran1) = -1
Next ran1
Next col1
Sheets('resultats').Select
lignemax = Application.Match(999, Sheets('resultats').Range('B:B')) ' on recherche le nombre total de tirages
lignelue = 2 'on commence à lire à la 2e ligne de la page 'resultats' la ligne 1 étant l'en-tête de colonnes
Do
For col1 = 2 To 6 'on prend la première case en colonne 2 et ainsi de suite
For col2 = col1 + 1 To 7 'on prend la 2e case en colonne3
paire(Sheets('resultats').Cells(col1, lignelue).Value, Sheets('resultats').Cells(col2, lignelue).Value) = paire(Sheets('resultats').Cells(col1, lignelue).Value, Sheets('resultats').Cells(col2, lignelue).Value) + 1 'on incrémente le nombre de tirage de la paire de 1
Next col2 'et on recommence
Next col1 'et on recommence encore et encore
lignelue = lignelue + 1 'on passe à la ligne suivante
Loop While lignelue < lignemax 'on lit tant que y'a à lire...
Sheets('stats').Select 'on ouvre la page 'stats'
For col1 = 1 To 42
For ran1 = 1 To 42
Cells(col1, ran1).Value = paire(col1, ran1) 'on écrit dans chaque cellule la valeur adéquate (nombre de fois que la paire est sortie)
Next ran1
Next col1
End Sub