Colorier cellule sous condition

Résolu/Fermé
bkssm5589
Messages postés
15
Date d'inscription
mardi 23 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013
- 23 avril 2013 à 11:15
bkssm5589
Messages postés
15
Date d'inscription
mardi 23 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013
- 23 avril 2013 à 14:20
Bonjour,




j'ai déjà colorié des cellules en fonction d'un " mot " figurant dans la cellule en utilisant le code suivant


Private Sub worksheet_selectionchange(ByVal target As Range)
chaine = target.Value
With target.Interior
If InStr(chaine, "Bonjour") Then .ColorIndex = 36
End With
End Sub


Maintenant je souhaite colorier la cellule adjacente de la même couleure ( i , j+1)

Merci d'avance pour votre aide

4 réponses

lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 195
23 avril 2013 à 13:15
Bonjour,
Comme ça ?
Private Sub worksheet_selectionchange(ByVal target As Range)
    With target
        If InStr(target.Value, "Bonjour") Then
            .Interior.ColorIndex = 36
            .Offset(, 1).Interior.ColorIndex = 36
        End If
    End With
End Sub
A+

1
Millaï
Messages postés
171
Date d'inscription
dimanche 8 juillet 2012
Statut
Membre
Dernière intervention
21 mars 2015
26
23 avril 2013 à 13:31
Voila qui devrait faire l'affaire.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

ligne = ActiveCell.Row
colonne = ActiveCell.Column

If InStr(Cells(ligne, colonne), "Bonjour") Then
Cells(ligne, colonne).Interior.ColorIndex = 36
Cells(ligne, colonne + 1).Interior.ColorIndex = 36
End If

End Sub
1
bkssm5589
Messages postés
15
Date d'inscription
mardi 23 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013

23 avril 2013 à 13:56
Merci à Millai et lermite 222

@ Lermite 222 , quand je fais le offset , j'ai un msg d'erreur " 438"
@ Millai, je n'ai pas une cellulle en particulier mais ca doit s'appliquer sur toutes les cellules de ma fenetre

a+
0
bkssm5589
Messages postés
15
Date d'inscription
mardi 23 avril 2013
Statut
Membre
Dernière intervention
25 avril 2013

23 avril 2013 à 14:20
C'est bon ca marche, merci beaucoup
0