Cellule grisée si l'autre sélectionnée Résolu

Question

Bonjour
J'ai deux cellules A1 et B1
Je veux quand je sélectionne la cellule A1'la cellule B1 soit griséeet si je sélectionne la cellule B1 la cellule A1 soit grisée.
Merci pour votre aide

via55 · Answer

Bonjour

Si tu veux griser une cellule lorsque l'autre est remplie cela peut se faire par mise en forma conditionnelle avec la formule =A1<>"" pour B1 par exemple

Si tu veux simplement griser la cellule au moment de la sélection de l'autre il faut passer par une macro en VBA. Tu connais le VBA ?

Cdlmnt
Via

via55 · Answer

Re

Un exemple à adapter à ton fichier (La macro se place dans le workshheet de la la feuille concernée, ici la Feuille 1)
 
Cdlmnt
Via

via55 · Answer

Désolé , le voilà
https://mon-partage.fr/f/YZL0Dwxu/

Cdlmnt
Via

via55 · Answer

En ce cas remplace la macro par celle ci :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column < 3 Then
If Target.Column = 1 Then
 Cells(Target.Row, 2).Interior.ColorIndex = 15: Target.Interior.ColorIndex = 2
Else
 Cells(Target.Row, 1).Interior.ColorIndex = 15: Target.Interior.ColorIndex = 2
 End If
 End If
End Sub

Cdlmnt
Via

via55 · Answer

If Target.Column < 3 Then
SI le n° de la colonne est inférieur à 3 (donc col A ou col B)
If Target.Column = 1 Then
Si le n° de colonne est 1 (colonne A)
Else 
Sinon

Cellule grisée si l'autre sélectionnée

5 réponses

Discussions similaires

Newsletters