Je n'y comprend rien

Le
Fredo(67)
Bonjour,

j'ai la macro suivante
***************************************************************************=
********
Sub TRaiTeMeNT_aPReS_ReCaPiTuLaTioN()
Rows("5:5").Select
Selection.Copy
Rows("6:555").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Rows("4:4").Select
Selection.AutoFilter
Range("C5:H555").Select
Selection.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "
Selection.AutoFilter Field:=6, Criteria1:="ens"
Selection.NumberFormat = "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=6, Criteria1:="pce"
Selection.NumberFormat = "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=6, Criteria1:="u"
Selection.NumberFormat = "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=6, Criteria1:="m3"
Selection.NumberFormat = "# ##0,000_ ;[Rouge]-# ##0,000 "
Selection.AutoFilter Field:=6, Criteria1:="to"
Selection.NumberFormat = "# ##0,000_ ;[Rouge]-# ##0,000 "
Selection.AutoFilter Field:=6
End Sub
**************************************************************************

Elle me sert à définir des format (nombre de zéro) en fonction de
l'unité

le problème est le suivant :
si je fait Outils -> Macro -> exécuter une macro (Alt+f8)
cela marche parfaitement
si je dessine un rectangle et que je lui affecte une macro
cela marche parfaitement
si je crée un bouton dans la barre d'icône, et que je lui affecte
cette macro, excel me dit qu'il ne peut pas affecter le format de
nombre que j'ai défini

Comment y remédier ?
où me trompe-je ?
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
gmlsteph
Le #19125331
Bonjour,

Range appartient à la feuille Active!!!! C'est laquelle?
celle dans laquelle est mon objet(...d'accord!)
Sauf en 97 ou il faut .Activate éventuellement
Celle dans laquelle je suis lorsque je fais F8 ok aussi.
Si je vais cliquer ailleurs je ne suis plus dans cette feuille!

Sinon en revanche (arrête ces select ...Selection.pouet)

[5:5].copy

va mieux directement.

--
lSteph
Fredo(67)
Le #19125741
Salut
merci pour ta réponse,

mais c'est plutot là que ca foire :
Range("C5:H555").Select
Selection.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "

Auais tu la solution pour supprimer le range...


On 16 avr, 12:42, wrote:
Bonjour,

Range appartient à la feuille Active!!!! C'est laquelle?
celle dans laquelle est mon objet(...d'accord!)
Sauf en 97 ou il faut .Activate éventuellement
Celle dans laquelle je suis lorsque je fais F8 ok aussi.
Si je vais cliquer ailleurs je ne suis plus dans cette feuille!

Sinon en revanche (arrête ces select ...Selection.pouet)

[5:5].copy

 va mieux directement.

--
lSteph


isabelle
Le #19126351
bonjour Fredo,

With Sheets("MaFeuil").Range("C5:H555")
.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "
end with


isabelle


Fredo(67) a écrit :
Salut
merci pour ta réponse,

mais c'est plutot là que ca foire :
Range("C5:H555").Select
Selection.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "

Auais tu la solution pour supprimer le range...


On 16 avr, 12:42, wrote:

Bonjour,

Range appartient à la feuille Active!!!! C'est laquelle?
celle dans laquelle est mon objet(...d'accord!)
Sauf en 97 ou il faut .Activate éventuellement
Celle dans laquelle je suis lorsque je fais F8 ok aussi.
Si je vais cliquer ailleurs je ne suis plus dans cette feuille!

Sinon en revanche (arrête ces select ...Selection.pouet)

[5:5].copy

va mieux directement.

--
lSteph







gmlsteph
Le #19125951
Range("C5:H555").NumberFormatLocal = "# ##0,00_ ;[Rouge]-# ##0,00 "

'est-ce cela que tu veux?

'lSteph


On 16 avr, 14:08, "Fredo(67)"
Salut
merci pour ta réponse,

mais c'est plutot là que ca foire :
Range("C5:H555").Select
    Selection.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "

Auais tu la solution pour supprimer le range...

On 16 avr, 12:42, wrote:



> Bonjour,

> Range appartient à la feuille Active!!!! C'est laquelle?
> celle dans laquelle est mon objet(...d'accord!)
> Sauf en 97 ou il faut .Activate éventuellement
> Celle dans laquelle je suis lorsque je fais F8 ok aussi.
> Si je vais cliquer ailleurs je ne suis plus dans cette feuille!

> Sinon en revanche (arrête ces select ...Selection.pouet)

> [5:5].copy

>  va mieux directement.

> --
> lSteph- Masquer le texte des messages précédents -

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


Fredo(67)
Le #19126171
Merci

Disons que cela ne correspond pas tout à fait avec ce que je veux,
mais j'ai bien noté la première partie de la ligne, à savoir : Range
("C5:H555").NumberFormatLocal =

j'ai ensuite adapté

merci encore.

On 16 avr, 14:35, wrote:
Range("C5:H555").NumberFormatLocal = "# ##0,00_ ;[Rouge]-# ##0,00 "

'est-ce cela que tu veux?

'lSteph

On 16 avr, 14:08, "Fredo(67)"


> Salut
> merci pour ta réponse,

> mais c'est plutot là que ca foire :
> Range("C5:H555").Select
>     Selection.NumberFormat = "# ##0,00_ ;[Rouge]-# ##0,00 "

> Auais tu la solution pour supprimer le range...

> On 16 avr, 12:42, wrote:

> > Bonjour,

> > Range appartient à la feuille Active!!!! C'est laquelle?
> > celle dans laquelle est mon objet(...d'accord!)
> > Sauf en 97 ou il faut .Activate éventuellement
> > Celle dans laquelle je suis lorsque je fais F8 ok aussi.
> > Si je vais cliquer ailleurs je ne suis plus dans cette feuille!

> > Sinon en revanche (arrête ces select ...Selection.pouet)

> > [5:5].copy

> >  va mieux directement.

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


Publicité
Poster une réponse
Anonyme