Discussion :

[Traputaca]

Bonjour,

J'ai un problème, tout simple en sois, mais pour lequel je ne trouve pas de solution.

j'ai dans Excel :

Cellule A1 = 1
Cellule A2 = 2

j'ai dans vba :

Variable1 = 111
Variable2 = 222

je souhaite pouvoir faire une boucle de type For :

Code :

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

1
2
3
4
5
6
7
For i = 1 to 2
 
if "Variable" & cells(i,1) > LimitSup then
Msgbox "Erreur"
end if
 
Next

Problème : " "Variable" & cells(i,1)" me renvoie "Variable1" puis "Variable2" et non la valeur de ces variables.... existe-t-il une solution pour récupérer la valeur de ces variables ?

Pour la compréhension, j'ai simplifié le problème, mais dans l'idée j'ai un paquet de test à faire sur un paquet de variables....

Je vous remercie d'avance

[jerome.vaussenat]

Salut,

Ta variable est entre guillemet. Donc ton code ne la reconnait pas en tant que variable mais en tant que texte.
Il te faut :

Code :

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

1
2
3
if Variable & cells(i,1) > LimitSup then
Msgbox "Erreur"
end if

Voir si je regarde ton message :

Code :

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

1
2
3
if Variable1 & cells(i,1) > LimitSup then
Msgbox "Erreur"
end if

[Traputaca]

Merci pour ta réponse.


Cependant, ta solution me force a lire uniquement "variable1"

disons que si j'ai 100 variables :
variable1
variable2
....
variable100

je voudrais lire toutes les variables à l'aide d'une boucle for

Code :

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

1
2
3
For i = 1 to 100
      msgbox ("variable" & i) ' de sorte à lire toutes mes variables qui ont un préfixe commun puis un compteur
next

Sauf que mon code "variable" & i me lis le nom de la variable voulu et non sa valeur

Je sais pas si mon problème est plus clair comme ça

[licornerousse]

Salutation DevDev,

Si j'ai bien compris ta demande se code devrait résoudre ton problème, les inputBox sont bien sur pas obligatoire et peuvent être remplacer.

Tiens moi au courant de l'évolution de ton travail.

Courage

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
Sub x()
 
Dim i, V1, V2, LimitSup As Integer
V1 = InputBox("entrer V1:")
V2 = InputBox("entrer V2:")
 
LimitSup = 14
 
 
For i = 1 To 2
    Select Case "V" & Cells(i, 1)
        Case "V1"
            If V1 > LimitSup Then
                MsgBox ("Erreur")
            Else
                MsgBox ("ok")
            End If
        Case "V2"
            If V2 > LimitSup Then
                MsgBox ("Erreur")
            Else
                MsgBox ("ok")
            End If
        Case Else
                MsgBox ("se que tu veut")
    End Select
Next i
 
 
End Sub

[Traputaca]

Hello,


Merci pour vos réponse.

En effet, licornerousse ta réponse ferait le taf, mais c'est hyper lourd car j'ai mis 2 variables là, en réalité j'en ai beaucoup, ce qui rallongerai énormément ton code.

en continuant de chercher, j'ai exploité une solution que je n'avais pas encore manipuler : les variables Tableau :

j'ai donc pour résoudre mon problème un code de type :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
 
Dim tablo(2) As Single
 
tablo(1) = 111
tablo(2) = 222
 
For i = 1 To 2
  Debug.Print tablo(i)
Next
 
End Sub

exploitable très facilement pour mes X variables.

Problème résolu !

[halaster08]

Sauf que mon code "variable" & i me lis le nom de la variable voulu et non sa valeur

Tu n'as pas bien lu la réponse de jerome.vaussenat
ENLEVE les guillemets :

Code :

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

1
2
3
For i = 1 to 100
      msgbox variable & i ' de sorte à lire toutes mes variables qui ont un préfixe commun puis un compteur
next

edit: erreur de ma part

[Traputaca]

Je ne suis pas d'accord ...

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
 
Variable1 = 111
Variable2 = 222
 
For i = 1 To 2
    MsgBox (variable & i)
Next
 
End Sub

la msgbox me retour "1" puis "2" qui est la valeur de "i" car variable n'est pas défini

[jerome.vaussenat]

Salut,

Je ne sais pas pourquoi tu utilises 100 variables.

Mais, peut être qu'une variable de type tableau serai adaptée à ton cas. Et dans ce cas, la mise en place d'une boucle serai simplissime.

Vas voir par là :
https://silkyroad.developpez.com/vba/tableaux/

[Traputaca]

Yessss c'est là dessus que je pars, je ne connaissais pas.

merci !