Discussion :

[Oliv-]

Bonjour,
Je souhaiterai à partir des noms contenus dans une série de cellules faire une boucle afin de définir des variables objets (range).


Voici une partie des cellules qui donnera le nom des variables.
A1= immat, b1= genre, c1= carrosserie

Code :

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

1
2
3
4
5
6
7
For i = 1 To 3
MsgBox Evaluate(Cells(1, i).Address).Value
 
Set Evaluate(Cells(1, i).Address).Value = Cells(1, i).EntireColumn
' soit l'équivalent de 
' set immat = Cells(1, i).EntireColumn
next i

Est ce possible ?

[Gorfael]

Salut Oliv- et le forum
Je ne comprend pas ce que tu veux faire ?!!?
Si tu veux définir le nom de tes variables par du code, je ne pense pas que ce soit faisable, et surtout, quel intéret ?

Explique le but, pas la manière, le but que tu veux atteindre et on trouvera une manière de le faire

A+

[Oliv-]

Salut GORFAEL,

dans le cas qui m'occupe j'ai 15 variables à définir par le bloc suivant

Code :

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

1
2
3
4
5
6
7
8
9
10
Col_Immat:
        Set Col_Immat = Application.InputBox(prompt:="Sélectionner avec la souris le FICHIER et la COLONNE ou se trouve l' IMMAT" _
                                                     & vbCr & Texterreur, Title:="Désignation des colonnes", Type:=8)
        If Col_Immat Is Nothing Then MsgBox "Boîte de dialoque annuler": Exit Sub
        If Col_Immat.Columns.Count <> 1 Then
            Texterreur = "##Veuillez selectionner 1 seule colonne ! ##'"
            GoTo Col_Immat
        Else
            Texterreur = ""
        End If

Comme j'ai les noms ( Col_Immat,...) des varaibles qui sont contenues dans une feuille et

plutot que d'avoir 15 blocs dans mon code je souhaite avoir une boucle qui va créer dynamiquement ces 15 variables.

C'est simplement pour alléger mon code et surtout pour savoir si c'est possible comme ca l'est dans une requette SQL

[fring]

Bonjour,

Une possibilité qui pourrait peut-être convenir

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim Var(1 To 15) As String, i As Byte, Result As String
 
For i = 1 To 15
    Var(i) = "test " & i
Next
 
For i = 1 To 15
    Result = Result & Chr(10) & Var(i)
Next
 
MsgBox Result
End Sub

[Oliv-]

Merci fring, mais ce sont des variables objet.

[Gorfael]

Salut à tous
Oliv, ce que te présente fring n'est qu'un exemple de variable tableau à une dimension. Pour démontrer son exemple, il a pris du texte, mais tu peux déclarer ton tableau en varibles range, sheet ou WorkBokk.
A+