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