Discussion :

[mikael2235]

Bonjour à tous,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Philippe Tulliez]

Bonjour,
Dans ce cas, tu dois écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

msgbox azerty

Tu confonds variable et valeur d'une variable

[mikael2235]

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 !

[Philippe Tulliez]

Var3 = "azerty" et non pas azerty.

[mercatog]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mikael2235]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[mercatog]

Utilise plutôt une fonction

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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