Gestion utilisateur onglet visible ou non

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #2

Re : Gestion utilisateur onglet visible ou non

Bonjour

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

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #3

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

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #4

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é

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #5

Re : Gestion utilisateur onglet visible ou non

Tout se déroule correctement jusqu'à

Code:

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

Code:

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

 

Dernière édition: 15 Décembre 2013

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #6

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

 

Dernière édition: 15 Décembre 2013

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #7

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"

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #8

Re : Gestion utilisateur onglet visible ou non

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #9

Re : Gestion utilisateur onglet visible ou non

après feuil1 ca plante ?

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #10

Re : Gestion utilisateur onglet visible ou non

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

Ça plante après le deuxième !

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #11

Re : Gestion utilisateur onglet visible ou non

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

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 15 Décembre 2013

• #12

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #13

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #14

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

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 15 Décembre 2013

• #15

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

 

Vote positif 0 Vote négatif