Coloriser une ligne sous condition

bonjour,

Je suis nouvelle sur ce forum, je ne suis pas une pro d'excel, ni de vba.

Mes demandes sont lol toutes petites par rapport à vos réalisations de formules.

Si vous pouviez m'aider merci

En colonne A j'ai le mot Ado ou Adulte En colonne B j'ai le nom prénom, je voudrais que le nom prenom se colorie en Jaune si c'est un adulte et en vert si c'est un ado.

Bonjour

Je t'ai complété ton fichier qui est vide ?!? dommage car l'intention de joindre un fichier est toujours bonne.

tu me redis si tu as des questions

Leakim

Bonjour le forum, Marielle, leakim

Voici une solution en vba:

Sub couleur()

  For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("A" & i).Offset(, 0) Like "*ado" Then
            Cells(i, 2).Interior.ColorIndex = 4
        End If
        If Range("A" & i).Offset(, 0) Like "*adulte" Then
            Cells(i, 2).Interior.ColorIndex = 6
        End If
    Next

End Sub

Bonne journée

salut jp65

et en evennementiel çà ferait quoi ?

merci

cordialement

Bonjour,

Une autre proposition avec des entêtes de colonnes (:oops:), , l'utilisation d'un tableau et une mise en forme conditionnelle (MFC).

Le tableau est dynamique : la MFC est automatique.

Pas nécessaire d'utiliser VBA.

Cdlt.

Bonjour

tulipe_4 a écrit :

et en evennementiel çà ferait quoi ?

Pour seulement deux valeurs possibles (si ce n'est pas ado c'est adulte), ça peut donner :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A:A")) Is Nothing Then
Target.Offset(0, 1).Interior.ColorIndex = IIf(Target.Value = "ado", 4, 6)
End If
End Sub

Amicalement

Nad

Bonjour tulipe_4

Soit la macro est lancée en la sélectionnant (Développeur\macro)

Soit en l'affectant à un bouton.

Sinon on peut intégrer le code modifié ci-dessous dans la feuille utilisée:

Private Sub Worksheet_Change(ByVal Target As Range)

For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
        If Range("A" & i).Offset(, 0) Like "*ado" Then
            Cells(i, 2).Interior.ColorIndex = 4
        End If
        If Range("A" & i).Offset(, 0) Like "*adulte" Then
            Cells(i, 2).Interior.ColorIndex = 6
        End If
    Next

End Sub

Cdlt

merci Nad et jp65

decidement ; je rame toujours avec des histoire d'objet.........

Bon dimanche

Un grand merci à tous.

Marielle

Re,

Voila j'ai fait un tableau, ou je mets de la couleur.

Il y a une date qui détermine si le dossier est en retard, si c'est une alerte ou si RAS

Exemple :

A1 = 01/07/14 B1 Retard = Rouge

A2 = 12/07/14 B2 Alerte = Orange

A3 = 15/09/14 B3 RAS = Vert

A4 = B4 Retard = Rouge

Ne peut-on trouver qq chose qui

A4 = B4 =

Et autre question en A2 = 12/07/14 donc Orange et alerte demain va-t'il passer au rouge ? Je ne le souhaite pas si j'ai une date E2

Merci

Ci-joint tableau Feuille Aide