Imbriquer des Instructions with

Version imprimable

07/02/2011, 23h40
chris09300

Imbriquer des Instructions with
bonsoir
j'ai une fonction ci dessous
Code:

1 2 3 With Sheets("Janv") For i = 9 To 73 .Range("B" & i) = 0
est il possible de mettre plusieurs feuilles avec la fonction with

Code:

with sheets("Janv").("Fevr")

mais je connais pas la syntaxe
si quelqu'un la connais.
merci

Bonsoir,
Je n'ai pas réussis à faire mieux

Code:

1
2
3
4
5
6
7
8
 
 Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
 With Sheets("Feuil1")
  For i = 9 To 73
  .Range("B" & i) = 0
  Next i
 End With
 Sheets("Feuil1").Select

ou bien

Code:

1
2
3
4
5
6
 
 Sheets(Array("Feuil1", "Feuil2", "Feuil3")).Select
 With Sheets("Feuil1")
  .Range("B9:B73") = 0
 End With
 Sheets("Feuil1").Select

08/02/2011, 01h29
zazaraignée

With n'est pas une fonction mais une instruction de bloc permettant d'éviter la répétition fastidieuse d'un nom d'objet dans le code.

Et non, on ne peut pas imbriquer les blocs With les uns dans les autres.

Place le curseur sur le mot et tape F1 pour afficher la rubrique d'aide sur ce sujet.
08/02/2011, 09h34
Godzestla

Citation:

Et non, on ne peut pas imbriquer les blocs With les uns dans les autres.

Si, on peut. Je le fais souvent.:D

Bonjour,

Et en bouclant sur tes feuilles ?

Code:

1
2
3
4
5
6
 
Dim Fe As Worksheet
'ne pas écrire Sheets, si il y a une feuille graphique > erreur !!!
For Each Fe In Worksheets
    Fe.[B9:B73] = 0
Next Fe

Bonne journée.
Hervé.

08/02/2011, 10h37
Godzestla

Citation:

'ne pas écrire Sheets, si il y a une feuille graphique > erreur !!!

merci pour l'info Hervé, j'ignorais cette nuance bien intéressante.
08/02/2011, 13h46
zazaraignée

Citation:

Envoyé par Godzestla

Si, on peut. Je le fais souvent.:D

T'as quelle version de Office ?

Je voudrais bien voir ça. Comment le compilateur (ou interpréteur, dans ce cas-ci) peut démêler pour lequel des objets imbriqués dans des blocs With successifs '.laMéthode' est appelée?

[Edit]
Je me rétracte, sous réserve...
L'aide de VBA dit ceci

Citation:

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.

La petite réserve...
J'imagine que pour garder le code lisible, ce n'est pas toujours utile d'imbriquer tant de blocs With. Mais ça reste mon opinion. (Ça doit être mon orgueil qui parle...)

Citation:

Envoyé par Zazaraignée : Ça doit être mon orgueil qui parle..

Pas mal ta réponse, tu es la seule à savoir si elle est pertinente.

je partage ton avis sur le risque d'illisibilité du code du code.

C'est à utiliser avec parcimonie et dicernement, qualités typiquement féminines non ?

Un exemple simpliste d'utillisation propre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 With Workbooks("Le classeur.xls" '.... ici du code sur l'object Workbook With .Sheets("La feuille") ' ici du code sur la feuille With .Range(My_range) ' ici du code sur le range End With End With End With

08/02/2011, 16h59
Philippe Tulliez

Bonsoir,
Je confirme que moi aussi j'imbrique régulièrement des WITH