verifiier la coleur des cellue dans une colone sur plusieur feuille

[wrndid]

bonour je voudrais verifier la couleur de la colone b de la feuille active en vba mai ca marche pâs
fro i =1 to 50
If ActiveSheet.Cells(2, i).Interior.ColorIndex <> 28 Then
MsgBox "Erreur", vbOKOnly + vbInformation
End
end if
next i
merci

 

[Hellboy]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

Sub test()
    For i = 1 To 50
     If Not ActiveSheet.Cells(i, 2).Interior.ColorIndex = -4142 Then
        MsgBox "Erreur", vbOKOnly + vbInformation
     End If
    Next i
End Sub

cells(row,column) = cells(i,2) 2 pour B ;-)

 

[wrndid]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

ja tester marche pas

 

[wrndid]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

ja mis le fichier en ligne
la formule
If Not ActiveSheet.Cells(20, 2).Interior.ColorIndex = 4142 Then
MsgBox "Erreur", vbOKOnly + vbInformation
End
si colone b celules samedi ou dimanche coleur bleu erreur les auter ca ecrit
merci

 

[Hellboy]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

Bonjour,

J'ai de la difficulté à saisir ce que tu explique.
En fait première question avant qu'on arrive à ça marche pas.
1- Qu'est-ce que tu essaie d'accomplir ou de savoir ?

Et ce code-ci fonctionne très bien de mon côté... mais toute chose étant relative....

Public Sub TestColor()

For i = 1 To 50
      LaCouleur = ActiveSheet.Cells(i, 2).Interior.ColorIndex
      If Not LaCouleur = 28 Then
         MsgBox "Erreur ----> " & LaCouleur, vbOKOnly + vbInformation
      End If
Next i
 
End Sub

 

[tototiti2008]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

Bonjour à tous,

@wrndid : pourrait-on avoir une explication concernant ta façon de taper tes messages ?
Est-ce que les 3 fautes de frappes par mot sont dues à une raison qui est explicable ?
C'est d'autant plus embêtant quand tu postes du code VBA...

 

[wrndid]

Re : verifiier la coleur des cellue dans une colone sur plusieur feuille

super merci hellboy