Récupérer valeur d'une variable reconstituée

Bonjour à tous,

Dans le code suivant, je souhaite afficher dans ma MsgBox la valeur de ma variable var3 :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test()     var1 = "aze" var2 = "rty" var3 = var1 & var2     azerty = 500   'Je veux afficher 500, et non var3 dans ma MsgBox   MsgBox var3   End Sub

---

Avec ce code, il m'affiche "azerty", au lieu de 500
Merci pour votre aide.

Bonjour,
Dans ce cas, tu dois écrire

Code:

---

msgbox azerty

---

Tu confonds variable et valeur d'une variable

Non je ne confonds pas...

Puisque var3 = azerty, je voudrais que ma msgbox m'affiche la valeur de la variable qui correspond au résultat de var3.

Donc qu'elle m'affiche 500 !

Var3 = "azerty" et non pas azerty.

Non var3="azerty"
Si tu dis ce que tu veux faire. car on peut, à ma connaissance, travailler ainsi sur les objets

exemple:
si on a un TextBox nommé TextBox1 sur un userform, on peut l'appeler de 2 manières

Code:

---

1 2 3 4 5 6 7 8 9

me.TextBox1.Value 'ou Var1=1 Var2="TextBox" Var3=Var1 & Var2 Me.Controls(Var3).Value   'CECI EST FAUX Me.Var3.Value

---

Ton idée me parait pas mal, mais moi je n'utilise pas de UserForm :

Code:

---

Me.Controls(Var3).Value

---

En fait, je veux remplir une colonne de mon tableau, en fonction du contenu de la colonne A.

Voici mon code complet :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Sub CompteTVA() c70600000 = 19.6 c70600900 = 5.5 c70601000 = 0 End Sub Sub macro() Call CompteTVA lig_deb = InputBox("Saisir le 1er numéro de ligne de la classe 7 ?") ThisWorkbook.ActiveSheet.Range("B" & lig_deb).Activate ActiveCell.End(xlDown).Activate lig_fin = ActiveCell.Row For i = lig_deb To lig_fin Cells(i, 1).Activate Dim num_compte As String num_compte = ActiveCell.Value Dim compte As String compte = "c" & num_compte ActiveCell.Offset(0, 6).Value = compte Next End Sub

---

Merci pour votre aide.

Utilise plutôt une fonction

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Function CompteTVA(Cpt As String) As Double   Select Case Cpt Case "c70600000": CompteTVA = 19.6 Case "c70600900": CompteTVA = 5.5 Case Else: CompteTVA = 0 End Select End Function   Sub macro() Dim Lig_Deb As Long, Lig_Fin As Long, i As Long Dim compte As String   Lig_Deb = InputBox("Saisir le 1er numéro de ligne de la classe 7 ?") With ThisWorkbook.Sheets("Feuil1") Lig_Fin = .Cells(.Rows.Count, "B").End(xlUp).Row For i = Lig_Deb To Lig_Fin compte = "c" & .Cells(i, 1).Value .Cells(i, 7).Value = CompteTVA(compte) Next i End With End Sub

---

Merci mercatog, ça fonctionne avec cette fonction.

Je ne connais pas les fonctions, Je comprends les modifs que tu as fait dans la macro, mais peux-tu m'expliquer le principe de fonctionnement de la fonction...

Merci.