Macro avec couleur

Fermé

juju - 5 juil. 2017 à 09:50
jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 - 5 juil. 2017 à 10:14

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

A voir également:

Macro avec couleur
Somme si couleur - Guide
Macro word - Guide
Macro logiciel - Télécharger - Organisation
Excel couleur conditionnelle - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
5 juil. 2017 à 10:14

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

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 ?

Discussions similaires

recup couleur de cellule sans macro

Transparence en tete et bas de page

sertissage des cables rj45

Discussions similaires

Newsletters