Macro avec couleur
juju
-
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30426 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je suis actuellement en stage et je cherche a faire un tableau automatique mais j'ai un problème. Je cherche a avoir un mot lorsque dans mes cellule j'ai la couleur orange et rouge mais j'ai des erreur qui fait que cela ne fonctionne pas. Voici le code, je sais qu'il manque un truc mais je sais pas quoi mettre.
Dim delav As Range
With sheets("J-5").Range("B3:P3").Select
If delav.Font.ColorIndex = 45 Then Range("B10") = "PR Lav"
If delav.Font.ColorIndex = 3 Then Range("B10") = "PR Lav"
End With
Je suis actuellement en stage et je cherche a faire un tableau automatique mais j'ai un problème. Je cherche a avoir un mot lorsque dans mes cellule j'ai la couleur orange et rouge mais j'ai des erreur qui fait que cela ne fonctionne pas. Voici le code, je sais qu'il manque un truc mais je sais pas quoi mettre.
Dim delav As Range
With sheets("J-5").Range("B3:P3").Select
If delav.Font.ColorIndex = 45 Then Range("B10") = "PR Lav"
If delav.Font.ColorIndex = 3 Then Range("B10") = "PR Lav"
End With
1 réponse
-
Bonjour,
1 - Pour poster du code sur le forum.. merci d'utiliser la coloration syntaxique (les balises de code).
Explications disponibles ici : https://codes-sources.commentcamarche.net/faq/10686-le-nouveau-codes-sources-comment-ca-marche#balises-code
2 -
-Que fait ce "SELECT" ici ?? Change la ligne de codeWith sheets("J-5").Range("B3:P3").Select
parWith sheets("J-5").Range("B3:P3")
- Que vaut ta variable delav ?
- Quel est le message d'erreur ?
- Sur quelle ligne apparait-il ?
