Double with pour action commune

Bonjour

je n'ai pas testé mais je voudrais savoir si ce code est possible

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

sub essai () Dim Ws1 As Worksheet, Ws2 As Worksheet Set Ws1 = ThisWorkbook.Worksheets("x") Set Ws2 = ThisWorkbook.Worksheets("y") With Ws1 and Ws2 'action commune au 2 fichiers If Ws1 = 'condition Then 'action Elseif Ws2 = 'condition Then 'action End if End With Sub end

---

Je pense que que vous allez me proposer For Each Worksheet in Workbook mais je voulais savoir si ma demande était réalisable
Merci de vos éclairages

Bonjour,
Afficher un code et demander si c'est possible ne me semble pas être une bonne approche car finalement et à moins d'être devin, on ne sait tien de votre attente.
Expliquer en français sans utiliser de vocabulaire VBA tout en affichant le code est sans doute préférable pour la compréhension de la question

Car si je résume

Citation:

---

je n'ai pas testé mais je voudrais savoir si ce code est possible

---

tu écris un code que tu n'as pas testé

Citation:

---

Je pense que que vous allez me proposer For Each Worksheet in Workbook mais je voulais savoir si ma demande était réalisable

---

Tu sais déjà ce que l'on va répondre. Bravo

Citation:

---

Merci de vos éclairages

---

L'éclairage a besoin de courant

En tous les cas cette ligne de code With Ws1 and Ws2 n'est pas possible et en faisant tourner le programme, tu l'aurais vu immédiatement

Extrait de l'aide en ligne sur le bloc With...End With
"Exécute une série d'instructions qui font référence à plusieurs reprises à un objet ou une structure unique afin que ces instructions puissent utiliser une syntaxe simplifiée lors de l'accès aux membres de l'objet ou de la structure. Lorsque vous utilisez une structure, vous ne pouvez lire que les valeurs des membres ou des méthodes invoke. En outre, vous obtenez une erreur si vous tentez d'assigner des valeurs aux membres d'une structure utilisée dans une instruction"

Je ne sais pas si tu as bien compris le rôle de la structure With.
Il s'agit de mettre en commun un élément pour ne pas avoir à l'écrire systématiquement dans une portion du code.
Par exemple, un With Worksheets(1) permet de relier des cellules Range à une feuille de calcul.
Mais si on pouvait mettre deux Worksheets dans le même With, comment l'exécution pourrait savoir à quelle feuille relier un Range qui y ferait référence ?

Donc ce que tu proposes est non seulement impossible syntaxiquement mais ça n'aurait pas de sens.

Merci Menhir
Merci Philippe et tout est une histoire de sémantique

Synonymes de proposer
agiter.
énoncer.
avancer.
conseiller.
offrir.
promettre
soumettre

Mais je te laisse le dernier mot pour cloturer ce post (Ah!!! orgueil quand tu nous tiens!!!)

Bonjour,

Tout est un histoire de ... syntaxe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Type t2wsh Ws1 As Worksheet Ws2 As Worksheet End Type Sub Test() Dim Wss As t2wsh Set Wss.Ws1 = ThisWorkbook.Worksheets(1) Set Wss.Ws2 = ThisWorkbook.Worksheets(2) With Wss If .Ws1.Name = "Feuil1" Then MsgBox "La feuille 1 est nommée Feuil1" ElseIf .Ws2.Name = "Feuil1" Then MsgBox "La feuille 2 est nommée Feuil1" End If End With End Sub

---