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+

[ouskel'n'or]

Deux choses que tu peux faire mais je n'ai rien compris

Code :

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

1
2
3
4
Sub test()
    blabla = 25
    MsgBox Evaluate(blabla)
End Sub

Code :

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

1
2
3
4
5
6
7
Sub test2()
Dim blabla As Variant
    blabla = Range("A1:A25").Value
    For Each Cell In blabla
        MsgBox Cell
    Next
End Sub

Bonne soirée

NB - Ça fonctionne également avec Dim blabla As Range (!?!) et là je ne comprends pas...

[fring]

Un petit test peut-être plus explicite (je ne me suis pas occupé des gestions d'erreurs)

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
Sub test()
Dim Var(1 To 5) As Range, i As Byte, Result As String
 
MsgBox "Vous allez devoir faire 5 sélections"
 
For i = 1 To 5
    Set Var(i) = Application.InputBox(prompt:="Selection " & i & Chr(10) & "Sélectionner avec la souris une cellule dans la colonne de votre choix", Title:="Désignation des colonnes", Type:=8)
Next
 
For i = 1 To 5 'boucle séparée pour vérifier que les variables Var(i) ont bien été initialisées
    Result = Result & Chr(10) & "Var" & i & " = colonne " & Var(i).Column
Next
 
MsgBox Result
 
End Sub

[ouskel'n'or]

C'est ça, on commente les propositions de ses petits camarades
Un truc peut-être moins explicite mais pas moins compris...
Si tu veux les valeurs de chaque cellule de tes cinq sélections, alors c'est un tableau de variant qu'il te faut

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub test()
Dim Var(1 To 5) As Variant, i As Byte, Cell as variant
 
    For i = 1 To 5
        Var(i) = Application.InputBox("Selection " & i & Chr(10) & _
        "Sélectionner avec la souris une cellule dans la colonne de votre choix", _
        "Désignation des colonnes", Type:=8).Value
    Next
    For i = 1 To 5
        For Each Cell In Var(i)
            MsgBox Cell
        Next
    Next
End Sub

[Oliv-]

Bonjour à tous et merci de votre intérêt pour le sujet.

En fait je voudrais avoir des variables qui se nomment comme mes noms de colonnes pour plus de clarté dans le code après.


donc c'est le nom de la variable que je veux créer dynamiquement.

J'avais pensé a un truc comme :

Code :

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

1
2
3
4
Set Evaluate("a1") = Columns("c:c")
ou
 
Set Application.ExecuteExcel4Macro("get.cell(""A1"")") = Columns("c:c")

Mais je crains que ce ne soit possible sauf à créer dynamiquement la macro entière avec ActiveWorkbook.VBProject...

[ouskel'n'or]

Et un truc comme ça, ça ne t'irait pas ?

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 Collect As New Collection
Dim adres As Range, i as integer
    For i = 1 To 10
        Set adres = Columns(i)
        Collect.Add "" & i, adres.Address
    Next
 
    'n'oublie pas de décharger la collection en sortie
    For i = Collect.Count To 1 Step -1
        Collect.Remove i
    Next
End Sub

A tout hasard et parce que j'avais un trou

[Oliv-]

Ah oui c'est pas mal du tout cela mais comme cela alors :

Code :

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

1
2
3
4
5
6
7
        For i = 1 To 10
        Set adres = Columns(i)
        Collect.Add adres, Cells(1, i).Value
    Next
 
    MsgBox Collect.item("Col_Immat").Text
    Collect.item("Col_Immat").Select

Ca semble parfait merci beaucoup !!