Colorier des celulles d'une colonnes VBA

Bonjour,

Je suis étudiant et j'ai un projet à faire mais je bloque sur la première étape de mon projet qui est de mettre en valeur les erreur.

Je voudrai sous vba faire une macro qui est capable de colorier chaque cellule de ma colonne où le mot Erreur apparait.

j'ai déjà commencé mais je bloque dans mon code qui n'est pas correct

[code][/Sub coloriercolones()

Dim cellule As Integer

For cellule = 1 To Range("B" & Rows.Count).End(xlUp).Row

If UCase(Cells(cellule, 2).Value) & " " Like "*ERREUR *" Then

Cells(cellule, 2).Interior.ColorIndex = 3

Else: Cells(cellule, 2).Interior.ColorIndex = xlNone

Next cellule

MsgBox "Veuillez verifiez vos saisies"

End If

End Sub

code]

Pourriez-vous m'aidez ?

Bonjour,

Comme ceci

Sub coloriercolones()
  Dim cellule As Integer, compteur As Integer
    compteur = 0
    For cellule = 1 To Range("B" & Rows.Count).End(xlUp).Row
      If UCase(Cells(cellule, 2).Value) & " " Like "*ERREUR *" Then
        Cells(cellule, 2).Interior.ColorIndex = 3
        compteur = compteur + 1
      Else
        Cells(cellule, 2).Interior.ColorIndex = xlNone
      End If
  Next cellule
  If compteur > 0 Then MsgBox "Veuillez verifiez vos saisies"
End Sub

Merci Beaucoup

Regardes, car j'ai rajouté une ligne ou deux pour ne pas afficher le message si il n'y a pas d'erreur

tu peux m'expliquer un peu ton code car je n'arrive pas à colorier les cellules sur un autre code par exemple dans celui ci : je voudrais colorier les cellules où il manque des parenthèses

Sub parenthese()
 Dim cellule As Integer, compteur As Integer
 Dim s As String
    compteur = 0
    For cellule = 1 To Range("B" & Rows.Count).End(xlUp).Row
     If UBound(Split(Cells(cellule, 2).Value, "(")) <> UBound(Split(Cells(cellule, 2).Value, ")")) Then s = s & " " & Cells(cellule, 2).Address
        Cells(cellule, 2).Interior.ColorIndex = 5
        compteur = compteur + 1

    Next cellule

    MsgBox "Les cellules ayant des parenthèses manquantes sont : " & s

End Sub

Re,

Comme ceci

Sub parenthese()
 Dim cellule As Integer
 Dim s As String
  For cellule = 1 To Range("B" & Rows.Count).End(xlUp).Row
    If InStr(Cells(cellule, 2).Value, "(") > 0 Or InStr(Cells(cellule, 2).Value, ")") > 0 Then
      s = s & " " & Cells(cellule, 2).Address
      Cells(cellule, 2).Interior.ColorIndex = 5
    End If
  Next cellule
  MsgBox "Les cellules ayant des parenthèses manquantes sont : " & s
End Sub

Tu m'as mal compris, je voulais colorier que les cellules où il manque les parenthèses, et non pas les cellules où il y a des parenthèses

Si tu fais marcher un peu tes neurones, tu remplaces les > par =

ou je place un Xor ^^, merci de ton aide