Discussion :

[patrick.iribarne]

Bonjour

J'ai un problème d'utilisation de variable dans les instructions de type "Range" (ci-dessous)

Code :

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

Texte = Worksheets("CarteBD").Range("Adresse" & Carte).Value

Mon rêve : faire marcher l'instruction ci-dessus, avec une variable "Carte" qui contient la valeur 41

==> Je suis obligé au lieu de cela d'utiliser le code ci-dessous, avec une instruction explicite ...

==> SOS !

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
Sub TestCarte(Carte As String)
 
    Select Case Carte
 
        Case 41
            CarteCompteur = Worksheets("CarteBD").Range("Adresse41").Value
            LibCarte = Worksheets("Board").Range("Lib41").Value
            Worksheets("Board").Range("LibCarte").Value = LibCarte
 
        Case 42
            CarteCompteur = Worksheets("CarteBD").Range("Adresse42").Value
            LibCarte = Worksheets("Board").Range("Lib41").Value
            Worksheets("Board").Range("LibCarte").Value = LibCarte
 
        ....

[clementmarcotte]

Bonjour,

As-tu essayé avec quelque chose de ce genre ? (Non testé et à adapter)

Code :

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

1
2
3
4
dim adresse as string
dim i as integer
i = 32
adresse = a & cstr(i)

[patrick.iribarne]

Great ! It works ! Merci beaucoup ...