Temps d'arrêt dans une macro

[Caninge]

Bonjour à tous

J'ai réalisé une macro avec l'enregistreur de macro.

Explication: je copie une photo dans une feuille et je la colle dans une autre feuille.

Sur cette photo je mets des bulles aves un texte dans chacune.

Si j' exécute cette macro tout se fait en une seconde bien sur.

Ma question:

Comment mettre un temps d'arrêt de 5 secondes entre chaque opération.

voici ma macro

Sub Dessin()


Sheets("Feuil1").Select
ActiveSheet.Shapes("Picture 6").Select
Selection.Copy
Sheets("Feuil2").Select
Range("B3").Select
ActiveSheet.Paste
Range("A1").Select

'Temps d'arrêt de 5 secondes

ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangularCallout, 144.75, 44.25, _
38.25, 30.75).Select
Selection.Characters.Text = "salut"
With Selection.Characters(Start:=1, Length:=5).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

'Temps d'arrêt de 5 secondes

ActiveSheet.Shapes.AddShape(msoShapeOvalCallout, 210#, 34.5, 41.25, 29.25). _
Select
Selection.Characters.Text = "bonjour"
With Selection.Characters(Start:=1, Length:=7).Font
.Name = "Arial"
.FontStyle = "Normal"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With

Range("A1").Select
End Sub


Merci de bien vouloir me dépanner.

 

[Caninge]

Re : Temps d'arrêt dans une macro

Bonjour Robert

Je n'ai pas répondu tout de suite à ton message.

J'ai fais un essai avant.

Ca à l'air de marcher

Merci

A+

CANINGE

 

[Caninge]

Re : Temps d'arrêt dans une macro

Bonjour Robert

Me revoici

Je voudrais maintenant effacer les bulles

Comment faire s'il te plait.

Merci

Voici la macro (Voir efface, Intro didier..................ça bug par ici)

Sub Photo()

'Intro

Application.Wait Now + TimeValue("00:00:03")

ActiveSheet.Shapes.AddTextEffect(msoTextEffect10, "RIEN N'A BIEN CHANGE", _
"Arial Black", 20#, msoFalse, msoFalse, 252#, 190.5).Select
Selection.ShapeRange.IncrementLeft -103.5
Selection.ShapeRange.IncrementTop 105#
Application.CommandBars("WordArt").Visible = False

'Didier

Application.Wait Now + TimeValue("00:00:03")

ActiveSheet.Shapes.AddShape(msoShapeOvalCallout, 225#, 35#, 155, 40). _
Select
Selection.ShapeRange.Adjustments.Item(1) = 1.1753
Selection.ShapeRange.Adjustments.Item(2) = 1.0667
Selection.Characters.Text = "Bon,on commence par quoi les copains ?"

'Véronique

Application.Wait Now + TimeValue("00:00:03")

ActiveSheet.Shapes.AddShape(msoShapeOvalCallout, 480#, 10#, 146, 50). _
Select
Selection.Characters.Text = "Mamy blues,je voudrais bien changer la tonalité!"

'Michel

Application.Wait Now + TimeValue("00:00:03")

ActiveSheet.Shapes.AddShape(msoShapeCloudCallout, 100.5, 28.5, 115.5, 51#). _
Select
Selection.ShapeRange.Adjustments.Item(1) = 1.2119
Selection.ShapeRange.Adjustments.Item(2) = 1.2353
Selection.Characters.Text = "Allez ça recommence !!! "

Application.Wait Now + TimeValue("00:00:03")

'Efface intro,Didier,Véronique,Michel

ActiveSheet.Shapes("AutoShape 340").Select
Selection.Cut
ActiveSheet.Shapes("AutoShape 342").Select
Selection.Cut
ActiveSheet.Shapes("AutoShape 341").Select
Selection.Cut
ActiveSheet.Shapes("WordArt 339").Select
Selection.Cut
Range("A1").Select


End Sub

 

[Caninge]

Re : Temps d'arrêt dans une macro

Bonjour Robert non mince José

je voudrais les effacer après la macro

merci

 

[Caninge]

Re : Temps d'arrêt dans une macro

Oui me voila Jimmy Hendrix

je veux bien te prêter ma gratte si tu me supprimes aussi. (pas moi)

tu dois comprendre c'est WORDART

ActiveSheet.Shapes.AddTextEffect(msoTextEffect10, "RIEN N'A BIEN CHANGE", _
"Arial Black", 20#, msoFalse, msoFalse, 252#, 190.5).Select
Selection.ShapeRange.IncrementLeft -103.5
Selection.ShapeRange.IncrementTop 105#
Application.CommandBars("WordArt").Visible = False

Pour le reste c'est bon

A+

 

[Caninge]

Re : Temps d'arrêt dans une macro

Re

eh non tu n'a pas encore gagné la gratteeeeeeeeeeeeee eh .........

A la fin de la macro tout est supprimé photo et bouton de macro

J'ai pris peur

A+

 

[Caninge]

Re : Temps d'arrêt dans une macro

REbonjour

Tout est parti encore une nouvelle fois.

Je crois bien que la guitare va rester à la maison!!!!!!

je m'explique peut-être mal.

En faite c'est un morceau de texte en wordart que je veux effacer.

"RIEN N'A BIEN CHANGE"

Encore heureux la guitare n'a pas disparu.

A+

 

[Caninge]

Re : Temps d'arrêt dans une macro

rebonjour

oui je suis d'accord avec toi

ce wordart est positionné sur une photo elle disparait ainsi que le bouton de la macro.

Tu comprends

 

[Caninge]

Re : Temps d'arrêt dans une macro

rebonjour

Ecoute Ca ne fait rien si tu ne trouves pas la solution

J'ai remplacé le texte en WORDART par une autre bulle.

Je te préterai quand même ma gratte.

En fin je te remercie beaucoup

A+

 

[jeanpierre]

Re : Temps d'arrêt dans une macro

Soit tous,

Un fichier exemple et trois kilos de carambar pour t'it José... héhé.

 

[Caninge]

Re : Temps d'arrêt dans une macro

Rebonjour à tous

Laisser tomber.

Je me suis débrouillé autrement.

Enfin vous faîtes comme vous voulez.

Je ne vous oblige pas.

Mon fichier est trop important.

je vais manger.

Merci beaucoup.

CANINGE

 

[jeanpierre]

Re : Temps d'arrêt dans une macro

Re,

Je préfère quand tu parles spagnol, j'arrive plus à comprendre LOL ( enfin un peu) (j'aime pas trop ce truc... lol, mais bon, faut faire son temps).

Pour Caninge : Bon app...