Boucle For Each...

Bonjour,

Each s In ActiveSheet.Shapes
représente
Chaque objet Shape de la feuille
s.delete
le supprime
next s
passe au suivant

CordialemeNt

lSteph

Bonsoir,
http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.

Bonsoir,

C'est pour supprimer le bouton.

Corialement JB


On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture 2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu qua nd même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton disparaissait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy


Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1178473827.340091.178760@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB


On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.

Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton disparaiss ait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFactu re2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu q uand même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonjour,
Bon j'ai compris ! merci.
J'ai une "erreur" qui se produit la [A1].PasteSpecial Paste:=xlPasteValues
j'ai une fenêtre qui me dit :
Voulez-vous remplacer le contenu des cellules de destination ? Oui Non
Quand je reponds Oui ça continue si je reponds Non alors j'ai l'erreur 1004
:
La methode PasteSpécial de la classe Range a échoué.
comment je peux faire pour eviter cette demande ?
Merci.
Patrick.

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1178522182.121595.102940@p77g2000hsh.googlegroups.com...
Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton disparaissait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand
même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Je suis surpris par le message:

Essayer :

Application.DisplayAlerts=False

avant l'instruction.

JB
On 7 mai, 13:16, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Bon j'ai compris ! merci.
J'ai une "erreur" qui se produit la [A1].PasteSpecial Paste:=xlPasteVa lues
j'ai une fenêtre qui me dit :
Voulez-vous remplacer le contenu des cellules de destination ? Oui Non
Quand je reponds Oui ça continue si je reponds Non alors j'ai l'erreur 1004
:
La methode PasteSpécial de la classe Range a échoué.
comment je peux faire pour eviter cette demande ?
Merci.
Patrick.

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178522182.121595.102...@p77g2000hsh.googlegroups.com...
Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton disparai ssait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copie r?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFac ture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand
même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -

Bonsoir,
Avec Application.DisplayAlertsúlse
il n'y a plus de fenêtre qui demande Voulez-vous remplacer le contenu des
cellules de destination ?
il doit automatiquement valider Oui je pense. Il n'y a plus de problème .
Après l'instruction je rajoute Application.DisplayAlerts=True ?
Bonne soirée
Patrick.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1178538739.599223.237350@u30g2000hsc.googlegroups.com...
Je suis surpris par le message:

Essayer :

Application.DisplayAlertsúlse

avant l'instruction.

JB
On 7 mai, 13:16, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Bon j'ai compris ! merci.
J'ai une "erreur" qui se produit la [A1].PasteSpecial
Paste:=xlPasteValues
j'ai une fenêtre qui me dit :
Voulez-vous remplacer le contenu des cellules de destination ? Oui Non
Quand je reponds Oui ça continue si je reponds Non alors j'ai l'erreur
1004
:
La methode PasteSpécial de la classe Range a échoué.
comment je peux faire pour eviter cette demande ?
Merci.
Patrick.

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178522182.121595.102...@p77g2000hsh.googlegroups.com...
Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton
disparaissait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand
même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

Bonsoir,
Une petite question encore...
Avec la boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Est ce qu'il est possible de lui dire de commencer à un endroit ? parceque
j'ai ajouté un logo vers le haut et il dégage aussi .
Merci, a demain soir.
Patrick.
"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
1178538739.599223.237350@u30g2000hsc.googlegroups.com...
Je suis surpris par le message:

Essayer :

Application.DisplayAlertsúlse

avant l'instruction.

JB
On 7 mai, 13:16, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Bon j'ai compris ! merci.
J'ai une "erreur" qui se produit la [A1].PasteSpecial
Paste:=xlPasteValues
j'ai une fenêtre qui me dit :
Voulez-vous remplacer le contenu des cellules de destination ? Oui Non
Quand je reponds Oui ça continue si je reponds Non alors j'ai l'erreur
1004
:
La methode PasteSpécial de la classe Range a échoué.
comment je peux faire pour eviter cette demande ?
Merci.
Patrick.

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178522182.121595.102...@p77g2000hsh.googlegroups.com...
Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton
disparaissait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout copier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai voulu quand
même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des
messages précédents -

- Afficher le texte des messages précédents -

Bonjour,

-Nommer le bouton 'monbouton'
-Remplacer la boucle par

ActiveSheet.Shapes("monbouton").Delete

http://boisgontierjacques.free.fr/fichiers/Divers/CompteurFacture2.xls

Cordialement JB

On 7 mai, 21:45, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,
Une petite question encore...
Avec la boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Est ce qu'il est possible de lui dire de commencer à un endroit ? parce que
j'ai ajouté un logo vers le haut et il dégage aussi .
Merci, a demain soir.
Patrick.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178538739.599223.237...@u30g2000hsc.googlegroups.com...
Je suis surpris par le message:

Essayer :

Application.DisplayAlerts=False

avant l'instruction.

JB
On 7 mai, 13:16, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Bon j'ai compris ! merci.
J'ai une "erreur" qui se produit la [A1].PasteSpecial
Paste:=xlPasteValues
j'ai une fenêtre qui me dit :
Voulez-vous remplacer le contenu des cellules de destination ? Oui Non
Quand je reponds Oui ça continue si je reponds Non alors j'ai l'erreur
1004
:
La methode PasteSpécial de la classe Range a échoué.
comment je peux faire pour eviter cette demande ?
Merci.
Patrick.

"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178522182.121595.102...@p77g2000hsh.googlegroups.com...
Bonjour,

C'est un collage spécial/Valeurs pour éliminer les formules.

Cordialement JB
On 7 mai, 08:31, "Patrick" <nos...@wanadoo.fr> wrote:

Bonjour,
Merci ,oui effectivement ,j'avais pas remarqué que le bouton
disparaissait
sur le classeur nouvellement crée!

'créer une copie entiere de la feuille dans un nouveau classeur
Sheets("facture").Copy

Encore une petite question ?
Pourquoi copier de A1:E21 puisque la ligne avant a déjà tout cop ier?
[A1:E21].Copy
[A1].PasteSpecial Paste:=xlPasteValues

' efface le bouton de lancement de la macro sur la nouvelle feuille
"facture" du nouveau classeur.
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci pour les explications
Bonne journée.
"JB" <boisgont...@hotmail.com> a écrit dans le message de news:
1178473827.340091.178...@o5g2000hsb.googlegroups.com...
Bonsoir,

C'est pour supprimer le bouton.

Corialement JB

On 6 mai, 19:17, "Patrick" <nos...@wanadoo.fr> wrote:

Bonsoir,http://boisgontierjacques.free.fr/fichiers/Divers/CompteurF acture2.xls
J'ai téléchargé ce fichier qui fonction bien mais j'aurai vou lu quand
même
comprendre un minimum
Je ne comprend pas ce que fait cette boucle :
For Each s In ActiveSheet.Shapes: s.Delete: Next s
Merci.- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte d es
messages précédents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -

- Afficher le texte des messages précédents -