Besoin d'aide VBA - Userform et hidden sheets

Question

Bonjour à tous,

J'ai un petit probleme en VBA et je me suis dit que l'un d'entre vous avait peut etre une réponse à m'apporter.

Je m'explique :
Pour simplifier mon probleme, disons que sur un classeur j'ai plusieurs feuilles :
toto1
toto2
toto3

tata1
tata2
tata3
etc...

A un instant t, un seul "set" de ces feuilles est visible, les autres sont cachées (elles ne sont jamais visibles en meme temps, par exemple seuls toto2 et tata2 sont visibles).

Or le traitement sur chacune de ces feuilles est identique: j'ai un userform qui contient par exemple :
Sheets("toto1").Select
etc..
Sheets("tata1").Select
etc..

Voici donc mon problème :
Je voudrais éviter de créer n userforms identiques à la seule différence qu'ils appelleront toto1 pour le premier, toto2 pour le deuxieme...mais un seul userform qui aille rechercher quel "toto" et quelle "tata" sont visibles et l'utilise dans mon code.

Pouvez vous m'aider ?

Merci

Configuration: Windows 2000 / Internet Explorer 6.0

Polux31 · Answer

Bonjour,

Dim ws As Worksheet
    
    For Each ws In Worksheets
        If ws.Visible = True Then
            ' le code du traitement
        End If
    Next ws

;o)

actaris51 · Answer

Merci mais comment je sais si c'est toto2 et tata2 qui sont visibles et non pas toto1 et tata1 ?
Une idée ?

Polux31 · Answer

Je ne comprends pas ce que tu veux exactement. Ni comment tu sélectionnes les feuilles visible ou pas !!!

Tu dis : A un instant t, un seul "set" de ces feuilles est visible
mais qui détermine "l'instant t" et comment est-il déterminé ?

Besoin d'aide VBA - Userform et hidden sheets

3 réponses

Discussions similaires

Newsletters