Discussion :

[flamel]

Bonjour,

Pour simplifier, si je fais :

Code :

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

1
2
3
4
5
6
7
Private Sub CommandButton2_Click()
Dim a
Range("A1").Select
     MsgBox Selection.Interior.Color
     a = ".Color"
     MsgBox Selection.Interior & a
End Sub

La première box me donne une réponse, mais la deuxième donne une erreur.
Peut-on utiliser une variable dans une interrogation du système ?
Merci si vous pouvez m'aider.

[Jean-Philippe André]

Hello,

tu ne peux pas malheureusement pas procéder de la sorte.

Quel est ton objectif exactement ?

[casefayere]

tu ne peux pas malheureusement pas procéder de la sorte.

effectivement, fais un essai avec ce code et regardes le résultat

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim a
MsgBox Range("A1").Interior.Color
a = ".Interior.Color"
MsgBox Range("A1") & a
End Sub

tu obtiens la valeur de A1 et ".Interior.Color"
quand on fait

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim a
MsgBox Range("A1").Interior.Color
a = Range("A1").Interior.Color
MsgBox a
End Sub

le résultat est correct, mais

Code :

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

1
2
3
4
5
6
Private Sub CommandButton2_Click()
Dim a
MsgBox Range("A1").Interior.Color
a = ".Color"
MsgBox Range("A1").Interior & a
End Sub

l'instruction "Range("A1").Interior" est incomplète