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
 
        ....