jeromeN95
XLDnaute Impliqué
Bonjour a tous,
cela fait quelques jours voir plus que j'essay de liées des combobox ou plutot des zones de listes déroulante crées avec la barre formulaires.
Mais en vin....
J'ai un onglet "regles" qui gere le contenu de ces zones.
Je souhaite qu'en fonction de la selection de la 1er, la 2nd se remplie automatiquement.
Mais en laissant tout de meme la possibilitée de la changer ensuite...
Les régles sont :
Lave batterie
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=D250 D alors doseur rincage= D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Convoyeur
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Machine a capot
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=D250D alors doseur rincage= D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Si doseur lavage=LRM alors doseur rincage = LRM
Granul Disk
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRS alors doseur rincage = LRS
Lave plateau
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Si doseur lavage=D250D alors doseur rincage= D250 R
Si doseur lavage=LRM alors doseur rincage = LRM
Mais 1 seul exemple suffi.
J'ai essayer :
Private Sub DoseurlavageLB_Change()
If doseurlavageLB = "D 3000" Then
doseurrincageLB.Value = "D 3000"
End If
End Sub
En changant Private sub, listbox, comobox, les noms, en rajoutant .value....
Comme je suis pas un expért.
J'essay d'en trouver un.
Merci.
cela fait quelques jours voir plus que j'essay de liées des combobox ou plutot des zones de listes déroulante crées avec la barre formulaires.
Mais en vin....
J'ai un onglet "regles" qui gere le contenu de ces zones.
Je souhaite qu'en fonction de la selection de la 1er, la 2nd se remplie automatiquement.
Mais en laissant tout de meme la possibilitée de la changer ensuite...
Les régles sont :
Lave batterie
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=D250 D alors doseur rincage= D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Convoyeur
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Machine a capot
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=D250D alors doseur rincage= D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Si doseur lavage=LRM alors doseur rincage = LRM
Granul Disk
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRS alors doseur rincage = LRS
Lave plateau
SI doseur lavage=D3000 alors doseur rincage =D3000
Si doseur lavage=Suma revoflow alors doseur rincage=Suma revoflow OU D250 R
Si doseur lavage=LRI alors doseur rincage = LRI
Si doseur lavage=D250D alors doseur rincage= D250 R
Si doseur lavage=LRM alors doseur rincage = LRM
Mais 1 seul exemple suffi.
J'ai essayer :
Private Sub DoseurlavageLB_Change()
If doseurlavageLB = "D 3000" Then
doseurrincageLB.Value = "D 3000"
End If
End Sub
En changant Private sub, listbox, comobox, les noms, en rajoutant .value....
Comme je suis pas un expért.
J'essay d'en trouver un.
Merci.
Dernière édition:
