Changer couleur

[fsam]

Bonjour,

Je suis nouveau en VBA et je cherche une aide (un exemple) pour créer une fonction qui permet de changer la couleur de fond d'une ligne lorsque la valeur d'une cellule est égale à une lettre d'alphabet(ex "W" dans une cellule toute la ligne sera en rouge)

Merci d'avance pour votre aide

Cordialement

Sam

 

[CHti160]

Salut "fsam"
tu as via la recherche du forum de nombreux exemples de mise en couleur
de toutes sortes
rubrique faire une recherche en haut de cette Page
si tu ne trouves pas reviens nous voir
A+++
Jean Marie

 

[Hervé]

Bonjour

regarde le fichier joint.

Salut
Hervé

 

[Hervé]

re

oupss désolé jean-marie. Je n'avais pas rafraichi.

salut
Hervé

 

[CHti160]

salut"hervé"
et moi je t'ai pas vu arriver Lol
A+++
Jean marie

 

[fsam]

Merci Infiniment pour votre réponse rapide c'est hallucinant.

En fait , j'ai oublié de préciser:

lorsque (ex:la cellule "Current" contient la lettre "W" de mettre toute la ligne en rouge et en vert pour pour la lettre "L"

Je vais faire qd même une recherche comme jean Marie a proposé.

D'autre part, je n'ai pas compris le classeur.zip

Cordialement

 

[CHti160]

Salut "fsam"
d'abord le Zip est un exemple
tu le télécharges tu l'ouvres click droit Ouvrir avec , dossiers compressés
puis en feuille 1 tu peux tester ici v,r etc
pour voir le code ci joint tu fait Alt+F11 et tu as le code que tu peux modifier
tu supprimes ce qui est en trop et tu changes les Lettres r par W et v par L
Merci "Hervé"
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Value
Case "r" '<---toi ici tu mets "W"
Target.EntireRow.Interior.ColorIndex = 3

Case "v" '<---là tu mets "L"
Target.EntireRow.Interior.ColorIndex = 4
Case Else
Target.EntireRow.Interior.ColorIndex = xlColorIndexNone
End Select
End Sub
A+++
Jean Marie

 

[CHti160]

re c'est moi
Alors sur le fichier de "Hervé" en Feuil2 autre code limité à la plage (" A :A"&L)
voir code via Alt +F11
A+++
Jean Marie

 

[fsam]

Re bonjour Jean Marie,

J'ai fait comme tu m'as expliqué.Lors de lancement, une fenêtre me demande d'entrer le nom du macro :j'enregistre sous le nom de "Color_Change" dans "Macro in project":mon_ficier.xls
Mais rien ne se passe!

Est-ce un prob de config sur les macros ou autre chose

Cordialement

 

[fsam]

Re Salut

Après plusieurs tentatives , je n'ai pas réussi à faire marcher le prog.


Merci quand même pour ton aide

Cordialement

 

[CHti160]

re fsam
ce que tu as fait c'est tenté d'enregistrer une Macro

Ton fichier est ouvert classeur3 par exemple
tu affiches la barre d'outil VISUAL BASIC
tu click sur l'icone(Visual Basic Editor)de la barre d'outil VISUAL BASIC
une fenetre s'ouvre si tu n'est pas sur Classeur3.xls-[Feuil1(Code)]
la tu click sur explorateur de projets tu passes le pointeur sur les icones
là tu auras VBAProject(Classeur3.xls) tu click sur le plus si le project n'est pas ouvert ensuite tu click sur la feuil1 et là tu accèdes au code de la feuil1
si en haut de la fenetre tu as bien Classeur3.xls-[Feuil1(Code)]
et que tu ne vois pas le code
tu click dans le Menu deroulant de Gauche (Géneral)et tu affiches
Worksheet et tu affiches l'événement Changedans le menu déroulant de Droite et là normalement tu as le code de la macro événementielle Private Sub Worksheet_Change(ByVal Target As Range)
pas évident d'être clair
n'hésites pas à revenir à la charge pas évident au début Lol
A+++
Jean Marie

 

[fsam]

Jean Marie

J'ai réussi d'acceder au code . Mon problème est , une fois modifié, comment je peux rapatrier ce code dans mon fichier excel à moi et le définir comme un macro qui est lancé automatiquement.

Là j'arrive à récup le code , j'ai modifié et ensuite j'ai ouver mon fichier.
j'ai lancé VB editor et je colle le code , j'enregistre et au moment de lancer une nouvelle fen^tre s'ouvre demande le nom du Macro et là je ne suis plus car quand je tape un nom j'ai l'onglet "create" qui est là et après je ne suis plus

Merci

 

[fsam]

Suite à mon dernier message:

une fois que j'ai le code de private .....
je crée un module:

Sub test()
que dois je mettre ici!?

End Sub