Macro avec couleur
juju
-
jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 38486 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
A voir également:
- Macro avec couleur
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Excel cellule couleur si condition texte - Guide
- Boite a couleur - Télécharger - Divers Photo & Graphisme
- Somme si couleur - Guide
- Jitbit macro recorder - Télécharger - Confidentialité
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 code
par
- Que vaut ta variable delav ?
- Quel est le message d'erreur ?
- Sur quelle ligne apparait-il ?
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 code
With sheets("J-5").Range("B3:P3").Select
par
With sheets("J-5").Range("B3:P3")
- Que vaut ta variable delav ?
- Quel est le message d'erreur ?
- Sur quelle ligne apparait-il ?
