VBA Excel USERFORM
Bonjour,
j'ai écrit le programme suivant en utilisant un userform
Private Sub UserForm_initialize()
DépartementCB.RowSource = "A18:A64"
NomCB.RowSource = "B18:B66"
PrénomCB.RowSource = "C18:C66"
MatriculeCB.RowSource = "D18:D66"
ProfilCB.RowSource = "E18:E66"
ProjetsCB.RowSource = "F18:F66"
MoisCB.RowSource = "H19:H42"
With Worksheets("MACRO TIME SHEET")
For i = 18 To 66
If NomCB = Cells(i, 2).Value.Select Then
Set DépartementCB = Cells(i, 1).Value
Set PrénomCB = Cells(i, 3).Value
Set MatriculeCB = Cells(i, 4).Value
Set ProfilCB = Cells(i, 5).Value
Set ProjetsCB = Cells(i, 6).Value
End If
Next i
End With
End Sub
je veux qu'à chaque fois je change de nom dans la combobox NomCB, les autres combobox changent systématiquement en chargeant les informations correspondantes.
Avec le programme actuel je n'y arrive pas.
Je compte sur votre aide.
Merci les amis(es).
Bonjour
fifi a écrit :Avec le programme actuel je n'y arrive pas.
Et nous sans ton programme, très peu de chance d'y arriver
mon programme c ce que j'ai écrit en bleu
veuillez trouver en pièce jointe mon fichier excel
EN d'autres termes comment modifier le contenu des combobox en fonction du changement de la valeur de la combobox NomCB.
Merci.
Bonjour,
Ta sélection est réalisée sur le nom. Il est donc inutile d’utiliser des ComboBox pour les données qui sont rattachées à ce nom.
Regarde l’exemple.
A+
ça parait logique votre fichier
mais en appliquant ce code dans mon fichier dont la copie ci-joint ça ne fonctionne pas.
Stp, dis moi dans quoi je me suis gourré
merci d'avance.
g remplacé les combobox par des textbox dans le fichier ci-joint
et ça ne marche toujours pas
Re,
ça marche mieux après avoir corrigé le nom de la feuille
A+
ça marche pour vous mais je veux comprendre quel nom vous avez changé exactement.
parce qu'on a le même nom de la feuille "MACRO_TIME_SHEET
Merci de me répondre,
On n'a pas tout à fait le même nom de la feuille.
Le tien "MACRO_TIME_ SHEET"
Le mien "MACRO_TIME_SHEET"
Vois-tu le tout petit espace après TIME_ ?
(Test obligatoire pour obtenir le grade "œil de Lynx")
A+
Merci Infiniment Pour tes conseils et tes explications.
c'est très gentil.
j'ai beaucoup appris.