colorier cellule sous condition Résolu/Fermé

Question

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

lermite222 · Answer

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 SubA+

Millaï · Answer

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

bkssm5589 · Answer

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+

bkssm5589 · Answer

C'est bon ca marche, merci beaucoup

Colorier cellule sous condition

4 réponses

Discussions similaires

Newsletters