Liste en cascade VBA
Bonsoir,
je débute en vba et j'ai crée un formulaire avec plusieurs items dont deux listes dont l'une est liée à l'autre c'est à dire que la liste "précisions" est liée à la liste "nature des faits". Ces listes se trouvent dans la feuille intitulée "liste nature des faits EI".
J'ai intégré le code ci-dessous mais cela ne fonctionne pas...
Option Explicit
Private Sub UserForm_Initialize()
Cmbnatfaits.Clear
Cmbprecisions.Clear
Cmbnatfaits.List = Application.Transpose(Range("nature"))
End Sub
Private Sub combofaits_change()
If Cmbnatfaits = "" Then Exit Sub
Cmbprecisions.Clear
Cmbprecisions.List = Application.Transpose(Range(Cmbnatfaits))
End Sub
Une erreur d'execution non repertoriée s'affiche.....
J'ai essayé pas mal de choses mais j'avoue que là je suis un peu perdue....
Quelqu'un peut il m'aider et me dire ce qui ne fonctionne pas dans mon code ou fichier svp....
Merci pour votre aide, je craque
Bonjour et
Plusieurs problèmes :
1) si tu veux affecter des valeurs à ta combobox via VBA, il ne faut pas mettre de valeur dans la propriété "RowSource"
2) Il faut indiquer des noms qui existent "Nature" ou "Cmbnatfaits" n'existent pas
Bonjour,
merci beaucoup pour votre réponse.
J'ai effectué les modifications nécessaires c'est à dire suppression de la ressource puis modifier les noms en m'assurant qu'ils existent mais cela ne fonctionne toujours pas….
Serait il possible que vous vérifiez à nouveau svp?
merci pour votre aide.
ah oui c'est mieux!
Re,
Je pense que tu n'écoutes pas ce qu'on te dit
Alors pour moi je laisse tomber, bonne chance et bon courage
Je l'avais retiré sur l'autre mais pas sur celui-ci! C'est bon ca fonctionne!
Merciiiiiii bcp