Discussion :

[Godzestla]

Bonjour,
je me pose souvent la question suivante, sans jamais avoir trouvé une réponse qui me permettent d'implémentare correctement l'ibrication de clauses WITH :

Comment dans une imbrication de clause with puis-je accéder à la référence d'une clause de niveau supérieure ?

Exemple de code simple :

Code :

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

1
2
3
4
5
6
7
8
 
With Sheets("test")
   .name = "MAfeuille"     'Code à déplacer dans le With Imbriqué
   With .Range("A1")
          .value = "Hello"
        '----------------> ici, comment insérer le code à déplacer
   end with
end with

ce code n'a pas de sens en tant que tel, mais la question de fond est la possibilité de référence au niveau supérieur.

Merci pour votre réponse et bonne journée à tous.

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
With Sheets("test")
   .name = "MAfeuille"     'Code à déplacer dans le With Imbriqué
   With .Range("A1")
          .value = "Hello"
 
   end with
'ICI
end with

après le end with du 2ème with

[Godzestla]

Bonjour Mercatog et merci pour ta réponse.

Ben non, justement, je le voudrais dedans car le code exemple est simple mais parfois la clause With est très longue et parfois dans une même ligne il faudrait référencer le With actif et son parent.

Non la question est de savoir si c'est possible dans un With inbriqué d'accéder à la référence d'un niveau supérieur, et si oui comment ?

le but est d'avoir une code clair propre et court.

[mercatog]

Je pense que c'est impossible
voilà l'aide de with

Vous pouvez imbriquer des instructions With en plaçant un bloc With à l'intérieur d'un autre. Toutefois, les membres des blocs With externes étant masqués dans les blocs With internes, vous devez fournir dans les blocs internes une référence complète pour tous les membres d'un objet figurant dans un bloc externe.

[AlainTech]

D'où l'intérêt de travailler avec des instances d'objets plutôt que des bloc With.

[Godzestla]

D'où l'intérêt de travailler avec des instances d'objets plutôt que des bloc With.

Bonjour Alain,
peux-tu me guider un peu dans la manipulation d'instance d'objets car je suis totalement inculte dans le domaine ?

merci d'avance et excellente journée

Mercatog, merci à toi aussi bien évidement par ta réponse précise et rapide.

[AlainTech]

je suis totalement inculte dans le domaine

Pas du tout!

Regarde cette réponse que tu as donnée:
http://www.developpez.net/forums/d74...s/#post4304759

Code :

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

1
2
3
4
5
6
7
8
Sub cache()
Dim sh As Object
For Each sh In Sheets
  If sh.Name <> "Sheet1" Then
     sh.Visible = xlVeryHidden
  End If
Next
End Sub

sh est une instance d'objet Worksheet (si ce n'est que tu aurais pu le typer As Worksheet plutôt que As Object).
On peut ainsi créer des instances pour tous les objets manipulables d'Excel ou de VBA:
Workbook
Worksheet
Range
Borders
Chart
Collection
CommandBar
Dialog
...
pour n'en citer que quelques uns.

Tu peux en avoir la liste complète en tapant F2 (Explorateur d'objets) dans l'éditeur VBA.

Retiens juste une chose: pour assigner un objet à une variable (=créer une instance), il faut utiliser l'instruction Set.

Si tu rencontres des problèmes pour la mise en oeuvre d'un cas concret, reviens-nous.

[Godzestla]

Ahhh. C'est toujours agréable de découvrir qu'on a des connaissances dont on n'a soi-même pas conscience.

Merci beaucoup. Je vais de ce pas approfondir cela.
Excellente journée à toi.