[-ANNULLATO-]Ordre des code dans meme sub

  • Initiateur de la discussion Initiateur de la discussion Ilino
  • 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 !

Ilino

XLDnaute Barbatruc
Forum Bonjour and 😱Buon Anno Nuovo 😱
je vous solicite a m'aider pour résoudre mon souci ci dessous :

dans mon USF ( fichier ci rattaché) je souhaite lors de la sélection une donnée dans le ComboBox8 j'aurai automatiquement une valeur qui le correspond ( selon la feuille "Contrat") ce code est fait ( merci bénévole) et fonctionne bien
Code:
.......
'chercher et afficher LE Cocontractant selon le N° CONTRAT
LI1 = ComboBox8.ListIndex + 2
TextBox4 = Sheets("Contrats").Cells(LI1, 4)
If ComboBox8.ListIndex = -1 Then TextBox4 = "":
Exit Sub
........
en même temps je souhaite afficher une liste déroulante dans le ComboBox9 automatiquement qui correspond a la donnée de ComboBox8( selon la feuille "Contrat") ce code est fait ( merci bénévole) et fonctionne bien
Code:
...........
'afficher la liste ouvrage selon le NUM Contrat
For Each cel In plage 'boucle sur toutes les cellules éditées cel de la plage
    'si la valeur de la cellule cel est égale à la valeur de lq ComboBox1, ajoute la cellule ajdacente à cel (colonne B) à la Combobox2
    If cel.Value = Me.ComboBox8.Value Then Me.ComboBox9.AddItem cel.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle'''
Exit Sub
.......
MAIS mon grand souci si je rassemble les deux code dans la meme ComboBox ça fonctionne pas ???

Code:
Private Sub ComboBox8_Change()

'chercher et afficher LE Cocontractant selon le N° CONTRAT
LI1 = ComboBox8.ListIndex + 2
TextBox4 = Sheets("Contrats").Cells(LI1, 4)
If ComboBox8.ListIndex = -1 Then TextBox4 = "":
Exit Sub

ComboBox8 = UCase(ComboBox8) 'N° CONTRAT en MAJUSCUL

'afficher la liste ouvrage selon le NUM Contrat
For Each cel In plage 'boucle sur toutes les cellules éditées cel de la plage
    'si la valeur de la cellule cel est égale à la valeur de lq ComboBox1, ajoute la cellule ajdacente à cel (colonne B) à la Combobox2
    If cel.Value = Me.ComboBox8.Value Then Me.ComboBox9.AddItem cel.Offset(0, -1).Value
Next cel 'prochaine cellule de la boucle'''
Exit Sub


Me.ComboBox9.Clear 
End Sub
est ce que l'ordre est important ???
grazie
 

Pièces jointes

Dernière édition:
- 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

Discussions similaires

Réponses
3
Affichages
668
Réponses
7
Affichages
728
Retour