Récupération de valeur - Cellule/TextBox

ValentinLF

XLDnaute Nouveau
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 !
 

Fichiers joints

thebenoit59

XLDnaute Accro
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.

Code:
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

XLDnaute Nouveau
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.
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas