Discussion :

[PBernard18]

Bonjour,

J'ai longuement cherché sur le forum en vain une solution simple à un problème qui paraît tout aussi simple et que néni

J'utilise la "validation des données" pour créer une liste déroulante à 2 choix dans une cellule. La source de cette liste "OUI;NON" est saisie directement dans la boite de dialogue "Validation des données".

A l'utilisation, si "OUI" est choisi dans la liste, je souhaite colorier une cellule en gris. Si "NON" ou si "" est choisi, je souhaite décolorier la même cellule grisée.

Ma première problèmatique consiste à comprendre la structure mise en oeuvre par ce type de liste et le ou les moyens d'accèder aux données en VBA ?
A priori, je suppose qu'il y a derrière une notion de tableau à 2 dimensions (une pour l'index 0,1,2 et une autre pour les datas "",OUI,NON) attaché à la cellule qui porte la validation des données.
Si quelqu'un a une explication, je suis preneur.

Ma seconde problèmatique consiste à gérer en VBA le changement de données "OUI/NON" pour appliquer l'action que je souhaite.
Pour celà, j'utilise sur la feuille concernée
Sub Worksheet_SelectionChange(ByVal Target As Range)
mais je n'arrive à rien de concret.

Merci pour votre aide.

[Nicolas JACQUIN]

Bonjour,

Y a faire une mise en forme conditionnelle

merci

[PBernard18]

Euh ! oui, c'est à dire ?
Je ne suis pas sûr qu'une mise en forme conditionnelle suffise pour réponde à ma problèmatique de gestion des listes "Validation des données" en VBA. Mais comme je méconnais cette technique...
En revanche je ne souhaite pas mettre en place une solution dérivée qui repose sur autre chose que la "validation des données". Je cherche à comprendre et à maîtriser ce type de liste.

[Nicolas JACQUIN]

regarde le classeur joint si c'est ca

Pièce jointe 174811

[PBernard18]

Waouh ! super . Je ne connaissais pas cette fonctionnalité. Elle m'aidera dans la suite de mon projet. Donc déjà un grand merci.

Pour revenir plus précisément à mes contraintes,
- les données ("OUI;NON;"") ne doivent pas être définies dans un autre feuillet. Elles sont mémorisées "en dur" dans la boîte de dialogue.
- La cellule à colorier est différente de celle qui héberge la liste . Elle peut par exemple être en A1 avec la liste en B1.

En fait, j'ai besoin de gérer la sélection faite en B1 par une routine VBA pour gérer une action en A1 (coloriage pour l'exemple mais ça pourrait être tout autre action du type si "OUI" en B1 écrire "TOTO" en A1, ...). Ma problèmatique c'est que en VBA, je n'arrive pas à gérer la sélection des items de la liste.

[Nicolas JACQUIN]

bonjour,

d'après ce que j'ai compris voici le classeur essai

bonne réception.

Pièce jointe 174886

[PBernard18]

Super un GRAND merci. C'est top pil poil ce que je cherchais.
J'ai copié ton code ci dessous pour qu'il serve à d'autres le cas échéant.

Merci encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect([B1:B65536], Target) Is Nothing Then
     If Target = "OUI" Then
 
    ActiveCell.Offset(0, -1).Value = "toto"
 ActiveCell.Offset(0, -1).Interior.Color = RGB(192, 192, 192) 'couleur cellule
 
ElseIf Target = "NON" Then
 
     ActiveCell.Offset(0, -1).Value = "hihihi"
  ActiveCell.Offset(0, -1).Interior.Color = RGB(255, 255, 255) 'couleur cellule
 
End If
    End If
 
End Sub

[Nicolas JACQUIN]

De rien, ça fait toujours plaisir de faire plaisir

Merci de marqué résolu, comme ça d'autres verront mieux s'il cherche quelque chose de similaire.

[PBernard18]

Pas de chance lorsque je transpose le code sur ma feuille, J'ai un message d'erreur de type sur la ligne
if target = "OUI" Then
alors que sur ta feuille tout va bien.
Ca viendrait de où à ton avis ?

[Nicolas JACQUIN]

Normalement y a pas de soucis à avoir, peut être une erreur dans la saisie du code, faite un copier coller du code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Worksheet_Change(ByVal Target As Range)
 
If Not Intersect([B1:B65536], Target) Is Nothing Then
     If Target = "OUI" Then
 
    ActiveCell.Offset(0, -1).Value = "toto"
 ActiveCell.Offset(0, -1).Interior.Color = RGB(192, 192, 192) 'couleur cellule
 
ElseIf Target = "NON" Then
 
     ActiveCell.Offset(0, -1).Value = "hihihi"
  ActiveCell.Offset(0, -1).Interior.Color = RGB(255, 255, 255) 'couleur cellule
 
End If
    End If
 
End Sub

et bien sur à mettre dans code de la feuille

[PBernard18]

Le copier/coller n'a rien changé. La seule explication rationnelle que j'ai pu trouver serait que le classeur sur lequel je travaille ayant été créé sous Excel 2010 puis modifié en partie sur excel 2013 pour être au final travaillé en VBA sous EXCEL 2010, il ne réagirait plus de la même façon. Mais ce n'est qu'une supposition, n'ayant plus le moyen de reproduire le contexte.

Fort des conclusions de cette investigation, j'ai donc recopié les onglets dans un classeur tout neuf créé sous Excel 2010 et là oh miracle, ça marche du tonnerre de feu.

Je savais bien que se serait simple mais sans ton aide je crois que j'y serais encore.
Donc un très très grand merci et peut être à bientôt sur de nouvelles aventures.