Discussion :

[Pascal-Jean]

Bonjour,

Je vous explique mon problème.
Je crée automatiquement via macro x feuilles dans un classeur Excel.
Chaque feuille est nommée suivant un code article.

Dans chacune des feuilles, il y a quelques cellules qui ont des listes de choix. Exemple OUI/NON, Robinet thermo/Mitigeur etc...

Je voudrais que dès que l'utilisateur se positionne sur une cellule qui comporte une liste de choix :

- Vérifier que la cellule a bien une liste de choix
- Récupérer les valeurs de la liste afin de les afficher

mon problème et que je ne sais pas où mettre le code macro ni quel événement tester (j'ai testé cela

Code :

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

1
2
3
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    MsgBox ActiveCell.Row
End Sub

et cela fonctionne mais le souci c'est que le code devrait être dans les feuilles que je crée dynamiquement, donc problème de plus.


J'espère avoir été clair dans mes explications.

Si quelqu'un a une idée cela serait le bonheur.

Merci d'avance.

Bonne journée.

[hyperion13]

Salut,
Voici une piste

Code :

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

1
2
3
Dim MaCell As Range
Set MaCell = Cells.SpecialCells(xlCellTypeAllValidation)
If Not Intersect(target, MaCell) Is Nothing Then MsgBox "La cellule " & target.address & "a une liste de validation"

Question : vous créez vos nouvelles feuilles à partir d'un modèle ? Si c'est le cas, copiez votre code

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

dans la fenêtre vba du modèle.

- Récupérer les valeurs de la liste afin de les afficher
[...]...

Pourquoi récupérer les valeurs pour alimenter les listes de validation?

[Menhir]

j'ai testé cela

Code :

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

et cela fonctionne mais le souci c'est que le code devrait être dans les feuilles que je crée dynamiquement, donc problème de plus.

Mets une macro SheetSelectionChange dans ThisWorkbook, comme ça, elle s'appliquera à tous les onglets, y compris ceux nouvellement créés.
https://msdn.microsoft.com/fr-fr/vba...ge-event-excel

[Pascal-Jean]

Merci pour vos réponse.

SI j'ai bine réussi à mettre la macro qui s'exécute quand on se positionne sur la cellule, je ne comprends pas comment récupérer les valeurs de la liste de choix.

Merci de votre aide.

[Menhir]

Sous quelle forme as-tu créé cette liste déroulante ? Validation de Données ? Objet ActivX ?

[hyperion13]

Merci pour vos réponse.

SI j'ai bine réussi à mettre la macro qui s'exécute quand on se positionne sur la cellule, je ne comprends pas comment récupérer les valeurs de la liste de choix.

Merci de votre aide.

En clair, c'est la valeur sélectionnée dans la liste de validation que vous voulez récupérer, c'est le

Code :

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

range(MaCellule).value

[Pascal-Jean]

Bonjour,

J'ai créé la liste en validation de données type liste en saisissant les valeurs.

Non je ne veux pas récupérer la value de la cellule, je veux savoir quand je suis positionné sur une cellule si cette cellule a une liste de valeur et récupérer via VBA les valeurs possibles.

Merci de votre aide.

Bonne journée.