Comment faire une macro ???? un bouton ????
et comment faire que cette macro me remette à zéro certaines cellule sur
clik d'un bouton???
Merci à tous pour vos précieux renseignements.
Bernard
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
Tu peux énumérer l'adresse des cellules concernées en respectant la syntaxe de l'exemple. La chaîne de caractères à l'intérieur des parenthèses ne doit pas avoir plus de 255 caractères. Mais tu peux utiliser autant de "Range()" que tu désires. '--------------------------- Sub Test() With Worksheets("NomDeTaFeuille") .range("A1,G5,H10,P47").clearcontents End with End Sub '---------------------------
"Cinémas Décavision" a écrit dans le message de groupe de discussion :
Bonjour Amis Pros d'EXCEL 2000,
Comment faire une macro ???? un bouton ???? et comment faire que cette macro me remette à zéro certaines cellule sur clik d'un bouton??? Merci à tous pour vos précieux renseignements.
Bernard
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
Bonjour,
Tu peux énumérer l'adresse des cellules concernées
en respectant la syntaxe de l'exemple.
La chaîne de caractères à l'intérieur des parenthèses
ne doit pas avoir plus de 255 caractères. Mais tu peux
utiliser autant de "Range()" que tu désires.
'---------------------------
Sub Test()
With Worksheets("NomDeTaFeuille")
.range("A1,G5,H10,P47").clearcontents
End with
End Sub
'---------------------------
"Cinémas Décavision" <pdg@decavision.fr> a écrit dans le message de groupe de discussion :
ucCRGZVJKHA.3708@TK2MSFTNGP02.phx.gbl...
Bonjour Amis Pros d'EXCEL 2000,
Comment faire une macro ???? un bouton ????
et comment faire que cette macro me remette à zéro certaines cellule sur
clik d'un bouton???
Merci à tous pour vos précieux renseignements.
Bernard
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
Tu peux énumérer l'adresse des cellules concernées en respectant la syntaxe de l'exemple. La chaîne de caractères à l'intérieur des parenthèses ne doit pas avoir plus de 255 caractères. Mais tu peux utiliser autant de "Range()" que tu désires. '--------------------------- Sub Test() With Worksheets("NomDeTaFeuille") .range("A1,G5,H10,P47").clearcontents End with End Sub '---------------------------
"Cinémas Décavision" a écrit dans le message de groupe de discussion :
Bonjour Amis Pros d'EXCEL 2000,
Comment faire une macro ???? un bouton ???? et comment faire que cette macro me remette à zéro certaines cellule sur clik d'un bouton??? Merci à tous pour vos précieux renseignements.
Bernard
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
Cinémas Décavision
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à
la sélection ???
Une idée ? Une piste ?
Et pourquoi un POINT avant le mot Range ???
Excuse le débutant que je suis.
Merci.
Bernard
___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL")
.Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents
End With
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
MichDenis
Ton code devrait fonctionner très bien ! Assure-toi que tu n'as pas de faute d'orthographe dans le nom de la feuille. Es-tu certain que tu n'as pas inséré un espace en trop dans le nom de l'onglet de la feuille ?
Le "point" devant Range, c'est pour signifier que la plage de cellules appartient ou est située dans la feuille que tu as spécifié
"Cinémas Décavision" a écrit dans le message de groupe de discussion :
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
Ton code devrait fonctionner très bien !
Assure-toi que tu n'as pas de faute d'orthographe
dans le nom de la feuille. Es-tu certain que tu n'as pas
inséré un espace en trop dans le nom de l'onglet de la feuille ?
Le "point" devant Range, c'est pour signifier que la plage
de cellules appartient ou est située dans la feuille que tu as
spécifié
"Cinémas Décavision" <pdg@decavision.fr> a écrit dans le message de groupe de discussion :
utlpR3VJKHA.4608@TK2MSFTNGP02.phx.gbl...
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à
la sélection ???
Une idée ? Une piste ?
Et pourquoi un POINT avant le mot Range ???
Excuse le débutant que je suis.
Merci.
Bernard
___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL")
.Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents
End With
End Sub
--
Bernard FANGET Movie Room Manager
Multiplexe Cinema DECAVISION - 7 avenue de Brogny
74000 ANNECY France
Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
Ton code devrait fonctionner très bien ! Assure-toi que tu n'as pas de faute d'orthographe dans le nom de la feuille. Es-tu certain que tu n'as pas inséré un espace en trop dans le nom de l'onglet de la feuille ?
Le "point" devant Range, c'est pour signifier que la plage de cellules appartient ou est située dans la feuille que tu as spécifié
"Cinémas Décavision" a écrit dans le message de groupe de discussion :
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
-- Bernard FANGET Movie Room Manager Multiplexe Cinema DECAVISION - 7 avenue de Brogny 74000 ANNECY France Fax : 04 50 52 58 31 - Tel. : 04 50 52 58 36
http://www.decavision.com/
Mgr T. Banni
cette maladresse-là a fait, un certain jour, tourné votre Mgr en bourrique, que dis-je en bourrique, en mule du pape.... T.B.
"MichDenis" a écrit dans le message de news: On$
Es-tu certain que tu n'as pas inséré un espace en trop dans le nom de l'onglet de la feuille ?
cette maladresse-là a fait, un certain jour, tourné votre Mgr en bourrique,
que dis-je en bourrique, en mule du pape....
T.B.
"MichDenis" <michdenis@hotmail.com> a écrit dans le message de news:
On$MZXWJKHA.4796@TK2MSFTNGP02.phx.gbl...
Es-tu certain que tu n'as pas
inséré un espace en trop dans le nom de l'onglet de la feuille ?
as tu mis la propriété du bouton "TakeFocusOnClick" à False ?
isabelle
Cinémas Décavision a écrit :
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
bonjour Bernard,
as tu mis la propriété du bouton "TakeFocusOnClick" à False ?
isabelle
Cinémas Décavision a écrit :
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à
la sélection ???
Une idée ? Une piste ?
Et pourquoi un POINT avant le mot Range ???
Excuse le débutant que je suis.
Merci.
Bernard
___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL")
.Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents
End With
as tu mis la propriété du bouton "TakeFocusOnClick" à False ?
isabelle
Cinémas Décavision a écrit :
Merci beaucoup MichDenis.
J'ai fait cela (voir dessous) et messg. erreur : l'Indice n'appartient pas à la sélection ??? Une idée ? Une piste ? Et pourquoi un POINT avant le mot Range ??? Excuse le débutant que je suis. Merci. Bernard ___________________________________________________
Private Sub CommandButton1_Click()
With Worksheets("Versement CL") .Range("C7,C9,C11,C13,C15,C17,C19,C21").ClearContents End With
End Sub
Mgr T. Banni
heu...je ne sais, mon fils ce que je sais, par contre, est qu'il aurait été nettement mieux d'écrire : ...a fait, un certain jour, tourneR.... Mgr T.B.
"Modeste" a écrit dans le message de news:
Bonsour® Mgr T. Banni avec ferveur ;o))) vous nous disiez :
cette maladresse-là a fait, un certain jour, tourné votre Mgr en bourrique, que dis-je en bourrique, en mule du pape....
ne serait-ce pas plutot en mulet du pape....
"MichDenis" a écrit ??? ;o))) ??? dans le message de news:
Es-tu certain que tu n'as pas serré l'espace ...dans l'ombre de la fille ?
heu...je ne sais, mon fils
ce que je sais, par contre, est qu'il aurait été nettement mieux d'écrire :
...a fait, un certain jour, tourneR....
Mgr T.B.
"Modeste" <GD@libre.fr> a écrit dans le message de news:
OFT1MsWJKHA.1336@TK2MSFTNGP05.phx.gbl...
Bonsour® Mgr T. Banni avec ferveur ;o))) vous nous disiez :
cette maladresse-là a fait, un certain jour, tourné votre Mgr en
bourrique, que dis-je en bourrique, en mule du pape....
ne serait-ce pas plutot en mulet du pape....
"MichDenis" <michdenis@hotmail.com> a écrit ??? ;o))) ??? dans le message de
news:
Es-tu certain que tu n'as pas
serré l'espace ...dans l'ombre de la fille ?
heu...je ne sais, mon fils ce que je sais, par contre, est qu'il aurait été nettement mieux d'écrire : ...a fait, un certain jour, tourneR.... Mgr T.B.
"Modeste" a écrit dans le message de news:
Bonsour® Mgr T. Banni avec ferveur ;o))) vous nous disiez :
cette maladresse-là a fait, un certain jour, tourné votre Mgr en bourrique, que dis-je en bourrique, en mule du pape....
ne serait-ce pas plutot en mulet du pape....
"MichDenis" a écrit ??? ;o))) ??? dans le message de news:
Es-tu certain que tu n'as pas serré l'espace ...dans l'ombre de la fille ?
