Comment exploiter des données sur une feuille masquée

Question

Je souhaite masquer certaines des feuilles d'un de mes fichiers. J'ai des inquiétudes sur la possibilité de pouvoir exploiter les données contenues dans ces feuilles. Est-il possible de pouvoir exploiter les données d'une feuille masquée comme une feuille non masquée? Pour être précis, une macro dont l'objet est de copier des données d'une feuille vers une autre peut-elle bien fonctionner si les données à copier sont sur la feuille protégée? Sinon y'a t-il une possibilité de pouvoir le faire quand bien la feuille est masquée? Merci à tous...

lermite · Answer

Drôle de question.. Fais l'essai et tu verras bien par toi-même A+...

lermite · Answer

Je réitère ma réponse du poste précédant... Tu fais un test !!

Si tu comprend pas, un exemple

Ouvrir Nouveau classeur

Mettre une valeur dans la feuille2 en A1

Mettre le code ci-dessous dans un module et le lancer,

Sub TestFeuilleCachée()
    Sheets("Feuil2").Visible = False
    Sheets("Feuil1").[A1] = Sheets("Feuil2").[A1]
End Sub

Si protégée !! faut alors ajouter la déprotection avec UnProtect.

Ça répond à ta question ?

A+

lermite · Answer

J'ai tenté d'optimiser (et de faire fonctionner) ton code mais c'est impossible de décrypter ce que tu veux faire !!

    'verification des identifiants
   'Sur quel feuille ?????????????????
    If Range("ae7").Value = "" Then
        MsgBox ("Manque le N° du compte")

Tu rend la feuille Paramètres accessible mais tu ne t'en sert nul part ??? du moins ça n’apparaît pas dans le code

Explique (sans code) ce que tu veux EXACTEMENT

A+

lermite · Answer

La feuille sera toujours accessible à l'affichage, clic droit sur un onglet quelconque et afficher. La protection par mot de passe sert juste a bloquer la modification de la feuille. Il y a moyen de faire ce que tu veux par VBA, j'y cogite. A+...

lermite · Answer

Essaye ce code

Sub Copier()
Dim TB(5) As String
Dim LigneVide As Long, i As Integer
    Sheets("PARAMETRE").Visible = xlSheetVeryHidden
    'verification des identifiants

    If Sheets("PARAMETRE").Range("AE7").Value = "" Then
        MsgBox ("Manque le N° du compte")
        Exit Sub
    ElseIf Sheets("donne").Range("e21").Value = "" Then
        MsgBox ("Le code utilisateur n'est pas renseigné")
        Exit Sub
    ElseIf Application.WorksheetFunction.CountIf(Sheets("statses").Range("C2:C" & Sheets("statses").Range("c65536").End(xlUp).Row), Range("ae7").Value) > 0 Then
        MsgBox ("Ce compte est déjà présent dans la feuille statses")
        Exit Sub
    End If
    With Sheets("PARAMETRE")
    'copie des cellules
        TB(0) = .Range("ae6").Value
        TB(1) = .Range("ae7").Value     'nom_prenom
        TB(3) = .Range("ae9").Value      'téléphone
        TB(2) = .Range("ae8").Value      'n° compte
        TB(4) = .Range("ae11").Value      'Réf pièce
        TB(5) = .Range("ae13").Value      'code agent
    End With

    'Avec la feuille de destination
    With Sheets("statses")
        'selection de la première cellule vide
        LigneVide = .Cells(Rows.Count, 2).End(xlUp).Row
        If LigneVide > 1 Then LigneVide = LigneVide + 1
        'Copie les données
        For i = 1 To 5
            .Cells(LigneVide, i + 1) = TB(i)
        Next i
    End With
End Sub

Pa besoin de protection sur la feuille, elle est uniquement accessible en VBA

Si tu veux vraiment la protéger met un mot de passe sur l'IDE.

note que la ligne Sheets("PARAMETRE").Visible = xlSheetVeryHidden n'est nécessaire qu'une seule fois.

J'ai pas tester,

Note, si tu veux voir la feuille Paramètre copie la sub ci-dessous dans un module et la lancer

Sub AFFICHER()
    Sheets("PARAMETRE").Visible = True
End Sub

C'est la seule façon de la voire.

A+

lermite · Answer

La ligne que tu montre n'a rien à voir avec le problème que tu souligne. Et si ça commence en A au lieu de B c'est que tu à modifier le code que je t'ai montré, explique c e que tu a fais A+...

lermite · Answer

Dans la ligne With Sheets("statses") Tu n'a que de changer le nom de la feuille et les données seront copiées dessus. A+...

lermite · Answer

Automatiser ne pose aucun problème, juste qu'il faudrait connaitre les critères qui détermine la feuille...

lermite · Answer

Je veux bien t'aider mais de là à te pondre ton appli en entier il y a de la marge.

Quelque conseils..

1°) Voir comment on peu définir le 1er et dernier jour d'une semaine

2°) Voir comment créer une nouvelle feuille avec le nom qui comprend ces jours.

Fais déjà ça pour avancer

A+

lermite · Answer

Bonne idée avec le nom de l'onglet dans une cellule.

Tu peu alors mettre

With Sheets(Range("A1").Value)

par exemple..

Coçntinue à cogiter.;

Et n'oublie pas de te servir de l'éditeur de macros, notamment pour créer une nouvelle feuille et changer son nom.

A+