Récupération de valeur - Cellule/TextBox

[ValentinLF]

Bonjour,

Je suis actuellement sur un petit programme Excel qui me permet de gérer plusieurs bases de données et de visualiser différents résultats sur de la gestion énergétique.

J'ai un petit soucis concernant la récupération de la valeur d'une cellule.

D'après le fichier en pièce jointe qui est un exemple de mon interface, j'ai besoin dans le userform qui s'affiche au clic du bouton de la feuille "Résultats" que mon programme recherche la valeur inscrite dans la TextBox1 (Armoire1, Armoire2, etc...) dans la feuille nommée Armoire et qu'il visualise ensuite si la cellule à coté correspond à A ou HA.
Enuite si la valeur = A alors TextBox4 (Résultat attendu) = "Test A" sinon "Test HA"

Je vous remercie d'avance pour vos réponse !

 

[thebenoit59]

Re : Récupération de valeur - Cellule/TextBox

Bonjour Valentin.

En mettant sous dictionnaire la liste de la feuille Armoires, on trouve l'item grâce à la clef qui sera la valeur de ta Combobox1.

Dim d As Object
Private Sub UserForm_Initialize()
    Dim j As Long
    Dim i As Integer
             
    Set Ws = Sheets("BDD")
    With Me.ComboBox1
        For j = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
        .AddItem Ws.Range("A" & j)
        Next j
    End With
    
    Set d = CreateObject("scripting.dictionary")
    With Sheets("Armoires")
        For i = 2 To .[a65000].End(xlUp).Row: d(.Cells(i, 1).Value) = .Cells(i, 2).Value: Next i
    End With
End Sub

Private Sub ComboBox1_Change()
Ligne2 = [A2].Offset(ComboBox1.ListIndex, 0).Row
    Me.TextBox1.Text = Sheets("BDD").Cells(Ligne2, 1)
    Me.TextBox2.Text = Sheets("BDD").Cells(Ligne2, 2)
    Me.TextBox3.Text = Sheets("BDD").Cells(Ligne2, 3)
Range("A2").Offset(ComboBox1.ListIndex, 0).Select
    Me.TextBox4.Text = d(Me.ComboBox1.Text)
End Sub

 

[ValentinLF]

Re : Récupération de valeur - Cellule/TextBox

Merci beaucoup thebenoit59 ! Réponse rapide et claire, c'est parfait.
Je ne connaissais pas cette fonction Dictionary, elle parait très intéressante à utiliser pour les bases de données comme celles sur lesquelles je travaille.