Affichage données dans un userform

Digicode · 13 Mars 2009

Bonjour a tout le monde

Pourriez-vous m’aider à résoudre mon petit problème ci dessous.

J’ai une base de données (feuille apprenti) que je rempli manuellement.

J’aimerais que l’userform (apprentissage) se remplisse automatiquement lorsque je choisis dans un menu déroulant la personne.

Dans la partie nom et prénom du userform : menu déroulant montrant les colonnes C et D ensemble

En fonction de ce choix, les autres cases se remplissent automatiquement

Pour la date de fin serait-il possible que si la colonne G est non vide la donnée de la cellule remplace la colonne F.

Merci à tous

JNP · 13 Mars 2009

Re : Affichage données dans un userform

Bonjour Digicode 🙂,
Pour remplir ton combobox :

Code:

Private Sub UserForm_Initialize()
Dim I As Integer
For I = 4 To Range("C65536").End(xlUp).Row
    ComboBox1.AddItem (Cells(I, 3) & " " & Cells(I, 4))
Next I
End Sub

Attention, je ne sais pas ce que tu as bidouillé sur ton combobox1, tu as du le vérouiller. J'ai été obligé de le supprimer et de le recréer pour que ça marche.
A + 😎

JNP · 13 Mars 2009

Re : Affichage données dans un userform

Re 🙂,
Et pour le remplissage :

Code:

Private Sub ComboBox1_Change()
Dim AChercher() As String
Dim Ligne As Integer
AChercher = Split(ComboBox1.Value, " ")
Ligne = Range("C:C").Find(AChercher(0)).Row
If Cells(Ligne, 4) = AChercher(1) Then GoTo Suite
While Cells(Ligne, 4) <> AChercher(1)
Ligne = Range("C:C").FindNext(Cells(Ligne, 3)).Row
Wend
Suite:
TextBox1.Value = Cells(Ligne, 2) ' Matricule
' Il te reste juste à rajouter tous les textbox que tu veux remplir
' Ligne étant la ligne de l'apprenti concerné
End Sub

Attention, j'ai été obligé d'utiliser un TextBox à la place de la ListBox que tu avais mise, les propriétés ne sont pas les même.
Pour ta date de fin anticipé, il te suffit de faire un test :

Code:

If Cells(Ligne, 7) <> "" Then
DateFin.Value = Cells(Ligne, 7)
Else
DateFin.Value = Cells(Ligne, 6)
End If

où DateFin serait le textbox de ta date de fin.
Bon courage 😎

Digicode · 13 Mars 2009

Re : Affichage données dans un userform

Merci beaucoup JNP pour ton aide si rapide, ca marche parfaitement

Affichage données dans un userform

Digicode

XLDnaute Nouveau

Pièces jointes

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Digicode

XLDnaute Nouveau

Discussions similaires

Affichage données dans un userform

Digicode

XLDnaute Nouveau

Pièces jointes

JNP

XLDnaute Barbatruc

JNP

XLDnaute Barbatruc

Digicode

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency