Aide macro excel

[olivier147]

Bonjour à tous,

Je suis débutant en VBA sous excel

J'ai un tableau avec une multitude de lignes. Je voudrai que la macro colorie chaque cellules de la colonne "C" qui contient le mot "MAISON"
J'ai essayé la macro ci-dessous mais ça ne fonctionne pas...
Pouvez-vous m'apporter votre aide

Merci d'avance

Sub macrocii()
Dim derlg As Integer, plage As Range, cel As Range

derlg = Range("C" & Rows.Count).End(xlUp).Row
Set plage = Range("C2:C" & derlg)
For Each cel In plage
If UCase(Range("C2").Value) & " " Like "*MAISON*" Then
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
End If
Next cel

End Sub
-----

[Stan_94]

Bonjour,
si c'est pour colorer les cellules, pas besoin de macro, la mise en forme conditionnelle suffit.
Si c'est pour un exercice, vérifie déja la 2ème ligne dans ton extrait de code :

For Each cel In plage
 If UCase(Range("C2").Value) & " " Like "*MAISON*" Then

Y a rien qui te choques ?


Il y aura aussi à changer "With Selection.Interior" ...

[olivier147]

Bonjour Stan_94

je débute vraiment, j'ai pioché ici et là des bouts de codes...donc non je ne vois pas ^^
Après je ne le fais pas avec une mise en forme car ce n'est qu'une bride du code final

[cherbe]

derlg = Range("C" & Rows.Count).End(xlUp).Row

essaie

derlg = Range("C" & Rows.Count.End(xlUp).Row)

Set plage = Range("C2:C" & derlg)

écrit comme ça, tu double la lettre C ce qui donne C2:CC10 (si 10 lignes) donc ça ne peut pas marcher
mets plutôt :

Set plage = Range("C2:" & derlg)

Je m'arrête là !

[A voir en vidéo sur Futura]

[Stan_94]

Faut bien débuter un jour, effectivement !
N'empeche la ligne For each cel permet effectivmeent de parcourir toutes les cellules d'une plage sélectionnée,
mais dans la ligne suivante le test IF porte toujours sur la cellule C2... Donc forcement, ça va marcher moins bien

Avec cette petite info et celle données par charbe, tu devrais t'en sortir, non ?

(Il faut vraiment que tu arrives à comprendre le code que tu écris et pas simplement recopier les solutions qu'on pourrait te donner, sinon tu ne progresseras pas)

[cherbe]

(Il faut vraiment que tu arrives à comprendre le code que tu écris et pas simplement recopier les solutions qu'on pourrait te donner, sinon tu ne progresseras pas)

2 remarques au sujet de l'initiateur de ce fil de discussion :
- 1 il n'est pas revenu depuis son dernier post donc pas très motivé apparemment ;
- 2 j'ai l'impression qu'il "picore" des bout de code sur le web sans vraiment comprendre comment ça marche.

Quelque soit le langage de programmation, un minimum de lecture de cours est indispensable. Il faut à minima comprendre la logique de la syntaxe et le fonctionnement des boucles, conditions et variables.
Étant persuadé qu'il n'avait pas fait cet effort minimal, je me suis limité à corriger seulement 2 lignes de son code.