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 ?
Double post désolé :(
Bonjour,
Pourquoi une macro ? Une MFC répondra fort bien à la question !
NB- Ecris ton code de façon plus structurée, en qualifiant tes expressions, tu y gagneras en fiabilité et tu éviteras des surprises...
Indente-le, il se lira plus vite... Et sur le forum, utilise les balises Code pour le citer...
Cordialement.
MFerrand a écrit :Bonjour,
Pourquoi une macro ? Une MFC répondra fort bien à la question !
NB- Ecris ton code de façon plus structurée, en qualifiant tes expressions, tu y gagneras en fiabilité et tu éviteras des surprises...
Indente-le, il se lira plus vite... Et sur le forum, utilise les balises Code pour le citer...
Cordialement.
une macro car c'est mon projet de travailler sous VBA
J'ai mal utilisé la balise du forum, voilà le résultat :
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 SubSi pour un exercice VBA, l'objectif devrait être de faire un code propre, bien indenté et ne laissant rien au hasard...
Le problème a été résolu, merci pour avoir pris le temps de me répondre