Gestion utilisateur onglet visible ou non

[julien34]

Bonjour à tous,

J'ai besoin d'un coup de main sur un code que je n'arrive pas à adapter à mon appli.
Ci joint le fichier qui fonctionne.
Impossible de le faire fonctionner chez moi.

Il plante sur

Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille

Pouvez vous m'aider svp ?
Est ce parce que le nombre d'onglets diffèrent ? ou autre ?

Merci de m'éclairer ...

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

Bonjour

il faudait peut-être mieux voir le fichier qui ne fonctionne pas pour trouver l'erreur !!!!

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Bonjour,

Je sais qu'avec le fichier qui ne fonctionne pas ce serait mieux mais pb de confidentialité ( grille tarifaire etc ....)
Je tente de faire un fichier test et je le poste !
Merci

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Re,

J'ai essayé sur un classeur vierge ça marche. Donc je conçois qu'il est difficile pour vous de comprendre pourquoi ça ne fonctionne pas chez moi sur mon appli. Mais ne pouvant pas divulguer certaines info, je ne sais pas trop comment procéder ! Bien bloqué

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Tout se déroule correctement jusqu'à

Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer

With Sheets("Droitsusers") 'dans la feuille paramétrage
    'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
    Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
    'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
    Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
    'boucle à partir de 3 car Feuil1 toujours affichée
    For i = 3 To Col
        If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
            Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
        Else
           Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
        End If
    Next i
End With
End Sub

Et il plante sur

Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

cette feuille existe t elle ?

faites avant soit un msgbox sheets(.cells(1,i).value).name
ou faites un débogage
Debug.Print Sheets(.Cells(1, i).Value).Name

vous pouvez voir dans la fenêtre "Execution" le nom des feuilles

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Bonjour gilbert_RGI,

Je ne connais pas cette méthode.
J'ai placé un msgbox sheets(.cells(1,i).value).name

Résulat, j'ai 2 msg box apres avoir rentré identifiant et mdp
"parametrage" et "feuil1"

Tu peux m'orienter stp?
Merci d'avance

PS: J'ai renommé la feuille "Droitusers" par "parametrage"

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Pour info, dans vba j'ai
feuil7 (paramétrage)
feuil29 (feuil1)

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

après feuil1 ca plante ?

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

Non j'ai les 2 msgbox successifs
"parametrage" et "feuil1"

Ça plante après le deuxième !

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

donc c'est la feuil1 qui ne trouve pas ?
ou c'est la feuil x suivante ?

 

[julien34]

Re : Gestion utilisateur onglet visible ou non

La feuil1 il la trouve puisque c'est là qu'on lui demande d'afficher le userform pour rentrer id et mdp et ça marche!
C'est après validation que ça plante
Très honnêtement là j'suis un peu perdu

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

comment as tu placé la ligne

Sub AfficheFeuilles(Utilisateur As String)
Dim Col As Byte, i As Byte, Lig As Integer
With Sheets("parametrage") 'dans la feuille paramétrage
'comme on va boucler de la colonne 4 à la dernière colonne, on stocke le n° de la dern colonne :
Col = .Cells(1, .Cells.Columns.Count).End(xlToLeft).Column
'on cherche colonne A le nom d'utilisateur saisi et on stocke son num de ligne
Lig = .Columns(1).Cells.Find(Utilisateur, lookat:=xlWhole).Row
'boucle à partir de 3 car Feuil1 toujours affichée
For i = 3 To Col
If UCase(.Cells(Lig, i)) = "X" Then 'si on trouve un "X" dans la cellule
Debug.Print Sheets(.Cells(1, i).Value).Name' <---------------------------------c'est ici qu'il faut la mettre
Sheets(.Cells(1, i).Value).Visible = True 'on affiche la feuille
Else
Sheets(.Cells(1, i).Value).Visible = xlSheetVeryHidden 'sinon on la masque
End If
Next i
End With
End Sub

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

ou alors places un on error resume next au debut de la procédure après le dim

 

[gilbert_RGI]

Re : Gestion utilisateur onglet visible ou non

le plus simple enleves toutes les données confidentielles sauvegarde le fichier en tartempion et mets le sur le forum 5minutes