Automatisation de creation d'Objets

Jeff7087 · 6 Février 2015

Bonjour à tous

Dans un fichier Excel 2010, j'utilise plusieurs zones déclarées pour y faire des calculs. Sous vba j'ai donc du code genre :
Set Zone1 = Range(....)
Set Zone2 = Range(....)
etc ......
J'aimerais automatiser cette partie du code avec une boucle For next, par exemple :
For i=1 to 4
set zone & i = Range(....)
next
mais je n'arrive pas à trouver la bonne syntaxe pour construire le nom de l'objet.
Je suppose que cela doit être très évident, mais je ne trouve pas.
Merci de votre aide.
Bonne journée

pierrejean · 6 Février 2015

Re : Automatisation de creation d'Objets

Bonjour Jeff7087

Vois si tu peux t'inspirer de ceci

Jeff7087 · 6 Février 2015

Re : Automatisation de creation d'Objets

Bonjour PierreJean
Merci pour cette info. Ce n'est pas ce que j'attendais, mais c'est effectivement une façon d'appréhender le problème. Je vais voir pour l’adapter à mon contexte.
Cdlt

Efgé · 6 Février 2015

Re : Automatisation de creation d'Objets

Bonjour Jeff7087, Bonjour pierrejean

Sur la base donnée par pierrejean, une solution qui crée des objets:

VB:

Sub test_2()
Dim i%
Dim zone(1 To 3) As Range
For i = 1 To 3
    Set zone(i) = Range("A" & i + (2 * i) & ":B" & i + (2 * i))
Next i
For i = 1 To 3
    zone(i).Select
Next i
End Sub

Avec Zone(i) on récupère toutes les propriétés d'un Range.

Cordialement

Jeff7087 · 6 Février 2015

Re : Automatisation de creation d'Objets

Bonjour Efgé
Bon Dieu, mais c'est bien sur ...................Comment ne pas y avoir pensé avant.
Merci pour ce coup de main.
Bonne journée

Automatisation de creation d'Objets

Jeff7087

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

Jeff7087

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Jeff7087

XLDnaute Nouveau

Discussions similaires

Automatisation de creation d'Objets

Jeff7087

XLDnaute Nouveau

pierrejean

XLDnaute Barbatruc

Pièces jointes

Jeff7087

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Jeff7087

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency