Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Problème fonctionnement code VBA

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Pitouche
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

Pitouche

Guest
Bonjour
Débutant en VBA, j'essaie , grâce à des codes collectés sur différents sites de réaliser un classeur sous excel 2007.
Le but de ce programme est de permettre aux personnes autorisées d'enregistrer dans un classeur , les devis réalisés par type d'activité.
Ce classeur comporte plusieurs feuilles accessibles par mots de passe au moyen d'un userform.
Le code permettant l'accès est le suivant:

Private Sub CommandButton1_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Ce code fait référence à une liste de noms de feuilles et de mots de passe correspondants, située dans une feuille nommée "Accueil":

Mot passe Feuille
AdminOV Admin
111111 Automobile
222222 Maintenance
232425 Papeterie
sesame PJ
313233 TOT
414243 TPF
515253 TPF HC
616263 CIM

Ce programme fonctionne pour les 5 premiers mots de passe ,et ne fonctionne plus pour la suite .
Je ne peux pas joindre mon classeur(1Mo)
Pouvez vous m'aider
Merci
 
Trier par date Trier par votes
Re : Problème fonctionnement code VBA

Bonjour Pitouche, et bienvenue à toi,

Sans être catégorique, le problème pourrait venir de la boucle. Essaie en la modifiant comme ceci :

Code: 
Private Sub CommandButton1_Click()
If Me.motpasse <> "" Then
For i = 1 To Range("MotPasse").Rows.Count
If UCase(Me.motpasse) = UCase(Range("motpasse")(i)) Then
temp = Range("feuille")(i)
Sheets(temp).Visible = True
End If
Next i
End If
Unload Me
End Sub

Vérifie également si la plage nommée "MotPasse" est juste.

Espérant avoir aidé.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA

Bonjour Pitouche et bienvenu, bonjour le forum,

dans ton code Range("MotPasse") fait référence à une plage nommée MotPasse. Peut-être cette plage nommée n'a pas été réactualisée et ne prend en compte que les 5 premières valeurs.

Un petit exemple simplifié avec juste l'UserForm et l'onglet contenant la plage nous permettrait de te proposer une solution.

[Édition]
Bonjour Papou-Net on s'est croisé...
 
Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA

Bonjour le fil, bonjour le forum,

La solution est bien ce que je t'avais recommandé dans mon premier post (tout comme Papou-net d'ailleurs) mais comme tu n'as même pas daigné faire cas à mon post je ne peux rien de plus pour toi...
 
Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA

Robert à dit:
Bonjour le fil, bonjour le forum,

La solution est bien ce que je t'avais recommandé dans mon premier post (tout comme Papou-net d'ailleurs) mais comme tu n'as même pas daigné faire cas à mon post je ne peux rien de plus pour toi...
Cliquez pour agrandir...


Robert
Le lien de la réponse précédente ne fonctionne pas ?
 
Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA

Re Pitouche,

Au vu de ton fichier, et comme te l'a également signalé Robert, le problème est bien dans la définition de ta plage "MotPasse".

Tu dois donc la redéfinir, si ce n'est déjà fait.

Cordialement.
 
Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA

Re Pitouche,

Ci-joint copie de ton fichier avec mise-à-jour automatique des noms de plage à l'ouverture : macro "MajPlages" dans Module1 lancée depuis le module ThisWorkbook. Pour passer en pièce jointe, j'ai supprimé toutes les feuilles après la deuxième.

Ainsi tu peux ajouter ou retirer des feuilles et des mots de passe sans te soucier de modifier les plages concernées.

Cordialement.
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Problème fonctionnement code VBA


Merci Beaucoup Papou-net
Très sympa
et merci à Robert pour son intervention
Cordialement
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Résolu(e)
XL 2021 Problème réaffectation variable Objet
Réponses
2
Affichages
234
treza88
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
909
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
N
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
1 K
TooFatBoy
M
  • Question Question
Autres masquer des feuilles en vba
Réponses
1
Affichages
226
sylvanu
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
C
  • Résolu(e)
Autres Code VBA pour recherche et copie/coller de ligne avec mot clé.
Réponses
12
Affichages
1 K
Corentin26270
C
P
  • Question Question
XL 2019 Changer nom d'export en VBA
Réponses
3
Affichages
877
job75
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
744
patricktoulon
J
  • Résolu(e)
XL 2021 insertion d'image provenant d'unecellule dans un userform
2
Réponses
22
Affichages
781
vgendron
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
A
  • Résolu(e)
Microsoft 365 Correction du code vba
Réponses
5
Affichages
662
AD95
A
XLS : Evènements souris 'click' sur la grille & astuces
Réponses
3
Affichages
671
Lu76Fer
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
1 K
Compte Supprimé 979
C
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
1 K
oguruma
S
  • Question Question
XL 2013 recherche intuitif semi automatique dans Combobox (trié et avec valeur unique) inseré en UserForm VBA
2
Réponses
18
Affichages
2 K
Sghaier Chafaa
S
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
1 K
salma_hayek
S
C
  • Question Question
XL 2019 Tableau- creation de lignes: probleme de hauteur de lignes
Réponses
6
Affichages
823
Cheyenne_2021
C
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
879
GClaire
G
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…