XL 2021 Formulaire de navigation

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion olivier1984
  • 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
O

olivier1984

XLDnaute Junior
Bonsoir à tous j'espère que vous allez bien.

J'ai une application dont le formulaire me servant de menu de navigation ne fonctionne pas correctement. L'objectif est de cliquer sur une case du formulaire et elle nous renvoie à la feuille du classeur concernée. Le fichier contient plusieurs feuilles (achats, Stock, TDB, BDD, nouvelle facture, imprimer facture etc...)

Problème : lorsque je clique par exemple sur TDB ça ouvre plutôt la feuille BDD, si je clique sur le bouton nouvelle facture ça va ouvrir la feuille achats etc... Tous les boutons du formulaire fonctionnent Mais n'ouvrent pas la feuille indiquée.

J'aimerais que vous m'aidiez à corriger l'erreur du code VBA afin que le bouton cliqué ouvre la feuille correspondante.

Je suis vraiment très novice en VBA donc j'apprends sur le tas.

Toute aide sera la bienvenue j'en ai vraiment besoin et je suis dans une urgence.

Pièces jointes :
- Fichier Excel
 

Pièces jointes

Trier par date Trier par votes
Bonjour Olivier,
Il me semble qu'il y ait pb dans vos sub de boutons :
VB: 
Private Sub BtnimprimerFactures_Click()
Sheets(Me.BtnimprimerFactures.Caption).Select
'Feuil9.Select

End Sub
Le 1er Sheets(x).select est correct mais le second renvoie à une autre feuille.
Il suffit de le supprimer.
PJ à tester.

( NB : Vous avez des références circulaires qu'il vaudrait mieux résoudre )
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
Dans votre macro "vide_fichier" il y a des noms de feuilles inconnus.
"lignes factures" au lieu de probablement "LISTE DES FACTURES"
"Entrées" n'a pas de feuille correspondante.

De plus lorsqu'on réinitialise un fichier il est bon de demander confirmation au demandeur pour éviter les aneries.
Donc on peut faire :
VB: 
Sub vide_fichier()
    Rep = MsgBox("Voulez vous vraiment réinitialiser ce fichier ?" & Chr(10) & _
                "Cela durera quelques secondes.", vbYesNo, vbCritical)
    If Rep = vbNo Then Exit Sub
    Sheets("LISTE DES FACTURES").[a2:f1000,i2:i1000].ClearContents
    Sheets("REGLEMENTS").[h2:h1000,e4:e1000].ClearContents
    Sheets("STOCK PRODUITS").[j7:j1000,m7:m1000].ClearContents
    'Sheets("Entrées").[f2:f1000,a2:c1000].ClearContents
    MsgBox "Traitement terminé", vbInformation
End Sub
La ligne de "Entrées" est en commentaires, à rectifier.

NB : pour les MSGBOX il y a un très bon tuto sur toutes les possibilités :
www.automateexcel.com

VBA - Boîte de Dialogue Oui-Non (Msgbox)

Ce tutoriel explique comment utiliser la fonction VBA MsgBox pour afficher des boîtes de message aux utilisateurs (y compris la boîte de message YesNo).
www.automateexcel.com www.automateexcel.com
Vous avez aussi un petit outil pour construire graphiquement le msgbox, et il vous donne le code à mettre dans le VBA :
Icône de la ressource sylvanu

Construction automatique d'un MsgBox

Construire un MsgBox rapidement.
 
Dernière édition:
Vote positif 0 Vote négatif
Bonsoir olivier1984, sylvanu,

On peut utiliser l'UserForm USFmenuPro comme module de classe avec ce code :
VB: 
Public WithEvents CB As MSForms.CommandButton

Private Sub CB_Click()
Sheets(CB.Caption).Select
End Sub

Private Sub CB_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CB.BackColor = IIf(X > 4 And X < CB.Width - 4 And Y > 4 And Y < CB.Height - 4, RGB(15, 215, 15), RGB(255, 255, 255))
End Sub
La classe est initialisée avec ce code dans Module1 :
VB: 
Dim CB() As New USFmenuPro 'mémorise la variable

Sub menu()
Dim c As Control, n
With USFmenuPro
    For Each c In .Controls
        ReDim Preserve CB(n)
        Set CB(n).CB = c
        n = n + 1
    Next
    .Show
End With
End Sub
A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonsoir olivier1984, sylvanu,

On peut utiliser l'UserForm USFmenuPro comme module de classe avec ce code :
VB: 
Public WithEvents CB As MSForms.CommandButton

Private Sub CB_Click()
Sheets(CB.Caption).Select
End Sub

Private Sub CB_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CB.BackColor = IIf(X > 4 And X < CB.Width - 4 And Y > 4 And Y < CB.Height - 4, RGB(15, 215, 15), RGB(255, 255, 255))
End Sub
La classe est initialisée avec ce code dans Module1 :
VB: 
Dim CB() As New USFmenuPro 'mémorise la variable

Sub menu()
Dim c As Control, n
With USFmenuPro
    For Each c In .Controls
        ReDim Preserve CB(n)
        Set CB(n).CB = c
        n = n + 1
    Next
    .Show
End With
End Sub
A+
job75 à dit:
Bonsoir olivier1984, sylvanu,

On peut utiliser l'UserForm USFmenuPro comme module de classe avec ce code :
VB: 
Public WithEvents CB As MSForms.CommandButton

Private Sub CB_Click()
Sheets(CB.Caption).Select
End Sub

Private Sub CB_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
CB.BackColor = IIf(X > 4 And X < CB.Width - 4 And Y > 4 And Y < CB.Height - 4, RGB(15, 215, 15), RGB(255, 255, 255))
End Sub
La classe est initialisée avec ce code dans Module1 :
VB: 
Dim CB() As New USFmenuPro 'mémorise la variable

Sub menu()
Dim c As Control, n
With USFmenuPro
    For Each c In .Controls
        ReDim Preserve CB(n)
        Set CB(n).CB = c
        n = n + 1
    Next
    .Show
End With
End Sub
A+
Cliquez pour agrandir...
Bonjour Job 75 j'espère que tu vas bien.

Sincèrement je suis très ravi de ta proposition qui répond la mieux à mon problème qui est du coup totalement réglé et j'en suis ravi.

En effet le code que tu as utilisé est 1000 fois meilleur que celui que j'avais utilisé car beaucoup moins de lignes de codes et facile à adapter en cas d'ajout de nouvelles feuilles.

Je te dis encore 1000 fois merci tu m'as trouvé la solution à mon problème (même si en réalité je n'y comprends rien à ce code que tu as mis car je suis novice en VBA ce qui m'intéressait c'est le résultat).
Cliquez pour agrandir...

