Userform valeur cellule choix 2 combobox

Bonjour à tous

Dans mon userform ( à la place de : mettre ici valeur qui correspond à la cellule du choix combox 1 et combobox2 ligne titulaire)

Je souhaite retrouver la valeur inscrit dans la cellule qui correspond au choix des combobox et l’afficher dans le label Label19

Merci de votre aide

Bonjour,

Si j'ai compris, c'est de mettre le même résultat que le label4

Non

Je veux récupérer la valeur de la cellule qui correspond aux combobox

Ex : item sélectionner de la combobox 2 = aa

item sélectionner de la combobox 1 = junior

Utiliser la ligne titulaire soit les ligne 14 – 16 -18

Résultat du label 19 = cellule feuille Excel (b14) = 5

Merci pour t’a réponse

Bonjour à tous

J’ai réussi à trouver une solution

Rappel : je cherche à retrouver une valeur dans le tableau B14 a h19 selon le choix de la

combobox 1 + combobox 2 + TITULAIRE

La combobox1 = p3 :p5

La combobox2 =n3 :n9

TITULAIRE = R3

Je créer 2 label (label1 pour nom « col » et label2 pour nom « ligne ») dans mon userform (pour le moment il reste visible pour vous faire voir)

Dans un 1er temps je vais rechercher la colonne qui correspond à la valeur de la combobox 2

Dans ComboBox2_Change j’ajoute

Dim valeur, vcol, rep
    valeur = ComboBox1.Value

    Range("a3:h3").Select
    On Error Resume Next

    ActiveSheet.Cells.Find(what:=valeur, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _
            xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
            .Activate

    vcol = Application.Find(valeur, ActiveCell)

          Label1 = Split(ActiveCell.Address, "$")(1)

    Exit Sub

Maintenant que j’ai la lettre de ma colonne je vais rechercher la ligne avec les texte de la

combobox 2 + TITULAIRE

Dans ComboBox1_Change j’ajoute

Dim nomcherche, cellule

nomcherche = ComboBox2.Value & " " & "titulaire"
    With Worksheets(1).Range("a1:a11") ' le point cells indique que nous cherchons la valeur dans tout lea feuille
 Set cellule = .Find(nomcherche, LookIn:=xlValues)
    Label2 = cellule.Row
    If Not cellule Is Nothing Then

    End If
    End With

Maintenant on se retrouve avec 2 label

Label 1 = lettre ed la colonne

Label 2 = ligne qui correspond au mot rechercher

On va donc créer un 3 label et mettre dans ce label

Private Sub Label3_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label3 = Label1.Caption & Label2.Caption
End Sub

Dans le label 4 on peut donc maintenant rechercher dans le tableau la valeur qui correspond à la cellule du label 3

Private Sub Label4_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Label4 = Range(Label3).Value
End Sub

Juste une question pour les professionnels ou les plus douée

Je n’arrive pas à remettre tout ça dans mon fichier excel d’origine ci-joint (formulaire2 v1-3) il me dit « variable objet ou variable de bloc non définie »

et 2eme questions comment améliorer la vitesse d’affichage du label 3 et label 4 ou améliorer cette solution

Une petite aide de votre part serais la bienvenue

Merci