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
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
A voir également:
- Cellule grisée si l'autre sélectionnée
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
- Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
5 réponses
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
17 déc. 2017 à 16:23
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
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
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
17 déc. 2017 à 16:58
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
Un exemple à adapter à ton fichier (La macro se place dans le workshheet de la la feuille concernée, ici la Feuille 1)
Cdlmnt
Via
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
17 déc. 2017 à 17:14
RE
t'as mis un fichier???
cdt
t'as mis un fichier???
cdt
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
17 déc. 2017 à 17:44
17 déc. 2017 à 17:44
Désolé , le voilà
https://mon-partage.fr/f/YZL0Dwxu/
Cdlmnt
Via
https://mon-partage.fr/f/YZL0Dwxu/
Cdlmnt
Via
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
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
merci d'acance
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
17 déc. 2017 à 18:23
17 déc. 2017 à 18:23
En ce cas remplace la macro par celle ci :
Cdlmnt
Via
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
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
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
Si non ça marche très bien merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14495
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
7 novembre 2024
2 734
17 déc. 2017 à 19:01
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
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
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
17 déc. 2017 à 19:32
Merci beaucoup pour votre aide et je te souhaite une bonne soirée
Cdt
Cdt
17 déc. 2017 à 16:30