Utiliser la valeur d'un Label comme variable

Bonjour le Forum !
(Premier message depuis mon inscription, hésitez pas à me dire si quelque chose ne va pas !)
Mon soucis est que je n'arrive pas à utiliser la valeur de mon Label comme variable dans ma macro !
Dans mon exemple, c'est pour calculer des accessoires de couverture.
J'ai une UserForm1, qui contient par accessoire : 1 Label pour le texte, 1 TextBox1 pour la quantité.
Pour ajouter la quantité, soit j'inscris directement la quantité dans la TextBox1, soit je double clic sur la TextBox1 pour laisser apparaitre une seconde UserForm.
Sur mon UserForm2 (qui me sert de calculatrice), j'ai simplement une TextBox2, où j'inscris mon calcul (ex. 2+6+5+12). Sur cet UserForm2, j'ai aussi un Label1, il serra caché, qui a pour valeur, "l'adresse" de la TextBox1 qui doit recevoir le résultat, qui se trouve sur la première UserForm : UserForm1.TexTbox1.value, il y aussi un bouton valider et un Label2 pour le titre.
Je n'arrive pas à utiliser cette "adresse", qui serra ma variable dans mon code.
Chaque UserForm a ça propre feuille de calcul.
Dans le bouton pour valider j'ai rentré :

Code:

---

1 2 3 4 5 6

Private Sub CommandButton1_Click() Dim VarCalcul As String 'Je déclare ma Variable "VarCalcul" en tant que texte VarCalcul = UserForm2.Label1.Caption 'Ma Variable est égale à la valeur de mon Label VarCalcul = WorksheetFunction.VLookup(Label2.Caption, Sheets("Calculatrice").Range("C:E"), 3, False) '(VarCalcul = Label1.caption = Userform1.TextBox1.value) est égale à la valeur prise dans le tableau Calculatrice par rapport à son titre (Label2) End Sub

---

Avec ce code, rien ne se passe.

Si sur la dernière ligne je remplace directement ma Variable par l'adresse que je cherche à récupérer :

Code:

---

UserForm1.TexTbox1.value = WorksheetFunction.VLookup(Label2.Caption, Sheets("Calculatrice").Range("C:E"), 3, False)

---

Comme ça pas de soucis, la valeur s'inscrit dans la TextBox, mais ça va multiplier mon UserForm Calculatrice autant de fois que j'ai de TextBox de ce type à créer, mon but est d'avoir un seul UserForm Calculatrice pour tous, et qui serra utilisable dans plusieurs UserForm.

Dites moi si ils vous manquent des informations, je suis pas sur d'être clair, même si j'ai fait des efforts !

Merci à vous

Bonsoir à tous,
sans doute devrait tu mettre un fichier en exemple .

Voila, j'ai mis le minimum en espérant que ça soit bon, et que le fichier soit du bon format !

Il faut juste cliquer sur le bouton de commande sur la feuille Calculatrice !

Remplace ceci dans ton code...

Code:

---

1 2 3 4

Private Sub CommandButton1_Click() VarCalcul = WorksheetFunction.VLookup(UserForm2.Label2.Caption, Sheets("Calculatrice").Range("C:E"), 3, False) Label1.Caption = VarCalcul End Sub

---

Comprends rien à ce que tu veux.

Bonsoir EngueEngue, et merci de prendre un peu de temps !

Alors quand je remplace avec ton code (je pars du principe que tu as téléchargé mon fichier), ça me met le résultat dans le label1 du UserForm2 .
Je veux que ce résultat soit dans la TextBox1 du UserForm1 .

Il faut que ma Calculatrice sache dans quelle TextBox de la UserForm1 elle doit écrire le résultat, c'est ma variable.
Quand je double clic sur la TextBox que je veux remplir, un code lui dit d'ouvrir UserForm2, change son Label2 (Qui est le titre, et qui me sert à remplir la feuille Calculatrice), et change la valeur de Label1 en fonction de la TextBox qui a activé la Calculatrice (ex. si je double clic sur la TextBox1, j'aurais UserForm1.TextBox1.value)
Je veux me servir de cette donnée pour que la Calculatrice sache dans quelle TextBox elle doit mettre le résultat.

J'espère que ça t'aide à m'aider !

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() VarCalcul = WorksheetFunction.VLookup(UserForm2.Label2.Caption, Sheets("Calculatrice").Range("C:E"), 3, False) Select Case Label2.Caption Case "Faitage" UserForm1.TextBox1.Value = VarCalcul Case "Rives" UserForm1.TextBox2.Value = VarCalcul End Select Me.Hide End Sub

---

Bonjour le forum,
je sais pas si j'ai compris ce que tu veux faire!
ajoute un module normal dans lequel tu mais ça en haut

Code:

---

Public ctl As Integer

---

ensuite dans tes code textbox dblclick tu ajoute

Code:

---

1 2	'pour la textbox1 ctl = 1

---

Code:

---

1 2	'pour la textbox2 ctl = 2

---

et pour finir dans le code du userform2 avant unload me tu met ceci

Code:

---

UserForm1.Controls("TextBox" & ctl).Value = VarCalcul

---

voila si c'est ce que tu veux met resolu
Cordialement

Oups !! EngueEngue désolé je n’avais pas vu ta réponse

No problemo.

En effet, il serait encore plus simple de créer des variables de classes et de faire sa recherche avec des dictionnaires...

Mais à chacun son niveau!

J'ai donc essayé de suivre son raisonnement.

Bonjour à vous deux et merci !
J'arrive à faire fonctionner les deux code, et ça répond à ma demande.
Pour aller plus loin, je voudrais utiliser cette calculatrice dans d'autres UserForm . Au total j'aurais peut être 100 TextBox étalées sur 10 UserForm.
Avec le code de EngueEngue, j'ai juste à rajouter la ligne avec Case et la suivante, en adaptant les données.
Par contre je bloque avec la solution de Spookyz.
J'ai essayé bêtement :
Dans le module :

Code:

---

1 2	Public ctl As Integer Public UFctl As Integer

---

Dans le code textbox dblclick :

Code:

---

1 2	ctl = 1 UFctl = 1

---

dans le code du userform2 :

Code:

---

Controls("UserForm" & UFctl).Controls("TextBox" & ctl).Value = VarCalcul

---

J'ai une erreur objet introuvable.

Une autre chose, quand je ferme l'UserForm2, et que je me retrouve sur l'UserForm1, mon curseur bascule en chargement, du coup si je veux cliquer sur la croix pour fermer par exemple, il faut que je clique 2 fois, une fois pour supprimer ce chargement, l'autre pour fermer la boite de dialogue. C'est que chez moi ? C'est un problème connue ?

Merci