sylvanu à dit:
Re,
Dans votre macro "vide_fichier" il y a des noms de feuilles inconnus.
"lignes factures" au lieu de probablement "LISTE DES FACTURES"
"Entrées" n'a pas de feuille correspondante.

De plus lorsqu'on réinitialise un fichier il est bon de demander confirmation au demandeur pour éviter les aneries.
Donc on peut faire :
VB: 
Sub vide_fichier()
    Rep = MsgBox("Voulez vous vraiment réinitialiser ce fichier ?" & Chr(10) & _
                "Cela durera quelques secondes.", vbYesNo, vbCritical)
    If Rep = vbNo Then Exit Sub
    Sheets("LISTE DES FACTURES").[a2:f1000,i2:i1000].ClearContents
    Sheets("REGLEMENTS").[h2:h1000,e4:e1000].ClearContents
    Sheets("STOCK PRODUITS").[j7:j1000,m7:m1000].ClearContents
    'Sheets("Entrées").[f2:f1000,a2:c1000].ClearContents
    MsgBox "Traitement terminé", vbInformation
End Sub
La ligne de "Entrées" est en commentaires, à rectifier.

NB : pour les MSGBOX il y a un très bon tuto sur toutes les possibilités :
www.automateexcel.com

VBA - Boîte de Dialogue Oui-Non (Msgbox)

Ce tutoriel explique comment utiliser la fonction VBA MsgBox pour afficher des boîtes de message aux utilisateurs (y compris la boîte de message YesNo).
www.automateexcel.com www.automateexcel.com
Vous avez aussi un petit outil pour construire graphiquement le msgbox, et il vous donne le code à mettre dans le VBA :
Icône de la ressource sylvanu

Construction automatique d'un MsgBox

Construire un MsgBox rapidement.
Cliquez pour agrandir...
Bonsoir mon cher Sylvanu et merci pour ta proposition qui a aussi bien fonctionné même si j'ai préféré le code de job 75 qui était beaucoup plus court ce qui facilite les manipulations à venir...

Merci pour tes remarques en général et ta proposition sur la macro "vide fichier" qui fonctionne déjà à merveille.

Le logiciel étant en développement, je vous reviens très bientôt pour d'autres petits problèmes de code.

Bonne soirée à toi
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Olivier,
Il me semble qu'il y ait pb dans vos sub de boutons :
VB: 
Private Sub BtnimprimerFactures_Click()
Sheets(Me.BtnimprimerFactures.Caption).Select
'Feuil9.Select

End Sub
Le 1er Sheets(x).select est correct mais le second renvoie à une autre feuille.
Il suffit de le supprimer.
PJ à tester.

( NB : Vous avez des références circulaires qu'il vaudrait mieux résoudre )
Cliquez pour agrandir...
Merci pour ce retour.

Je ne sais pas comment y procéder ne serait-ce que pour détecter les cellules concernées

Peux-tu m'aider stp à supprimer ces références circulaires ?

Merci
 
Vote positif 0 Vote négatif
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

Discussions similaires

Eric 888
  • Résolu(e)
Microsoft 365 rendre visible automatiquement l'onglet de la feuille active sur la barre de navigation inférieure
Réponses
11
Affichages
1 K
Eric 888
Eric 888
M
  • Question Question
tableau de bord pour la gestion mon entreprise (regie publicitaire)
Réponses
14
Affichages
389
Piment
P
C
  • Résolu(e)
XL 2019 Problème de transferts de données formulaire à feuille
Réponses
5
Affichages
276
ceralpes
C
L
  • Résolu(e)
XL 2021 Aide VBA pour appli Gestion de stock
Réponses
2
Affichages
871
LuckyShuri
L
halecs93
  • Résolu(e)
XL 2016 Afficher Onglet par VBA
Réponses
10
Affichages
705
Lolote83
L
kkamadou
  • Question Question
importation de donnees dans un fichier excel dans un formulaire
Réponses
3
Affichages
664
kkamadou
kkamadou
L
  • Question Question
Microsoft 365 Faire agir une macro en fonction de l'emplacement du bouton
Réponses
2
Affichages
670
AtTheOne
AtTheOne
Electron24
  • Résolu(e)
Microsoft 365 Ouvrir boite de message outlook
Réponses
6
Affichages
650
Electron24
Electron24
100kibou
  • Question Question
XL 2021 Intégration de données et userfom
Réponses
9
Affichages
1 K
100kibou
100kibou
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
3 K
dysorthographie
dysorthographie
A
  • Résolu(e)
Microsoft 365 Personnalisation du calendrier de Patrick Toulon
Réponses
6
Affichages
877
patricktoulon
patricktoulon
L
  • Résolu(e)
Microsoft 365 Création d'un code VBA pour sélectionner des zone selon choix multiples.
Réponses
3
Affichages
654
Lionel Alfred
L
A
  • Question Question
Microsoft 365 Afficher la valeur d'une cellule en fonction de 3 conditions via VBA
Réponses
2
Affichages
796
Ay-Ricko
A
L
  • Question Question
XL 2016 Recherche de partie de mot dans les cellules d'un tableau et extractions des résultats
2
Réponses
29
Affichages
2 K
Lorenzini
L
M
  • Résolu(e)
XL 2019 Récupérer nom de feuille
2
Réponses
22
Affichages
2 K
AtTheOne
AtTheOne
M
  • Question Question
XL 2019 Problème vba ventilation de donnée dans autre feuilles demande de l'aide au vrai pro merci
Réponses
2
Affichages
422
micke89
M
chaelie2015
  • Résolu(e)
XL 2013 (RESOLU) Classement par zone (de 01 - 50) selon la cellule D5
Réponses
12
Affichages
860
chaelie2015
chaelie2015
Y
  • Question Question
Microsoft 365 Problème de dernière ligne dans un tableau
2
Réponses
19
Affichages
2 K
Cousinhub
Cousinhub
L
  • Question Question
Autres Copier des données d’un fichier sans l’ouvrir juste en le sélectionnant via un UserForm
Réponses
6
Affichages
957
Liner77
L
J
  • Question Question
XL 2019 Formulaire Recherche Classeur
2
Réponses
21
Affichages
2 K
Hasco
Hasco
Retour