Discussion :

[counterbob]

Bonjour
Sur une feuille "parametre" la colonne A2:A20 contient les Mots de passe, la colonne B2:B20 contient le nom des feuilles.
Les feuilles sont masquées par défaut par Feuille.Visible = xlVeryHidden
Je souhaiterais afficher la feuille correspondant au mot de passe saisie dans un inputbox.
j'ai réalisé ce code mais ça bloque sur la ligne 8 "erreur d'exécution '91' variable objet ou variable de bloc With non définie."

Merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub AfficheOnglet()
 
    Dim MDP As String
    Dim c As Range
    Dim sh As String  'valeur à trouver dans la colonne B
    MDP = InputBox("Veuillez entrer le mot de passe.")
    Set c = Sheets("parametre").Range("A1:A20").Find(MDP, LookIn:=xlValues, lookat:=xlWhole)
    c.Offset(0, 1).Select 'sélection de la cellule colonne B
    sh = ActiveCell.Value
    Sheets(sh).Visible = True 'afficher la feuille
    If Not c Is Nothing Then
    Sheets(sh).Activate 'activer la feuille
    Set c = Nothing
Else
   MsgBox "valeur " & MDP & " Invalide"
End If
 
End Sub

[Marc-L]

Bonjour !

Ta variable c est vide (= Nothing) car la recherche a juste échouée !
Voir donc l'exemple dans l'aide VBA interne de la méthode Range.Find …

P'tit rappel :   sélectionner une cellule n'est pas nécessaire pour lire son contenu.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

[counterbob]

Bonjour !

Ta variable c est vide (= Nothing) car la recherche a juste échouée !
Voir donc l'exemple dans l'aide VBA interne de la méthode Range.Find …

P'tit rappel :   sélectionner une cellule n'est pas nécessaire pour lire son contenu.

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Nigeria, New-York, Mogadicio, Barcelone, London, Manchester, Stockholm, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci
J'ai modifier le code et c'est bon
@+

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub AfficheOnglet()
On Error Resume Next
Dim MDP As String, sh As String, i As Long
With Sheets("parametre")
MDP = InputBox("Veuillez entrer le mot de passe.")
For i = 2 To 21
If .Cells(i, 1) = MDP And .Cells(i, 2) <> "" Then
    sh = .Cells(i, 2).Value
    Sheets(sh).Visible = True 'afficher la feuille
    Sheets(sh).Activate 'activer la feuille
Exit Sub
ElseIf i = 21 Then
MsgBox "Le mot de passe saisi : " & MDP & " est invalide ou non trouvé !", vbCritical, "Erreur"
End If
Next i
End With
End Sub