aide sur un userform

[bbanor]

Bonjour
Je suis novice en VBA et je souhaiterais avoir votre aide sur un userform qui me permettrait de selectionner des code, des compétences liées à chaque matières ou domaines enseignés.

Je vous envoie en attaché un fichier test qui peut être serait plus explicite.

Merci d'avance

 

[Cousinhub]

Re : aide sur un userform

Bonjour,

regarde le fichier joint, si cela te convient

le code de l'usf :

Private Sub ComboBox1_Change()
Me.ComboBox2.Clear
With Sheets("Données")
    lig = Application.Match(Me.ComboBox1, .Range("B1:B" & .[B65000].End(xlUp).Row), 0) + 1
    derli = .Cells(lig, 1).End(xlDown).Row
    For Each cel In .Range(.Cells(lig, 2), .Cells(derli, 2))
        Me.ComboBox2.AddItem cel.Value
    Next cel
End With
End Sub

Private Sub ComboBox2_Change()
Me.TextBox1.Value = ""
If Me.ComboBox2 = "" Then Exit Sub
With Sheets("Données")
    lig = Application.Match(Me.ComboBox2, .Range("B1:B" & .[B65000].End(xlUp).Row), 0)
    Me.TextBox1.Value = .Cells(lig, 1).Value
End With
End Sub

Private Sub CommandButton1_Click()
With Sheets("Userform")
    If Me.ComboBox2 = "" Then Exit Sub
    derli = .[A65000].End(xlUp).Row + 1
    .Cells(derli, 1).Value = Me.TextBox1
    .Cells(derli, 2).Value = Me.ComboBox2
End With
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
With Sheets("Données")
    For Each cel In .Range("A1:A" & .[B65000].End(xlUp).Row).SpecialCells(xlCellTypeBlanks)
        Me.ComboBox1.AddItem cel.Offset(0, 1).Value
    Next cel
End With
End Sub

le fichier joint :

 

[Guest]

Re : aide sur un userform

bonjour bbAnor,

comme dirait quelqu'un😀: n'apporte rien au fil
mais,
@bh²🙂 comment t'as fait pour ouvrir son fichier, ai pas réussi!?

A+

 

[bbanor]

Re : aide sur un userform

Comprends pas ton message Hasco

A te lire bientôt

 

[bbanor]

Re : aide sur un userform

En tout cas Merci BhBh. Ton aide m'a été précieuse.

Je m'en vais étudié cette macro tout suite.

Un super grand merci

 

[Cousinhub]

Re : aide sur un userform

Re-,

Salut, Hasco 🙂

comme notre ami a un Mac, regarde l'image que j'ai eu en décompressant son zip....