Arrêter une macro puis la reprendre après avoir cliquer sur un CommandButton

**SPG except in VBA** · 11/07/2014, 16h37

Bonjour à tous,

Je pense (j'espére) que la solution à mon problème est simple. Je souhaite arrêter ma macro pour que l'utilisateur puisse remplir des cellules, et une fois les cellules remplient qu'il clique sur un CommandButton pour que la macro continue son parcours. Voici mon code avec en rouge le code pour le soit disant bouton

Je pense que mon erreur est tout simplement dans la détection du bouton (voir bout de code tout en bas)

Si quelqu'un à une solution ou une autre idée pour avoir le même résultat !

En remerciant d'avance les lecteurs !

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
Option Explicit
Dim Continue As Boolean

Sub NouvellePresentation2()
Dim PptApp As PowerPoint.Application
Dim PptDoc As PowerPoint.Presentation
Dim Diapo As PowerPoint.Slide
Dim Sh As PowerPoint.Shape
Dim Cs1 As ColorScheme
Dim NbShpe As Integer
Dim Counter As Integer
Dim retailer As String


Dim Feuille As Worksheet
Set Feuille = Worksheets("Retailer Analysis")

    'Ecriture feuille source
Dim SourcesListe As Worksheet
Dim Obj As Object

    Set SourcesListe = Sheets.Add(After:=Sheets(Sheets.Count))

    SourcesListe.Name = "Sources"
    
    SourcesListe.Range("C1").Value = "Please fill the list of retailers in column A"
    SourcesListe.Range("C5").Value = "Have you finish to fill the list?"
    SourcesListe.Range("C6").Value = "Then click here --->"
Set Obj = SourcesListe.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, DisplayAsIcon:=False, Left:=190.5, Top:=75.75, Width:=37.5, Height:=30.75)
    Obj.Name = "CommandButton1"
    'buttonn text
    ActiveSheet.OLEObjects(1).Object.Caption = "Yes"
    
    'STOP
While Not Continue
    DoEvents
Wend

Set PptApp = CreateObject("Powerpoint.Application")
Set PptDoc = PptApp.Presentations.Add
        

With PptDoc
    
 '--- Ajoute un Slide
    .Slides.Add Index:=1, Layout:=ppLayoutBlank
    'Crée une zone de texte (AddLabel)
    Set Sh = .Slides(1).Shapes.AddLabel(Orientation:=msoTextOrientationHorizontal, _
        Left:=100, Top:=100, Width:=150, Height:=60)
    'insère la valeur de la Cellule A1 dans une zone de texte
    Sh.TextFrame.TextRange.Text = Range("A1")
    'Modifie la couleur du texte
    Sh.TextFrame.TextRange.Font.Color = RGB(255, 100, 255)
    
    
    For Counter = 1 To 3
    retailer = Worksheets("Sources").Cells(Counter, 1)
           
 
    '--- Ajoute un nouveau slide et le positionner en 2eme position
    Set Diapo = .Slides.Add(Index:=2, Layout:=ppLayoutBlank)
    
    '--- Premier changement
    Feuille.PivotTables("PivotTable1").PivotFields("retailer_name").ClearAllFilters
    Feuille.PivotTables("PivotTable1").PivotFields("retailer_name").CurrentPage = retailer

 
    'copie le 1er graphique contenu dans la feuille Excel active
    Feuille.ChartObjects(1).Activate
    ActiveChart.ChartArea.Select
    ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
    'collage dans la 2eme diapositive
    PptDoc.Slides(2).Shapes.Paste
    
 
    'Compte le nombre de shapes dans la diapositive:
    'le dernier objet inséré correspond à l'index le plus élevé
    NbShpe = Diapo.Shapes.Count
 
    'Renomme et met en forme l'objet collé
    With Diapo.Shapes(NbShpe)
        .Name = "monGraph" 'personnalise le nom
        .Left = 150 'définit la position horizontale dans le slide
        .Top = 100 'définit la position verticale dans le slide
        .Height = 300 'hauteur
        .Width = 400 'largeur
    End With
    Next Counter

 
    
