Discussion :

[chris09300]

bonsoir
j'ai une fonction ci dessous

Code :

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

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 :

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

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

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

[Philippe Tulliez]

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

Code :

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

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 :

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

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

[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.

[Godzestla]

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

Si, on peut. Je le fais souvent.

[Theze]

Bonjour,

Et en bouclant sur tes feuilles ?

Code :

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

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é.

[Godzestla]

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

merci pour l'info Hervé, j'ignorais cette nuance bien intéressante.

[zazaraignée]

Si, on peut. Je le fais souvent.

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

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...)

[Godzestla]

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 :

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

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