XL 2016 E-VBA Selection d'onglet qui ne sont pas compris dans Array

ml121 · 28 Juin 2019

Bonjour ,

Je travail sur un fichier me permettant d'éditer des fiches produits :

1 onglet base de données produit
1 onglet recherche
1 onglet feuille type
1 onglet feuille vierge

Les fiches produits sont générées depuis l'onglet recherche et remplies numérotées automatiquement en fonction de la base de données et de la position de la fiche piur obtenir un numéro unique.

Je cherche à créer un onglet sommaire qui récupérera le nom de la feuille et différentes infos supplémentaires.

Les onglets base de données, feuille type et feuille remplissage sont masqués. Quand j'édite une feuille, c'est en fait une action de copier une des feuille à remplissage auto ou vierge.

Je souhaiterais, pour l'onglet sommaire, travailler sur toutes les fiches produits uniquement et nom les onglets fixes ( recherche, sommaire et base de données.)

Je peux faire le code suivant : If Not ws.Name = "Sommaire" And Not ws.Name = "Renseignements Chantier " et lister toutes le feuilles dont je n'ai as besoin mais ca ne me parait pas terrible quand meme !

Une idée ?

Cordialement ,

Robert · 28 Juin 2019

Bonjour ML, bonjour le forum,

Si j'ai bien compris (c'est assez rare), les onglets qui ne t'intéressent pas sont masqués. Peut être un code du style :

VB:

Sub Macro1()
Dim O As Worksheet

For Each O In Worksheets
    If O.Visible = True Then
        'le code
    End If
Next O
End Sub

ml121 · 28 Juin 2019

Merci de votre réponse ,

J'ai résolu mon problème en utilisant la fonction like : if ws.name like "Fiche-*" et du coup cela fonctionne nikel !

XL 2016 E-VBA Selection d'onglet qui ne sont pas compris dans Array

ml121

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

ml121

XLDnaute Nouveau

Discussions similaires

XL 2016 E-VBA Selection d'onglet qui ne sont pas compris dans Array

ml121

XLDnaute Nouveau

Robert

XLDnaute Barbatruc

ml121

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency