Discussion :

[ALEX80800]

Bonjour

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

Code :

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

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

[Philippe Tulliez]

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

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

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

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

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"

[Menhir]

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.

[ALEX80800]

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

[Patrice740]

Bonjour,

Tout est un histoire de ... syntaxe :

Code :

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

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