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

[pamela85200]

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]

Bonjour Pamela,
Il faut regarder la propriété "Visible" pour savoir si une feuille est masquée ou non.
Un ex en PJ avec :

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

 

[pamela85200]

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.

 

[Phil69970]

Bonjour à tous

@pamela85200

Je te propose ce fichier

Merci de ton retour

 

[sylvanu]

Bonjour Pamela, Phil,
Un essai en PJ avec :

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

 

[pamela85200]

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

 

[Phil69970]

Re

@pamela85200
Il serait bon de répondre aux 2 ou 3 questions déjà posé cela te donnerait peut être des pistes de réponses au lieu d'ouvrir x demandes à la suite des autres et ne plus savoir ou et quoi répondre !!!

 

[pamela85200]

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é