Bonsoir à tous,
J'ai un probleme avec une double boucle :
Dim celle As Range
Dim ch4 As Range
For Each celle In Range("b3:b6") 'remplir les blancs poule1
If celle.Value = "" Or InStr(celle.Value, "BLANC N°") <> 0 Then
For Each ch4 In Range("f2:f7")
If ch4.Value = "4" Or ch4.Value = "3" Then
ch4.Offset(0, 1).Value = 0
ch4.Offset(0, 3).Value = 0
ch4.Offset(0, 5).Value = 0
End If
Next ch4
Next celle
Le but est que si l'une des cellules b3:b6 est vide ou contient BLANC N° 1,2 ou 3 et en 3eme position dans le groupe de cellule, alors les cellules à droite de la cellule contenant un 3 dans le groupe F2:F7 se remplisse d'un zéro. mais si il est en 4 eme position il remplit les cellules de droite suivant le 4 .
J'espere etre compris.
Voici le fichier modele
J'ai un probleme avec une double boucle :
Dim celle As Range
Dim ch4 As Range
For Each celle In Range("b3:b6") 'remplir les blancs poule1
If celle.Value = "" Or InStr(celle.Value, "BLANC N°") <> 0 Then
For Each ch4 In Range("f2:f7")
If ch4.Value = "4" Or ch4.Value = "3" Then
ch4.Offset(0, 1).Value = 0
ch4.Offset(0, 3).Value = 0
ch4.Offset(0, 5).Value = 0
End If
Next ch4
Next celle
Le but est que si l'une des cellules b3:b6 est vide ou contient BLANC N° 1,2 ou 3 et en 3eme position dans le groupe de cellule, alors les cellules à droite de la cellule contenant un 3 dans le groupe F2:F7 se remplisse d'un zéro. mais si il est en 4 eme position il remplit les cellules de droite suivant le 4 .
J'espere etre compris.
Voici le fichier modele