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

Lancer un userform, le fermer puis continuer l'exécution de la macro

Créer une discussion

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
E

Everlast03

XLDnaute Occasionnel
Bonjour,

Je pense que tout est dans le titre mais je vais quand même approfondir mon explication.
Je créé une macro qui, d'après un test lance un userform (ou apparait des données à consulter). Une fois que j'ai pris note de celles-ci je peux donc fermer l'userform (grâce à un bouton simple). Puis ensuite, je veux continuer à exécuter ma macro.

Mon fichier est énorme donc je poste ma macro :
Code: 
Sub Macro()
fin = Range("a65535").End(xlUp).Row
cat1 = "Catégorie 1 (de 4 à 15J). Coûts moyens : 499€"
cat2= "Catégorie 2 (de 16 à 30J). Coûts moyens : 599€"
cat3 = "Catégorie 3 (de 31 à 51J). Coûts moyens : 699€"
cat4 = "Catégorie 4 (de 52 à 72J). Coûts moyens : 799€"
   
    For i = 14 To fin
    Cells(i, 23).Value = Cells(1, 1).Value - Cells(i, 3).Value
    
    If Cells(i, 23).Value > 9 And Cells(i, 23).Value < 16 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 39 And Cells(i, 23).Value < 46 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 84 And Cells(i, 23).Value < 91 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 144 And Cells(i, 23).Value < 151 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

'C est ici que je voudrais reprendre pour continuer mon test    
Next
End Sub

Merci d'avance
 
Trier par date Trier par votes
Re : Lancer un userform, le fermer puis continuer l'exécution de la macro

Bonjour
tu dois mettre une variable public déclarer dans un modules type boolean que tu vérifie a l'entrée de ta macro
lors du click du bouton tu met celle ci = true
dans ta macro tu conditionne
I mavariable=true goto ici
tu met "ici:" ou tu veux reprendre le code et tu met le code ci dessous a la fermeture.

dans
Code: 
Private Sub UserForm_Terminate()
call macro
End Sub
A+
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Lancer un userform, le fermer puis continuer l'exécution de la macro

fhoest à dit:
Bonjour
il suffit de faire appel a ta macro a la fermeture du usf
dans
Code: 
Private Sub UserForm_Terminate()
call macro
End Sub
A+
Cliquez pour agrandir...


Oui, mais si je veux continuer mon test (je ne veux pas relancer la macro sinon ça me lancera le même message), je veux qu'il fasse le test sur la ligne suivante et ainsi de suite... ??
 
Vote positif 0 Vote négatif
Re : Lancer un userform, le fermer puis continuer l'exécution de la macro


Euh j'ai pas tout compris comment mettre en boulean etc ... Tu pourrais expliquer ?
Je suis débutant 🙄
 
Vote positif 0 Vote négatif
Re : Lancer un userform, le fermer puis continuer l'exécution de la macro

Re,
dans le haut d'un module
Code: 
Public saut As Boolean


Sub Macro()
If saut = True Then GoTo ici
fin = Range("a65535").End(xlUp).Row
cat1 = "Catégorie 1 (de 4 à 15J). Coûts moyens : 499€"
cat2 = "Catégorie 2 (de 16 à 30J). Coûts moyens : 599€"
cat3 = "Catégorie 3 (de 31 à 51J). Coûts moyens : 699€"
cat4 = "Catégorie 4 (de 52 à 72J). Coûts moyens : 799€"
   
    For i = 14 To fin
    Cells(i, 23).Value = Cells(1, 1).Value - Cells(i, 3).Value
   
    If Cells(i, 23).Value > 9 And Cells(i, 23).Value < 16 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 39 And Cells(i, 23).Value < 46 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 84 And Cells(i, 23).Value < 91 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If

    If Cells(i, 23).Value > 144 And Cells(i, 23).Value < 151 Then
    UserForm1.Label1.Caption = Cells(i, 6).Value
    UserForm1.Label4.Caption = Cells(i, 23).Value
    UserForm1.Label6.Caption = cat1
    UserForm1.Label3.Caption = "Nombre de jours perdus au " & Cells(1, 1).Value & ":"
    UserForm1.Show
    End If
ici:
saut = False 'C est ici que je voudrais reprendre pour continuer mon test
Next
End Sub

dans le code du bouton
Code: 
Private Sub CommandButton1_Click()
saut = True
'reste instruction a effectuer
End Sub

ne pas oublier le code du terminate
puis tester
si tu n'arrive pas joint le fichier ou un fichier sans données mais avec un code test un usf etc..
A+
 
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

F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
574
kiki29
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
955
tnion
T
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
S
  • Question Question
Microsoft 365 créer un macro vba
Réponses
0
Affichages
597
souhaib ad
S
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
2 K
Nicolas JACQUIN
F
  • Question Question
XL 2019 l'indice n'appartient pas à la sélection
Réponses
9
Affichages
857
job75
M
  • Question Question
XL 2010 Aide à la suppression d'un produit en double dans un magasin spécifique avec conditions
Réponses
9
Affichages
1 K
Mody200
M
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
642
piga25
T
  • Résolu(e)
Microsoft 365 filtre sur un tabstrip depuis un combobox
2
Réponses
27
Affichages
2 K
troki74
T
T
  • Question Question
Microsoft 365 Problème affichage multipage dans un tabstrip
Réponses
1
Affichages
646
troki74
T
M
  • Question Question
XL 2010 Calcul possible dans la zone de liste pour le débit et le crédit lors d'une recherche basée sur la zone de texte
Réponses
0
Affichages
862
Mody200
M
G
  • Question Question
Microsoft 365 Réduire la taille de la macro ?
Réponses
9
Affichages
951
Staple1600
C
  • Question Question
Autres Enregistrer un code barre dans la cellule avant le titre qui est déja enregistré
Réponses
11
Affichages
837
Chatron
C
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
562
JJ69
J
  • Résolu(e)
XL 2016 Démo pour positionner un UserForm ou ContextMenu sur la grille (Toute version)
10 11 12
Réponses
178
Affichages
9 K
TooFatBoy
J
  • Question Question
Microsoft 365 Macro excel spécifier chemin de sauvegarde one drive
Réponses
4
Affichages
939
.jakob@gmail.com
J
S
  • Question Question
XL 2019 probleme dans une macro a la suite d un rajout de condition
Réponses
2
Affichages
512
snoopy07
S
  • Question Question
Microsoft 365 Macro .XLA découpage de fichiers à passer en X64
Réponses
8
Affichages
860
GADENSEB
M
  • Question Question
XL 2016 Instruction Cdate fait planter mon code
Réponses
3
Affichages
1 K
MONADESIGN82
M
K
  • Résolu(e)
XL 2019 Copier Seulement les lignes affichée après un filtre de tableau
Réponses
9
Affichages
2 K
Kushi
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…