Macro et sélection d'onglet

[lerexcel]

Bonjour,

D'abord bon appétit à tous...
Voilà je sollicite votre aide...

J'ai un petit problème de syntaxe, je ne sais pas comment dire dans la fonction :
For each ... in ....

Next


"chaque onglet sélectionné dans le classeur actif".



Merci pour cette précieuse aide

 

[Pierrot93]

Re : Macro et sélection d'onglet

Bonjour Lerexcel,

peut être comme ceci si j'ai bien compris :

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
'ton code
Next ws

"ActiveWorkbook" pour le classeur actif, quoique si non précisé, le code s'exécutera sur celui ci.

bon après midi
@+

 

[lerexcel]

Re : Macro et sélection d'onglet

trop bien merci pour l'instant ça marche mdr je m'étais planter sur 'Dim as'

 

[lerexcel]

Re : Macro et sélection d'onglet

Finalement c'est pas bon, car ce code permet de le faire pour tous les onglets or moi j'aimerais qu'il le fasse sur une sélection d'onglet...

 

[Pierrot93]

Re : Macro et sélection d'onglet

Re

pour exclure des feuilles :

Dim ws As Worksheet
For Each ws In Worksheets
    If ws.Name <> "nomfeuille1" Or ws.Name <> "nomfeuille2" Then
        'ton code
    End If
Next ws

pour cibler certaines feuilles :

Dim x() As Variant, i As Byte
x = Array("Feuil1", "Feuil2", "Feuil4")
For i = LBound(x) To UBound(x)
    Sheets(x(i)).Activate
Next i

@+

 

[lerexcel]

Re : Macro et sélection d'onglet

Bonjour Pierrot,

Merci pour ta réponse bien qu'elle en cible pas tout à fait la demande ( qui était peut-être trop succinte, je m'en excuse).

Bon je vais expliquer le côté "pratique" de mon objectif :

1°) ce code se trouve sur un fichier (juste créer pour lui même), ce code serait appelé par un raccourci ex:Ctrl+f.
2°)Il agirait sur un autre fichier ouvert ( en même temps ) quelqu'il soit, peu importe son nom et le nom des onglets, et cela seulement pour les onglets préalablement sélectionné (ex: avec la touche Ctrl et la souris).

3°) Le but : étant d'appliquer le bénéfice de la macro seulement à la "sélection d'onglet".


J'espère que cette fois-ci j'en n'ai pas trop dis... 🙁

Merci à tous.

 

[lerexcel]

Re : Macro et sélection d'onglet

Bon ben j'ai trouvé finalement fallait faire :
Dim ws as Worksheet

For each ws in Workbook.Windows(1).SelectedSheets

(code)

Next ws