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

Résolu

jim81818 Messages postés 28 Statut Membre -
jim81818 Messages postés 28 Statut Membre - 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

Afficher la suite

5 réponses

Réponse 1 / 5
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759

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
1. jim81818 Messages postés 28 Statut Membre
  
  Merci pour ta réponse malheureusement je suis nul en vba :(
  
  0
Réponse 2 / 5
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759

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
1. jim81818 Messages postés 28 Statut Membre
  
  RE
  t'as mis un fichier???
  cdt
  
  0
Réponse 3 / 5
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759

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

Cdlmnt
Via
0
1. jim81818 Messages postés 28 Statut Membre
  
  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
Réponse 4 / 5
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759
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
1. jim81818 Messages postés 28 Statut Membre
  
  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
Réponse 5 / 5
via55 Messages postés 14391 Date d'inscription Statut Membre Dernière intervention 2 759

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
1. jim81818 Messages postés 28 Statut Membre
  
  Merci beaucoup pour votre aide et je te souhaite une bonne soirée
  Cdt
  
  0

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

5 réponses

Discussions similaires

Newsletters