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

Résolu/Fermé
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017 - 17 déc. 2017 à 16:15
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017 - 17 déc. 2017 à 19:32
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

5 réponses

via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
17 déc. 2017 à 16:23
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
0
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017
17 déc. 2017 à 16:30
Merci pour ta réponse malheureusement je suis nul en vba :(
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
17 déc. 2017 à 16:58
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
0
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017
17 déc. 2017 à 17:14
RE
t'as mis un fichier???
cdt
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
17 déc. 2017 à 17:44
Désolé , le voilà
https://mon-partage.fr/f/YZL0Dwxu/

Cdlmnt
Via
0
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017
17 déc. 2017 à 18:09
c'est exactement ça, mais juste une dernière question, comment appliquer tout ça pour toute la collone A et B(A1_B1, A_B2,......)?

merci d'acance
0
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
17 déc. 2017 à 18:23
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
0
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017
17 déc. 2017 à 18:45
Au fait pour juste comprendre les lignes la ou il y a if sa signifie quoi ?
Si non ça marche très bien merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
via55 Messages postés 14402 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 avril 2024 2 702
17 déc. 2017 à 19:01
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
0
jim81818 Messages postés 28 Date d'inscription jeudi 7 décembre 2017 Statut Membre Dernière intervention 17 décembre 2017
17 déc. 2017 à 19:32
Merci beaucoup pour votre aide et je te souhaite une bonne soirée
Cdt
0