Variable VBA

[Bryan]

Bonjour Forum,

J'aimerais donner plusieurs valeurs à une variable dans Excel. Je ne sais pas si cela est possible par exemple. Voici un exemple de ce que je veux faire:

If Range('enquete').Value = 'ROUTE' then
var1 = 'ROUTE'
ElseIf Range('enquete').Value = 'TÉLÉPHONE' then
var1 = 'TÉLÉPHONE'
ElseIf Range('enquete').Value = 'BRIS DE GLACE' then
var1 = 'BRIS DE GLACE'
ElseIf Range('enquete').Value = 'TOUS' then
var1 = 'ROUTE' Or var1 = 'TÉLÉPHONE' Or var1 = 'BRIS DE GLACE'
End if

Mon programme calcule des bilans quelconques. Mon range enquete détermine sur quel type d'enquête je veux obtenir un bilan. Cette cellule contient un menu déroulant. Si je choisi TOUS comme type d'enquête, je veux que toutes les enquêtes soit considérées (ROUTE, TÉLÉPHONE et BRIS DE GLACE). La ligne en gras est celle que je ne suis pas capable de représenter. Dans le fond, j'aimerais dire que var1 soit égale à n'importe quelle chaîne de caractères si la cellule enquête est égale à TOUS. Merci à l'avance.

Bryan

 

[CBernardT]

Bonjour Bryan


Une solution si j'ai bien compris ?

Sub VariableDivers()
Dim N As Byte
If Range('enquete').Value = 'ROUTE' Then
var1 = 'ROUTE'
ElseIf Range('enquete').Value = 'TÉLÉPHONE' Then
var1 = 'TÉLÉPHONE'
ElseIf Range('enquete').Value = 'BRIS DE GLACE' Then
var1 = 'BRIS DE GLACE'
ElseIf Range('enquete').Value = 'TOUS' Then
For N = 1 To 3
If N = 1 Then var1 = 'ROUTE'
If N = 2 Then var1 = 'TÉLÉPHONE'
If N = 3 Then var1 = 'BRIS DE GLACE'
Next N
End If
End Sub

Cordialement

Bernard

Message édité par: CBernardT, à: 04/10/2005 16:34

 

[Yan L]

Bonjour Bryan,

Pourquoi ne pas définir la valeur 'TOUS' à ta var1 et adapter ton traitement en fonction?
Pour répondre à ta question, une variable ne peut pas avoir plusieurs valeurs... Excel n'est pas encore quantique!
Bonne continuation!

Yan