Valeur colonne C selon valeur colonne B

[jegremy]

Bonsoir a tous ,me voici avec une petite question sur un code en Vba .
J'ai fait plusieurs essai avec For each mais peu concluants Merci d'avance de vos reponses

Comment ecrire en colonne C le chiffre 11 uniquenment si dans la ligne en colonne B correspondante se trouve le mot Toto et ainsi de suite pour Titi et tata

 

[mth]

Re : Valeur colonne C selon valeur colonne B

Bonjour,

en repartant du code de ton fichier:

Sub EssaiPourNormes()
Dim cell As Range, Derlig As Long
With Sheets("Feuil1")
    Derlig = .Cells(Rows.Count, 2).End(xlUp).Row
    For Each cell In .Range("B1:B" & Derlig)
      Select Case cell.Value
        Case "Toto"
            With cell.Font
                .ColorIndex = 21
                .Bold = True
            End With
            cell.Offset(0, 1) = 11
        Case "Titi"
            With cell.Font
                .ColorIndex = 3
            End With
            cell.Offset(0, 1) = 22
        Case "Tata"
            With cell.Font
                .ColorIndex = 5
                .Bold = True
            End With
            cell.Offset(0, 1) = 33
      End Select
    Next
End With
End Sub

Vois si cela peut t'aider,

Bonne soirée,

mth

 

[JCGL]

Re : Valeur colonne C selon valeur colonne B

Bonjour à tous,
Salut Mimi,

Peut-être .ColorIndex à la place de .Color ?

Bises Mimi
A + à tous

 

[jegremy]

Re : Valeur colonne C selon valeur colonne B

Merci d vos reponses je regarde ça demain matin et je vous tiens au courant

 

[mth]

Re : Valeur colonne C selon valeur colonne B

Re 🙂

Peut-être .ColorIndex à la place de .Color ?

Ben c'est pas peut-être, c'est sûr !!!
Je viens de corriger, merci JC 🙂 🙂 🙂
Heureusement que tu veilles !!!

Plein de grosses bises 🙂 🙂 🙂

m

 

[jegremy]

Re : Valeur colonne C selon valeur colonne B

Je vous remercie cela fonctionne parfaitement. Bonne journée a vous tous
J:E