Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.
  • Initiateur de la discussion Initiateur de la discussion Nimbus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Nimbus

XLDnaute Occasionnel
Bonjour à tous,

J'ai un soucis avec mon programme VBA!
Mon programme se décompose en 2 parties.
1ere partie: Lorsque je choisi un client, je n'ai que les modéles fabriqués par ce client (Cela fonctionne)
2nd partie: Lorsque je choisi un atelier, les initiales du responsable de cet atelier s'affiche et les défauts visibles dans ces ateliers doivent aussi s'afficher dans une liste déroulante.

Mes initiales s'affichent correctement mais, rien ne s'affiche dans la liste déroulante des défauts...

Voici mon programme:


Private Sub Qui_initiales_Change()

Dim Initiale As String

Initiale = Qui_Initiales.Value

Defaut.Value = ""

If Initiale <> "" Then
Qui.Caption = Application.WorksheetFunction.VLookup(Initiale, Worksheets("Tables").Range("A:B"), 2, False)
Defaut.RowSource = Liste_Defauts
Else
Qui.Caption = ""
Defaut.RowSource = Application.WorksheetFunction.VLookup(Initiale, Worksheets("Tables").Range("E:F"), 2, False)

End If

End Sub

Merci à tous ceux qui pourront m'aider
 
Re : Programme VBA

Bonjour le forum
si initiale est dans Worksheets("Tables").Range("A:B") comment pourrait il se trouver dans Worksheets("Tables").Range("E:F")
sans fichier c'est pas facile d'être sur
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…