Discussion :

[Belgothar]

Bonjour tout le monde,

Je viens vers vous car je suis débutant en VBA et pour les besoin de l'entreprise dans laquelle je me trouve, je dois mettre au point un fichier excel qui soit composé d'onglets accessibles par chaque collaborateur.

Pour ce faire, je me suis inspiré d'un programme trouvé sur internet, que j'ai modifié quelque peu (rien de bien méchant, surtout en termes de noms ...).

Le programme demande un identifiant et un mdp. Si le mdp est bon, il choisit la ligne du tableau correspondant à l'identifiant et commence à boucler à partir de la colonne voulue (7) jusqu'à la dernière colonne (36) afin de repérer les cellules remplies d'un "x". Auquel cas, il montre l'onglet. Dans le cas contraire, il le cache.

Les variables prennent bien les valeurs voulues, et lorsque je modifie en brut cela semble marcher, mais le programme que je souhaite ci-dessous ne veut rien entendre, il m'indique une erreur à la ligne en rouge. Et là j'avoue je ne vois pas d'où cela peut venir.

Si vous avez une idée.

Sub AfficheFeuilles(Identifiant As String)
Dim i As Integer, Lig As Integer

With Sheets("Gestion")
'dans la feuille Gestion comme on va boucler de la colonne G : 7 à la colonne AJ : 36
'on cherche colonne E l'identifiant saisi et on stocke son num de ligne
Lig = .Columns(5).Cells.Find(Identifiant, lookat:=xlWhole).Row
For i = 7 To 36
If UCase(.Cells(Lig, i)) = "x" Then
'si on trouve un "x" dans la cellule
Sheets(.Cells(5, i).Value).Visible = True
'on affiche la feuille
Else
Sheets(.Cells(5, i).Value).Visible = xlSheetVeryHidden
'sinon on la masque
End If
Next i
End With
End Sub

Message d'erreur :

Erreur d'exécution '1004':
Impossible de définir la propriété Visible de la classe Worksheet

Dans l'exemple ci-dessus, je choisi le collaborateur admin (accès à tous les onglets). Il se trouve en ligne 32.
Les variables ont les valeurs suivantes lors du débogage :
Lig = 32
i = 7

Aperçu du tableau :



Merci d'avance pour votre aide !!

[lucasgaetan]

bonjour Belgothar,

Je ne vois pas se qui cloche
tu peux toujours essayer:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With ThisWorkbook.Sheets("Gestion")

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets(.Cells(5, i).Value).Visible = True

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets(.Cells(5, i).Value).Visible = xlSheetVeryHidden

Vérifie que tes cellules de la ligne 5 ne soit pas fusionnées
au pire, mets ton fichier en pièces jointes.

DE plus tu as une erreur à :If UCase(.Cells(Lig, i)) = "x" Then
UCase convertie en majuscules donc ="X"

a+

[Menhir]

Commence par mettre un Debug.Print entre le else et la ligne rouge pour afficher TOUTES les variables et contenu de cellule qui dont utilisées dans cette ligne rouge.

Est-ce que la feuille que tu essayes de cacher ne serait pas sélectionnée à ce moment-là ?

[Belgothar]

bonjour Belgothar,

DE plus tu as une erreur à :If UCase(.Cells(Lig, i)) = "x" Then
UCase convertie en majuscules donc ="X"

a+

Allelujah !!!

C'était aussi con que ça, je n'avais même pas fait attention à mettre les x en majuscule !

Merci beaucoup pour votre aide à tous les deux.

Je note aussi pour le Debug.Print Ca peut être utile !

Votre humble débiteur, Belgothar

[Philippe Tulliez]

Bonjour,
En plus de la conversion du caractère comparé en majuscule, je te conseille vivement d'ajouter la fonction Trim() qui enlève les espaces avant et après le caractère. Ce n'est pas un luxe inutile car il n'est pas rare d'avoir des espaces parasites placés avant ou pires après le caractère testé. Cela t'évitera des heures de recherche.
Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Trim(UCase(.Cells(Lig, i))) = "X" Then