Colorier cellule sous condition
Résolu/Fermé
bkssm5589
bkssm5589
- Messages postés
- 15
- Date d'inscription
- mardi 23 avril 2013
- Statut
- Membre
- Dernière intervention
- 25 avril 2013
bkssm5589
- Messages postés
- 15
- Date d'inscription
- mardi 23 avril 2013
- Statut
- Membre
- Dernière intervention
- 25 avril 2013
A voir également:
- Vba colorier cellule sous condition
- VBA: colorer une cellule si condition vérifée - Forum - VB / VBA
- Colorer les lignes sous condition ✓ - Forum - VB / VBA
- Colorier des cellules sous condition en VBA - Forum - VB / VBA
- Colorier cellule sous condition ✓ - Forum - VB / VBA
- Colorier une cellule sous condition - Forum - Excel
4 réponses
lermite222
23 avril 2013 à 13:15
- Messages postés
- 8702
- Date d'inscription
- dimanche 8 avril 2007
- Statut
- Contributeur
- Dernière intervention
- 22 janvier 2020
23 avril 2013 à 13:15
Bonjour,
Comme ça ?
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ï
23 avril 2013 à 13:31
- Messages postés
- 171
- Date d'inscription
- dimanche 8 juillet 2012
- Statut
- Membre
- Dernière intervention
- 21 mars 2015
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
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
23 avril 2013 à 13:56
- 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+
@ 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
23 avril 2013 à 14:20
- 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