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

[mikael2235]

Bonjour à tous,

Je souhaite récupérer la valeur d'une variable, mais lorsque le nom de cette variable est constitué à partir de la valeur d'une cellule (pour utilisation dans une boucle).

Je voudrais que la valeur de ma "ActiveCell.Offset(0, 6).Value" soit égale à la valeur de la variable correspondante, mais pas à son nom !
Exemple : Je veux que la valeur de la cellule soit "19.6" et non "c70600000"

Merci. Dites moi si je n'ai pas été assez clair.

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
    [B]ActiveCell.Offset(0, 6).Value = compte[/B]
Next

End Sub

 

[James007]

Re : Récupérer valeur d'une variable à partir d'une autre variable

Bonjour,

Si tu as correctement défini tes variables en Public ...

ActiveCell.Offset(0, 6).Value = c70600000

A +
🙂

 

[mikael2235]

Re : Récupérer valeur d'une variable à partir d'une autre variable

Bonjour,

Si tu as correctement défini tes variables en Public ...

ActiveCell.Offset(0, 6).Value = c70600000

A +
🙂

Salut James007,

Qu'entends tu par défini en "Public" ?

Pour ce que tu me mets, je suis d'accord avec toi :

ActiveCell.Offset(0, 6).Value = c70600000

Mais moi je voudrais faire quelque chose comme cela :

Dim compte As String
compte = "c" & num_compte
ActiveCell.Offset(0, 6).Value = compte

 

[James007]

Re : Récupérer valeur d'une variable à partir d'une autre variable

Re,

Pour ton premier taux de TVA, par exemple ...

Public Const c70600000 = 19.6

au tout début de ton code ... avant tes macros ...

A +
🙂

 

[mikael2235]

Re : Récupérer valeur d'une variable à partir d'une autre variable

Ok pour les variables, mais je ne peux pas mettre :

ActiveCell.Offset(0, 6).Value = c70600000

puisque je fais ceci dans une boucle et mon numéro de compte "70600000" change à chaque ligne

Je veux donc que celui ci passe par une variable, d'ou mon code :

Dim compte As String
compte = "c" & num_compte
ActiveCell.Offset(0, 6).Value = compte

Mais quand je fais ceci, il me met dans ma cellule : c70600000 au lieu de me mettre 19.6

 

[mikael2235]

Re : Récupérer valeur d'une variable à partir d'une autre variable

Le même cas avec avec un code plus simple :

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

Donc je veux que MsgBox m'affiche la valeur de ma variable "azerty" soit 500, et non le nom de cette variable...

Merci.