XL 2016 Double boucles

Laguich · 27 Janvier 2017

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

Lone-wolf · 27 Janvier 2017

Bonsoir Laguich

Pourquoi cacher 2 colonnes qui n'ont pas de données, ensuite en ligne 2 et à mon avis c'est l'entête, pourquoi avoir mis des 0 1 etc?? 🙄

Supprime ces 2 colonnes vides, met des entêtes corrects, et ensuite

VB:

Private Sub CommandButton1_Click()
Dim celle As Range, ch4 As Range

  For Each celle In Range("b3:b7")  'remplir les blancs poule1

  For Each ch4 In Range("f3:f7")
  If celle Like "*BLANC N°" Or ch4 Like "*4*" Or ch4 Like "*3*" Then
  ch4.Offset(0, 1).Value = 0
  ch4.Offset(0, 2).Value = 0
  ch4.Offset(0, 3).Value = 0
  Else
  ch4.Offset(0, 1).Value = ""
  ch4.Offset(0, 2).Value = ""
  ch4.Offset(0, 3).Value = ""
  End If
  Next ch4
  Next celle
End Sub

Laguich · 27 Janvier 2017

Merci pour ta réponse, je n'ai pas encore essayé on code mais je pense qu'il ne va pas changer grand chose.
Pour les colonnes cachées, elles me sont utiles dans le fichier origine. Et dans ta formule, les vide n'apparaissent pas. Pour préciser ma demande le joueur 3 (ici blanc N° 1) , aura perdu contre le joueur 1, 2 donc la ou il apparait dans la colonne F, il faut que les cases des scores passent à 0.
Je teste ton code et te tiens au jus..

donc j'ai tester et malheureusement ton résultat est le même que le mien. Si tu as juste une case vide, les cellules ccorrespondantes au 3 et 4 se remplisse de 0 alors que juste la 4 devrait se remplir.
Merci qd même.

XL 2016 Double boucles

Laguich

XLDnaute Junior

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Laguich

XLDnaute Junior

Discussions similaires

XL 2016 Double boucles

Laguich

XLDnaute Junior

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Laguich

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency