Bonjour
Compter lignes vides pour écarts
Voir macro ci dessous
soit les colonnes :
A1:F1F=N_1 N_2 N_3 N_4 N_5 N_6
des combinaisons sur 100 lines
>>>>
h1:au1=les numéros 1 à 20 en sutant une colonne
Je voudrais savoir s'il y a un moyen plus rapide de faire
apparaitre les chiffres sortis que la macro ci dessous.
Et aussi de comter les celludes vides de puis sa dernière sortie et les mettre dans la colonne juste à côté du chiffre sorti
sur la même ligne pour connaitre son écart
exemple le 1 est sorti a la ligne 4 puis a la ligne 5 puis 10
donc
ecart 2 (2lignes vides) a la ligne 4
ecart 0 ( 0 lignes vides) a la ligne 5
ecart 4 (4 lignes vides) a la ligne 10
merci
Sub test_Ecart()
Application.ScreenUpdating = False
For lig = 2 To 100
For col = 1 To 5
For lig_2 = 2 To 100
For col_2 = 8 To 45 Step 2
If Cells(lig, col).Value = Cells(1, col_2).Value Then
Cells(lig, col_2).Value = Cells(lig, col).Value
End If
Next
Next
Next
Next
Application.ScreenUpdating = False
End Sub
Compter lignes vides pour écarts
Voir macro ci dessous
soit les colonnes :
A1:F1F=N_1 N_2 N_3 N_4 N_5 N_6
des combinaisons sur 100 lines
>>>>
h1:au1=les numéros 1 à 20 en sutant une colonne
Je voudrais savoir s'il y a un moyen plus rapide de faire
apparaitre les chiffres sortis que la macro ci dessous.
Et aussi de comter les celludes vides de puis sa dernière sortie et les mettre dans la colonne juste à côté du chiffre sorti
sur la même ligne pour connaitre son écart
exemple le 1 est sorti a la ligne 4 puis a la ligne 5 puis 10
donc
ecart 2 (2lignes vides) a la ligne 4
ecart 0 ( 0 lignes vides) a la ligne 5
ecart 4 (4 lignes vides) a la ligne 10
merci
Sub test_Ecart()
Application.ScreenUpdating = False
For lig = 2 To 100
For col = 1 To 5
For lig_2 = 2 To 100
For col_2 = 8 To 45 Step 2
If Cells(lig, col).Value = Cells(1, col_2).Value Then
Cells(lig, col_2).Value = Cells(lig, col).Value
End If
Next
Next
Next
Next
Application.ScreenUpdating = False
End Sub