Affecter un mot à une cellule si

[Philippepilou]

Bonjour à tous,
grand débutant en VBA, je me pose la question suivante:
Comment affecter un mot "Bleu" dans une cellule si une autre cellule de la même ligne contient le mot "Bois"? Et ce pour tout une colonne.

La maigre petite chose que j'ai produit...

Sub Affectermot()
Dim cellule As Range
Dim mot As Range
For Each cellule In Range([E7], [E7].End(xlDown))
If cellule.Value = "Bois" Then
' .... Alors affecter Bleu" dans la cellule de la même ligne de la colonne "C"
End If
Next
End Sub


Je vous remercie d'avance pour vos réponses.

 

[bbb38]

Re : Affecter un mot à une cellule si

Bonjour Philippepilou, le forum,
Une solution par boucle.
Cordialement,
Bernard

 

[Regueiro]

Re : Affecter un mot à une cellule si

Bonsoir.
Avec une procédure événementielle.
Voir en PJ.

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("E7:E50"), Target) Is Nothing And Target.Count = 1 Then
If Target.Value = "Bois" Then
Target.Offset(, -2).Value = "Bleu"
End If
End If
Application.EnableEvents = True
End Sub

A+

 

[Philippepilou]

Re : Affecter un mot à une cellule si

Merci à vous Mr. bbb38 et Mr. Regueiro pour vos réponses rapides et qui font mouche! ça marche du tonnerre!