Discussion :

[zzozo32456]

Bonjour,

un petit peu d'aide serait la bienvenue car je n'ai pas programmé depuis quelques temps et je dois être un peu rouillé
J'ai une grille Excel avec une liste déroulante de choix (données validation liste)
j'aimerais en fonction de la valeur sélectionnée modifier
- le texte de plusieurs autres cellules de la même page.
- leur couleurs
- la couleur de certains autres onglets.

Any ideas ? Un lien qui pourrait m'aider ?

Merci

[Ashireon]

Hello

exemple pour les couleurs
Colore l'interieur en rouge d'un range

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Sommaire").Range("A" & X & ":F" & X).Interior.Color = RGB(255, 0, 0)

Colore le texte en blanc de cette meme zone

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
        Sheets("Sommaire").Range("A" & X & ":F" & X).Font.Color = RGB(255, 255, 255)

Colore le bas de l'onglet dans une couleur verte..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveSheet.Tab.Color = RGB(0,255,0)

[zzozo32456]

Merci Ashireon pour ce code.

En revanche comment je fais le lien avec ma liste déroulante ?

J'en profite également comme tu as l'air calé la dessus.
Sais tu comment supprimer uniquement pour l'impression une et une seule couleur de fond ?

Merci à toi

[Ashireon]

As tu beaucoup de valeurs car je me doute que pour chaque valeurs de cette liste déroulante tu va créer une mise en forme adaptée?
Afin de savoir si il faut faire un select case qui est plus ergonomiques ou un simple If si tu n'a qu'une ou deux valeurs?

[zzozo32456]

5-6 à tt casser mais je pense avoir au final 3 niveau de mise en forme, un simple if devrait donc fr l'affaire

Mais comment faire la connexion entre le vba et ma feuille de calcul ?

[Ashireon]

tu mets ton code dans

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
End Sub

de la feuille concernée.

Sinon envoi un modèle tu regardera ensuite.