Question sur l'exploitatiion d'une feuille masquée

[zombe]

Salut le forum

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

 

[Compte Supprimé 979]

Re : Question sur l'exploitatiion d'une feuille masquée

Bonjour Zombe,

Bien sur que cela est possible 😉 il faut juste bien identifier l'objet conteneur dans le code

Sur une feuille protégée et masquée, il suffit de déprotéger la feuille avant

A+

 

[zombe]

Re : Question sur l'exploitatiion d'une feuille masquée

Salut BrunoM45 et le forum

Merci pour votre assurance.
Je viens avec un cas concrêts afin que vous l' adaptez pour moi.
J'ai pris note de votre pièce jointe mais j'ai pas bien compris.
La feuille à masquer est PARAMETRE. C'est également dans cette feuille que les informations doivent être copiées et collées dans les feuilles désignées.
Il faut noter que la feuille sera protégée (PARAMETRE).
Encore merci pour le coup de main.

 

[zombe]

Re : Question sur l'exploitatiion d'une feuille masquée

Salut BrunoM45 et le forum

Merci pour votre réponse.
J'ai un cas réel qui doit fonctionner comme suit :
Les éléments à copier se trouvent dans la feuille PARAMETRE.
Cette feuille est protégée et masquée.
Avec le code ci-dessous, j'arrive à ôter le masque, la protection et la copie des éléments vers la destination indiquée.
Le problème que je rencontre est le suivant :
après la copie, la protection de la feuille devrait être selon moi automatique mais c'est pas le cas.
Est-ce une erreur de mon code et comment la rectifier?
Aussi je souhaite que la feuille PARAMETRE soit masquée après l'opération c'est à dire qu'après avoir collée les données de la feuille parametre dans la feuille STATBS tout devrait se réinitialé (feuille parametre protégée et masquée comme avant l'exécution).

Dim a, b, d, e, f, g As String

'Sélection de la valeur de !PARAMETRE E10 et mise en variable

Sheets("parametre").Visible = True
Sheets("parametre").Unprotect "enfant"



    'verification des cellules à copier
    
    If Range("ae7").Value = "" Then
        MsgBox ("Manque le N° du compte")
        ElseIf Sheets("donne").Range("e21").Value = "" Then
        MsgBox ("Le code utilisateur n'est pas renseigné")
   
   
        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")
    Else

    'copie des cellules
    a = Range("ae6").Value
    b = Range("ae7").Value  'nom_prenom
    d = Range("ae9").Value  'téléphone
    e = Range("ae8").Value  'n° compte
    f = Range("ae11").Value  'Réf pièce
    g = Range("ae13").Value  'code agent
    

    'selection de la feuille de destination
    Sheets("statses").Select

    'selection de la première cellule de destination
    Range("b1").Select

    'vérification de la cellule de destination
    If ActiveCell.Value = "" Then 'si la cellule est vide, on colle
        ActiveCell = a
        ActiveCell.Offset(0, 1) = b
        ActiveCell.Offset(0, 2) = e
        ActiveCell.Offset(0, 3) = d
        ActiveCell.Offset(0, 4) = f
        ActiveCell.Offset(0, 5) = g
        
    Sheets("PARAMETRE").Select
    Range("D3").Select
        Exit Sub
    Else 'la cellule n'est pas vide

        'on boucle tant que la cellule de destination n'est pas vide
        Do While ActiveCell.Value <> ""
       
        'selection de la cellule du dessous
        ActiveCell.Offset(1, 0).Select
       
            'si la cellule est vide, on colle
            If ActiveCell.Value = "" Then
        ActiveCell = a
        ActiveCell.Offset(0, 1) = b
        ActiveCell.Offset(0, 2) = e
        ActiveCell.Offset(0, 3) = d
        ActiveCell.Offset(0, 4) = f
        ActiveCell.Offset(0, 5) = g
            Sheets("PARAMETRE").Select
            Range("D3").Select
                Exit Sub
            Else
                'selection de la cellule du dessous
                ActiveCell.Offset(1, 0).Select
            End If

        Loop 'on boucle tant que la cellule n'est pas vide
    End If

    'si la cellule est vide, fin de la boucle, et on colle
    ActiveCell = a
        ActiveCell.Offset(0, 1) = b
        ActiveCell.Offset(0, 2) = e
        ActiveCell.Offset(0, 3) = d
        ActiveCell.Offset(0, 4) = f
        ActiveCell.Offset(0, 5) = g
        Sheets("PARAMETRE").Select
    Range("D3").Select
    Sheets("parametre").Protect "enfant"
    End If

    End Sub

 

[Staple1600]

Re : Question sur l'exploitatiion d'une feuille masquée

Bonsoir



Sheets("parametre")

n'est pas identique à

Sheets("PARAMETRE") 🙄, ce qui est ici n'est pas trop grave, mais mieux vaut être rigoureux, non ?

Sinon ce que tu fais, il faut le défaire, si tu affiches, il faut ensuite masquer (voir ci-dessous)

Sub a()
MsgBox "Afficher la feuille?"
'je rends la feuille visible
Sheets("FEUIL1").Visible = -1
MsgBox "Masquer la feuille?"
'je masque la feuille
Sheets("FEUIL1").Visible = 0
End Sub

Dans la fin de ton code, tu protèges ta feuille mais tu ne la masques pas