Concatener un texte et une variableRésolu

Question

Salut tt le monde,

J'ai un petit soucis avec mon code VBA.

Le test If de la fin du code doit concatener "ICV" & Annee. Par ex si Annee vaut 2003, je veux avoir ICV2003 et ainsi avoir en retour 1.08668076, nombre attribué à la variable ICV2003...

Voici mon code...

Qqn pourrait m'aider ?? Ca serait bien cool, je dois finir ce truc pour demain ;-)

Sub Desinvest()
    ICV2005 = 1.10887949
    ICV2004 = 1.08879493
    ICV2003 = 1.08668076
    ICV2002 = 1.08245243
    ICV2001 = 1.07610994
    ICV2000 = 1.05708245
    ICV1999 = 1.04016913
    ICV1998 = 1.03488372
    ICV1997 = 1.03382664
    ICV1996 = 1.02748414
    ICV1995 = 1.02008457
    ICV1994 = 1

    i = 1
    Do
        Sheets("Graphe Fiabilite").Select
        If Valeur1 <> Valeur2 Then
            Annee = Cells(i, NumColAn).Value
            If Annee < 1994 Then
                Fact_ICV = ICV1994
            Else
                Fact_ICV = "ICV" & Annee
            End If
            PrixPot = ValPot * Fact_ICV
        End If
        i = i + 1
        Vide = IsEmpty(Cells(i, 3).Value)
    Loop While Vide = False
End Sub

Julien237 · Answer

Tu dois utiliser des index, c'est plus facile et je ne pense pas que d&#233;signer des variables par un string soit possible :



dim ICV(2006) as double

Sub Desinvest()

    ICV(2005) = 1.10887949

    ICV(2004) = 1.08879493

    ICV(2003) = 1.08668076



et &#224; la place de Fact_ICV = "ICV" & Annee, tu mets



Fact_ICV=ICV(Annee)



Julien.

Raf22 · Answer

Merci je vais  essayer.

Merci bcp Bonne soirée

Raf22 · Answer

Trop fort,

ça marche parfaitement.

Merci Julien

Alain

Julien237 · Answer

De rien, tu pourrais juste cliquer sur r&#233;ponse accept&#233;e pour valider ? 





Julien.

Concatener un texte et une variable

4 réponses

Discussions similaires