Concatener un texte et une variable Ré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