Récupération de valeur - Cellule/TextBox

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 !

Bonjour,

sans avoir ouvert ton classeur, uniquement avec les explications, ceci devrait t'avancer

Code:

---

1 2 3 4

Dim Cell As Range Set Cell = ThisWorkbook.Worksheets("Armoires").UsedRange.Find(Me.TextBox1.Text, , , xlWhole) If Not Cell Is Nothing Then Me.TextBox4.Text = IIf(Cell.Offset(0, 1).Value = "A", "Test A", "Test HA") ' variante : Then Me.TextBox4.Text = "Test " & Cell.Offset(0, 1).Value

---

A toi de voir dans quelle procédure placer ça.


EDIT : j'ai inversé le test logique, puisque tu veux tester A et mettre AH si c'est pas le cas