Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Je n'y comprend rien

Je n'y comprend rien

5 réponses
Avatar
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:=3DxlPasteFormats, Operation:=3DxlNone, _
SkipBlanks:=3DFalse, Transpose:=3DFalse
Application.CutCopyMode =3D False
Rows("4:4").Select
Selection.AutoFilter
Range("C5:H555").Select
Selection.NumberFormat =3D "# ##0,00_ ;[Rouge]-# ##0,00 "
Selection.AutoFilter Field:=3D6, Criteria1:=3D"ens"
Selection.NumberFormat =3D "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=3D6, Criteria1:=3D"pce"
Selection.NumberFormat =3D "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=3D6, Criteria1:=3D"u"
Selection.NumberFormat =3D "# ##0_ ;[Rouge]-# ##0 "
Selection.AutoFilter Field:=3D6, Criteria1:=3D"m3"
Selection.NumberFormat =3D "# ##0,000_ ;[Rouge]-# ##0,000 "
Selection.AutoFilter Field:=3D6, Criteria1:=3D"to"
Selection.NumberFormat =3D "# ##0,000_ ;[Rouge]-# ##0,000 "
Selection.AutoFilter Field:=3D6
End Sub
**************************************************************************

Elle me sert =E0 d=E9finir des format (nombre de z=E9ro) en fonction de
l'unit=E9

le probl=E8me est le suivant :
si je fait Outils -> Macro -> ex=E9cuter 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=E9e un bouton dans la barre d'ic=F4ne, et que je lui affecte
cette macro, excel me dit qu'il ne peut pas affecter le format de
nombre que j'ai d=E9fini...

Comment y rem=E9dier ?
o=F9 me trompe-je ?
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
gmlsteph
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
Avatar
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


Avatar
isabelle
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







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

'est-ce cela que tu veux?

'lSteph


On 16 avr, 14:08, "Fredo(67)" wrote:
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 -


Avatar
Fredo(67)
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)" wrote:



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