Concatener un texte et une variable [Résolu]

Messages postés
5
Date d'inscription
jeudi 2 février 2006
Dernière intervention
3 février 2006
- - Dernière réponse : Julien237
Messages postés
884
Date d'inscription
vendredi 3 novembre 2000
Dernière intervention
3 mars 2009
- 2 févr. 2006 à 19:50
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
Afficher la suite 

4 réponses

Meilleure réponse
Messages postés
884
Date d'inscription
vendredi 3 novembre 2000
Dernière intervention
3 mars 2009
4
3
Merci
Tu dois utiliser des index, c'est plus facile et je ne pense pas que dé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 à la place de Fact_ICV = "ICV" & Annee, tu mets



Fact_ICV=ICV(Annee)



Julien.

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 89 internautes nous ont dit merci ce mois-ci

Messages postés
5
Date d'inscription
jeudi 2 février 2006
Dernière intervention
3 février 2006
0
Merci
Merci je vais essayer.

Merci bcp Bonne soirée
Messages postés
5
Date d'inscription
jeudi 2 février 2006
Dernière intervention
3 février 2006
0
Merci
Trop fort,

ça marche parfaitement.

Merci Julien

Alain
Messages postés
884
Date d'inscription
vendredi 3 novembre 2000
Dernière intervention
3 mars 2009
4
0
Merci
De rien, tu pourrais juste cliquer sur réponse acceptée pour valider ?





Julien.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.