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
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
MAIS mon grand souci si je rassemble les deux code dans la meme ComboBox ça fonctionne pas ???
est ce que l'ordre est important ???
grazie
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
........
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
.......
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
grazie
Pièces jointes
Dernière édition: