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

Améliorer mon code par faciliter son utilisation

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion zombe
  • 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
Z

zombe

XLDnaute Occasionnel
Salut le forum

Je souhaite qu'on m'aide à ameliorer le code ci-dessous.
En effet, avec le meme bouton, j'arrive à exécuter des macros.
A chaque fois que je click sur le bouton, il change de nom conformement à ce que j'ai définis.
Le problème que je rencontre est le suivant :
je ne peux que sélectionner une feuille;pour pouvoir sélectionner une autre feuille, je suis obligé de quitter l'usf pour le relancer.
Je souhaite qu'après IMPRIMER il y'ait une réinitialisation c'est à dire que ca recommence avec feuille afin que je puisse sélectionner une autre feuille et l'imprimer au besoin.
[/CODE]Private Sub Cexit_Click()
Select Case Left(Cexit.Caption, 1)
Case "F"
Call Menu
Case "I"
If MsgBox("Etes-vous certain de vouloir Imprimer?", vbYesNo, "Demande de confirmation") = vbYes Then
Call printer
End If
End Select
Cexit.Caption = IIf(Cexit.Caption = "Feuilles", "Imprimer")
End Sub
Code: 
Je reste à votre disposition pour de plus amples éclaircissemebnts.
 
Trier par date Trier par votes
Re : Améliorer mon code par faciliter son utilisation

Bonjour Zombe,

A voir avec ce code
Code: 
Private Sub Cexit_Click()
  Select Case Left(Cexit.Caption, 1)
  Case "F"
    Call Menu
  Case "I"
    If MsgBox("Etes-vous certain de vouloir Imprimer?", vbYesNo, "Demande de confirmation") = vbYes Then
      Call printer
      Cexit.Caption = "Feuilles"
    End If
  End Select
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Salut BrunoM45

Merci pour le feedback.
J'ai essayé mais le case I ne passe.
Quand je click sur la commande Feuille, les feuilles apparaissent et quand je sélectionne la feuille souhaitée, la commande ne me propose pas "Imprimer ".
Merci de voir svp!
 
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Re,

Sans fichier; c'est difficile de pouvoir t'aider, mais essaye ceci
Code: 
Private Sub Cexit_Click()
  Select Case Left(Cexit.Caption, 1)


  Case "F"
    Call Menu
    Cexit.Caption = "Imprimer"


  Case "I"
    If MsgBox("Etes-vous certain de vouloir Imprimer?", vbYesNo, "Demande de confirmation") = vbYes Then
      Call printer
    End If
    Cexit.Caption = "Feuilles"


  End Select
End Sub

A+
 
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Salut BrunoM45

Ci-joint le fichier avec mon code à adapter.
Vous constaterez que lorsque j'ouvre mon usf, si je click sur le bouton Feuilles, les différentes feuilles de mon classeur s'affichent me permettant de choisir la feuille souhaité.
Après avoir choisi la feuille, le caption change et devient Imprimer et après avoir valider l'impression, il se transforme en quitter.
Je souhaite le limiter à Imprimer et après cela il redevient à Feuilles.
Merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Mon cher Zombe,

Tu aurais remplacer le code existant par celui que je t'ai donné #4
il me semble que tu n'aurais plus le problème actuellement 🙄

Alors maintenant, tu fais comme tu veux ....
 
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Salut BrunoM45

Merci pour le feedback.
Ne prenez pas ca comme cela.
J'ai voulu laisser le fichier avec mon code initial afin que vous appréciez le fonctionnement du bouton et pouvoir me l'adapter selon mes nouvelles conditions.
Bonne compréhension
 
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation

Mon cher Zombe
zombe à dit:
Merci pour le feedback.
Ne prenez pas ca comme cela.
J'ai voulu laisser le fichier avec mon code initial afin que vous appréciez le fonctionnement du bouton et pouvoir me l'adapter selon mes nouvelles conditions.
Bonne compréhension
Cliquez pour agrandir...
Je ne sais pas comment tu as lu mon précédent post, mais ne le prend pas comme cela... 😛

Je réitère, il suffit de remplacer le code par celui déjà donné

Si un copier/coller est difficile pour toi, je ne pourrais t'aider d'avantage
 

Pièces jointes

  • M3MOREAU_Ahuri.gif
    4.3 KB · Affichages: 53
  • M3MOREAU_Ahuri.gif
    4.3 KB · Affichages: 53
Vote positif 0 Vote négatif
Re : Améliorer mon code par faciliter son utilisation (RESOLU)

Salut BrunoM45

Je l'avais testé et il ne fonctionnait pas.
Vous m'avez demandé un fichier et c'est ce que j'ai fait.
Je viens de tester avec votre code du post#4 et ca marche.
Dans la 1ère machine ou j'ai réalisé le test, il ne fonctionnait pas mais sur mon PC portable c'est ok.
Merci
 
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

Discussions similaires

C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
195
sylvanu
  • Résolu(e)
Microsoft 365 Découper un fichier en plusieurs fichiers
2
Réponses
24
Affichages
824
nat54
A
  • Question Question
XL 2021 listbox
2
Réponses
18
Affichages
736
Dranreb
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
429
patricktoulon
S
  • Résolu(e)
XL 2013 Sélection entre deux MsgBox...
2
Réponses
29
Affichages
882
Dudu2
Capturer et imprimer ou exporter en pdf un userform
Réponses
4
Affichages
611
PHV62
P
F
  • Question Question
XL 2021 bug "lib32" suite à passage à office 2021
Réponses
6
Affichages
432
fredl
F
  • Question Question
XL 2021 Code manufacturier et fabricant (Ram) suite projet en cours ( à tester s'il vous plait )
2 3
Réponses
42
Affichages
2 K
TooFatBoy
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
586
ManuEven
M
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
805
MBEPID
M
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
531
NONO14
N
B
  • Question Question
XL 2019 Dans une macro de démarrage de fichier masquer le code par des Astérix ou point
Réponses
3
Affichages
542
sylvanu
  • Résolu(e)
XL 2016 Excel code vba motus
Réponses
11
Affichages
672
papychat1
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
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
P
  • Question Question
Microsoft 365 Remplacer elseif par select Select Case
Réponses
7
Affichages
355
pat66
P
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
1 K
Nel'
N
C
  • Question Question
XL 2016 accès feuilles masquées par bouton
2
Réponses
26
Affichages
1 K
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…