End With
 
 
'Sauvegarde la présentation
'dans le meme répertoire que le classeur excel contenant la macro.
PptDoc.SaveAs Filename:=ThisWorkbook.Path & "\" & "NouvellePresentation.ppt"
'ferme la presentation
PptDoc.Close
'ferme powerpoint
PptApp.Quit
 
MsgBox "Opération terminée."
End Sub
Private Sub CommandButton1_Click()
    Continue = True
End Sub

**Philippe Tulliez** · 11/07/2014, 17h22

Bonjour,
Ce bouton est-il impératif ?
Il y a d'autres possibilités comme Inputbox, UserForm modale ou pas.

**SPG except in VBA** · 11/07/2014, 17h53

Non du tout, mais c'est la seule solution que j'ai trouvé pour pouvoir faire ce que je veux.

Ce qui est impératif c'est que la macro s'arrête le temps que le User puisse remplir la colonne A avec les noms qu'il/elle veut (ces noms sont ensuite reprise par la variable retailer) et que la macro reparte là ou elle s'est arrêtée pour pouvoir créé le PowerPoint.

Si tu as une autre idée pour faire cela je suis tout ouie !

**NVCfrm** · 12/07/2014, 00h15

Bonsoir,
Amitiés à Philipe au passage.

Envoyé par SPG except in VBA

Non du tout, mais c'est la seule solution que j'ai trouvé pour pouvoir faire ce que je veux.

Ce qui est impératif c'est que la macro s'arrête le temps que le User puisse remplir la colonne A avec les noms qu'il/elle veut (ces noms sont ensuite reprise par la variable retailer) et que la macro reparte là ou elle s'est arrêtée pour pouvoir créé le PowerPoint.

Si tu as une autre idée pour faire cela je suis tout ouie !

Et si le user ne valide jamais ?

La simplicité semble être le défi non surmontable des débutants !
Pourquoi alourdir ton code par la création dynamique alors que tu peux le créer en mode création et le laisser là masquer pour l'afficher au besoin ?
Etonnant que tu n'aies pas trouvé satisfaction dans les gestionnaires d'évènements WorkSheet..., WorkBook..., pour éviter ta solution (qui te semble incontournable) peu utile pour le cas.

**SPG except in VBA** · 15/07/2014, 18h16

Après quelques recherches je vais utiliser un Userform pour arranger une feuille puis lancer la macro que je veux !

J'aurais une question par rapport au Userform d'ailleurs. Peut on ouvrir des excels depuis un userform?

Je m'explique. Pour faire fonctionner ma macro je dois ouvrir 2 différents excel dont les noms change toutes les semaines car ce sont des rapports hebdomadaires. Serait-il donc possible depuis mon user de sélectionner, avec un explorateur windows par exemple, les 2 fichiers qui seront ouvert au début de ma macro ? Et selon les fichiers sélectionnés incorporé les chemins "C\..." dans ma macro pour qu'elle marche.

J'ai fait des reccherches en Francais et en Anglais mais je n'ai rien trouvé qui combine les deux, ou combinable.

Merci encore pour vos conseils ! C'est vrai qu'au fur et à mesure que je découvre le VBA, il y a des façon tellement simple de faire certaine chose...mais je n'y aurait pas pensé avant ^^

**Philippe Tulliez** · 15/07/2014, 18h27

Bonjour,

J'aurais une question par rapport au Userform d'ailleurs. Peut on ouvrir des excels depuis un userform?

Un UserForm est une interface entre l'homme et la machine et tu peux y placer toutes les instructions que tu souhaites et notamment ouvrir un ou plusieurs classeurs.
A lire Utiliser les UserForm en VBA Excel et Utiliser les contrôles dans un UserForm, en VBA Excel