Autres Relation entre deux CBO ( Combobox Userform )

[BalighTomy]

Salut tout le monde
J'ai un userform (frmsaisie) et je souhaite remplir le COMBOBOX1 (cbomachine) et le résultat s'affiche dans le COMBOBOX 2 (cbomatricule) automatiquement .
merci d'avance
CDT Baligh Tomy

 

[Compte Supprimé 979]

Bonjour,

Comment voulez-vous faire, les données source ne correspondent pas à la liste !?

Exemple :

Source : Camion GRUE    362994
Liste : Camion GRUE                 362994

 

[BalighTomy]

Bonjour,

Comment voulez-vous faire, les données source ne correspondent pas à la liste !?

Exemple :

Source : Camion GRUE    362994
Liste : Camion GRUE                 362994

salut c'est pour qu'il soit identiques sur userform ( cbomachine ).

 

[Eric C]

Bonsoir le forum
Bonsoir BalighTomy, bonsoir BrunoM45

Petit soucis avec ton fichier donc j'ai repris la feuille source en la modifiant. J'ai remplacé le Cbomatricule par un TextBox, le Cbo étant pour ma part, inutile.
Bonne soirée à toutes & à tous
@+ Eric c

 

[BalighTomy]

Bonsoir le forum
Bonsoir BalighTomy, bonsoir BrunoM45

Petit soucis avec ton fichier donc j'ai repris la feuille source en la modifiant. J'ai remplacé le Cbomatricule par un TextBox, le Cbo étant pour ma part, inutile.
Bonne soirée à toutes & à tous
@+ Eric c

ma tete va s'exploser du conflit entre votre fichier et mon ancien fichier
après votre accord tu peux modfié mon fichier telq est et suprimé (cbomatricule) et le remplacé par txtmatricule.
merci d'avance

 

[Eric C]

Je viens encore d'essayer mais le fichier doit être protégé en écriture car une permission de modifier m'est délivrée.

Dans le fichier du dessus post#4, je me suis basé sur la feuille "source" et non sur la feuille "Liste". Il faudra faire un choix, je n'ai pas regarder (comme notre ami Bruno) si elles correspondaient au niveau données...

Je te livre les codes à placer dans VBE - Je t'ai mis aussi un code pour effacer tes contrôles (moins de lignes de code). Tu zappes le Cbomatricule que tu remplaces par un TextBox (Txtmatricule).

Private Sub UserForm_Initialize()
      With Sheets("source")
        cbomachine.List = .Range("B2", .Cells(Rows.Count, "B").End(xlUp)).Value
    End With
End Sub

 
Private Sub Cbomachine_Change()
  Dim LigneSel As Long
 LigneSel = cbomachine.ListIndex + 2
Txtmatricule = Sheets("source").Range("C" & LigneSel).Value
End Sub


'Private Sub btnefface_Click()              'Pour effacer plus rapidement tous tes contrôles de l'USF
'Dim CTRL As Control
'For Each CTRL In Controls
'If TypeOf CTRL Is msforms.TextBox Or TypeOf CTRL Is msforms.ComboBox Then
'CTRL = ""
'End If
'Next
'End Sub

Bonne nuit
@+ Eric c

 

[BalighTomy]

Je viens encore d'essayer mais le fichier doit être protégé en écriture car une permission de modifier m'est délivrée.

Dans le fichier du dessus post#4, je me suis basé sur la feuille "source" et non sur la feuille "Liste". Il faudra faire un choix, je n'ai pas regarder (comme notre ami Bruno) si elles correspondaient au niveau données...

Je te livre les codes à placer dans VBE - Je t'ai mis aussi un code pour effacer tes contrôles (moins de lignes de code). Tu zappes le Cbomatricule que tu remplaces par un TextBox (Txtmatricule).

Private Sub UserForm_Initialize()
      With Sheets("source")
        cbomachine.List = .Range("B2", .Cells(Rows.Count, "B").End(xlUp)).Value
    End With
End Sub

 
Private Sub Cbomachine_Change()
  Dim LigneSel As Long
 LigneSel = cbomachine.ListIndex + 2
Txtmatricule = Sheets("source").Range("C" & LigneSel).Value
End Sub


'Private Sub btnefface_Click()              'Pour effacer plus rapidement tous tes contrôles de l'USF
'Dim CTRL As Control
'For Each CTRL In Controls
'If TypeOf CTRL Is msforms.TextBox Or TypeOf CTRL Is msforms.ComboBox Then
'CTRL = ""
'End If
'Next
'End Sub

Bonne nuit
@+ Eric c

merci infiniment pour votre aide

 

[Eric C]

De rien. Bon ouikand
@+ Eric c

 

[ChTi160]

Bonsoir le Fil ,
Tomy
Tu veux pouvoir sélectionner un véhicule et récupérer l'immatriculation après le choix du véhicule ?
Pour faire quoi ?
1° Entrer des données dans les autres controls puis ajouter le tout dans la BDD
2° Rechercher les infos Ex : Conso par véhicule sur une période !
Etc Etc
Bonne fin de journée
jean marie