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
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).
VB:
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()...
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
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
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).
VB:
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
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).
VB:
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
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