Temps d'arrêt dans une macro

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

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

Re : Temps d'arrêt dans une macro

Bonjour Robert non mince José

je voudrais les effacer après la macro

merci

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+

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+

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+

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

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+

Re : Temps d'arrêt dans une macro

Soit tous,

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

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

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...