For ligne = 6 To 17 colonne = 8 + 19 + (20 * decalagecolonne) If Cells(ligne, colonne).ColorIndex = 33 Then x = x + 1 End If next ligne
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe dois faire quoi ?
Jdois ecrire ou ?
relative à des connaissances plus que basiques de chez basique
Couleur = Cells(ligne, colonne).Interior.ColorIndex
Quand je fais un compilage pas à pas