Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres Ne pas reporter données si feuille masquée

pamela85200

XLDnaute Nouveau
Bonjour,

J'ai un fichier avec plusieurs onglets masqués qui s'ouvrent selon une condition définie, (exemple saisie de 5 dans A1, affichage de 5 onglets ... saisie de 6, affichage de 6 onglets...)
Ces onglets ouverts sont identiques et ce sont des données à compléter.

Je souhaiterais répertorier dans un tableau (se trouvant dans un autre onglet ) les données de ces onglets mais seulement sur les onglets non masqués, je ne sais pas si je suis claire...
Si Onglet masqué, ne pas reporter la donnée,

Pourriez vous m'aider svp ?

Vous en remerciant par avance et vous souhaitant une belle journée,
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pamela,
Il faut regarder la propriété "Visible" pour savoir si une feuille est masquée ou non.
Un ex en PJ avec :
VB:
Sub MasquéeOuNon()
L = 1
For Each F In Worksheets
    Cells(L, "A") = F.Name
    If Sheets(F.Name).Visible = True Then
        Cells(L, "B") = "Visible"
    Else
        Cells(L, "B") = "Masquée"
    End If
    L = L + 1
Next F
End Sub
 

Pièces jointes

  • FeuilleMasquée.xlsm
    18.6 KB · Affichages: 1

pamela85200

XLDnaute Nouveau
J'ai du mal m'exprimer ou alors j'ai pas compris ce que vous m'avez mis, je suis débutante +++

Je vous joins un fichier exemple "bateau".
Sur mon onglet "Accueil", je saisie en B2 le nombre de formulaire que je souhaite ouvrir (par défaut mini 1). Le nombre d'onglet correspondant s'ouvre automatiquement. Je remplis les données dans chaque onglet, et ensuite dans le dernier onglet "RECAP FORMULAIRE" j'ai un tableau répertoriant toutes les données saisies dans chaque formulaire qui s'alimente automatiquement. Seulement je voudrais qu'il s'alimente seulement avec les onglets "FORMULAIRES" visibles et non les masqués.
 

Pièces jointes

  • Classeur1.xlsm
    18.4 KB · Affichages: 2

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Pamela, Phil,
Un essai en PJ avec :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Tablo = Array("", "1000", "1100", "1110", "1111") ' 1 visible, 0 masquée.
Config = Tablo(Target)
Sheets("FORMULAIRE").Visible = Mid(Config, 1, 1)
Sheets("FORMULAIRE (2)").Visible = Mid(Config, 2, 1)
Sheets("FORMULAIRE (3)").Visible = Mid(Config, 3, 1)
Sheets("FORMULAIRE (4)").Visible = Mid(Config, 4, 1)
With Sheets("RECAP FORMULAIRE")
    .[B6:E100].ClearContents
    L = 6
    For Each F In Worksheets
        If F.Name <> "ACCUEIL" And F.Name <> "RECAP FORMULAIRE" Then
            If Sheets(F.Name).Visible = True Then
                .Cells(L, "B") = Sheets(F.Name).[B3]
                .Cells(L, "C") = Sheets(F.Name).[B4]
                .Cells(L, "D") = Sheets(F.Name).[B5]
                .Cells(L, "E") = Sheets(F.Name).[B6]
                L = L + 1
            End If
        End If
    Next F
End With
End Sub
 

Pièces jointes

  • Classeur1 (2).xlsm
    19.9 KB · Affichages: 0

pamela85200

XLDnaute Nouveau
RE-Bonjour,

Je vais vous joindre mon fichier car je vous avoue que je n'arrive plus à réfléchir

Donc sur ce fichier, même principe que le petit fichier en haut :

- Sur mon onglet "Rapport de visite de contrôle", je saisie en D30 le nombre de formulaire que je souhaite ouvrir (par défaut mini 1). Le nombre d'onglet "RAPPORT DETAILLE" correspondant s'ouvre automatiquement. Je remplis les données dans chaque onglet, et ensuite dans l'onglet "Certificat de calibration" j'ai un tableau répertoriant certaines données saisies dans chaque "RAPPORT DETAILLE" et qui s'alimente automatiquement. Seulement je voudrais qu'il s'alimente seulement avec les onglets "RAPPORT DETAILLE" visibles et non les masqués.

- Je souhaiterais également que les données saisies dans les cellules en BLEU du "RAPPORT DETAILLE" s'effacent dés lors que l'onglet redevient masqué

Merci par avance de votre aide plus que précieuse
 

Pièces jointes

  • BOULOT PIERRE091123222 ESSAI CACHE3 test internet.xlsm
    54.7 KB · Affichages: 3

pamela85200

XLDnaute Nouveau
Oui effectivement je m'en excuse,

J'ai ouvert 3 demandes sur ce forum, une que j'ai validé et les deux autres que j'ai effectivement regroupé sur ma dernière réponse sur ce post-ci.

Je n'avais pas réfléchi à tout et étant novice c'est assez compliqué pour moi,

désolé
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…