Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule (coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" a écrit dans le message de
news:Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule (coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" <Audrey@discussions.microsoft.com> a écrit dans le message de
news:54B45867-8E43-460C-8A1A-C27563D79571@microsoft.com...
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule (coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" a écrit dans le message de
news:Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
(coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" a écrit dans le message de
news:Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
(coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" <Audrey@discussions.microsoft.com> a écrit dans le message de
news:54B45867-8E43-460C-8A1A-C27563D79571@microsoft.com...
Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonsoir Audrey
Je te conseil de faire un peu apprentissage sur la création d'une macro.
Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules à
copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
(coin
supérieur gauche)>coller>arrêter l'enregistreur de macro.
Cela donne
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 10/12/2008 par Ponsinet
'
'
Range("D9:G10").Select
Selection.Copy
Sheets("Feuil2").Select
Range("D10").Select
ActiveSheet.Paste
End Sub
Que l'on peut simplifier comme ceci
Sub Macro1()
Range("D9:G10").Copy
Sheets("Feuil2").Range("D10").ActiveSheet.Paste
End Sub
Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
outils
contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger en
taille /couleur /texte >clic droit sur la bordure grisé>affecter une
macro>sélectionner la macro précédement construite>Ok.
Cela t'a aidé?
"Audrey" a écrit dans le message de
news:Comment faire pour que plusieurs cellules de texte soit recopier sur une
feuille 2 seulement si on appui sur un bouton???
Bonjour Audrey,
Tu pourrais aussi sélectionner ta plage à copier
(plage de cellules contiguës) et appeler cette macro :
Sub Macro1()
Selection.Copy Sheets("Feuil2").[A5]
End Sub
en suivant les conseils de Frédo.
Bonjour Audrey,
Tu pourrais aussi sélectionner ta plage à copier
(plage de cellules contiguës) et appeler cette macro :
Sub Macro1()
Selection.Copy Sheets("Feuil2").[A5]
End Sub
en suivant les conseils de Frédo.
Bonjour Audrey,
Tu pourrais aussi sélectionner ta plage à copier
(plage de cellules contiguës) et appeler cette macro :
Sub Macro1()
Selection.Copy Sheets("Feuil2").[A5]
End Sub
en suivant les conseils de Frédo.
Salut Fredo,
Ta macro bloque sur la deuxième ligne.
Plutôt ceci :
Sub Macro1()
[D9:G10].Copy Sheets("Feuil2").[D10]
End Sub
Pour Audrey :
Tu dois appeler la macro à partir de la feuille
contenant tes textes.
Serge
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message
> Bonsoir Audrey
> Je te conseil de faire un peu apprentissage sur la création d'une macro.
> Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules
> copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
> supérieur gauche)>coller>arrêter l'enregistreur de macro.
> Cela donne
> Sub Macro1()
> '
> ' Macro1 Macro
> ' Macro enregistrée le 10/12/2008 par Ponsinet
> '
>
> '
> Range("D9:G10").Select
> Selection.Copy
> Sheets("Feuil2").Select
> Range("D10").Select
> ActiveSheet.Paste
> End Sub
> Que l'on peut simplifier comme ceci
> Sub Macro1()
> Range("D9:G10").Copy
> Sheets("Feuil2").Range("D10").ActiveSheet.Paste
> End Sub
> Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
> avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
> contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
> souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger
> taille /couleur /texte >clic droit sur la bordure grisé>affecter une
> macro>sélectionner la macro précédement construite>Ok.
> Cela t'a aidé?
> "Audrey" a écrit dans le message de
> news:
>> Comment faire pour que plusieurs cellules de texte soit recopier sur
>> feuille 2 seulement si on appui sur un bouton???
>
>
Salut Fredo,
Ta macro bloque sur la deuxième ligne.
Plutôt ceci :
Sub Macro1()
[D9:G10].Copy Sheets("Feuil2").[D10]
End Sub
Pour Audrey :
Tu dois appeler la macro à partir de la feuille
contenant tes textes.
Serge
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message
> Bonsoir Audrey
> Je te conseil de faire un peu apprentissage sur la création d'une macro.
> Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules
> copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
> supérieur gauche)>coller>arrêter l'enregistreur de macro.
> Cela donne
> Sub Macro1()
> '
> ' Macro1 Macro
> ' Macro enregistrée le 10/12/2008 par Ponsinet
> '
>
> '
> Range("D9:G10").Select
> Selection.Copy
> Sheets("Feuil2").Select
> Range("D10").Select
> ActiveSheet.Paste
> End Sub
> Que l'on peut simplifier comme ceci
> Sub Macro1()
> Range("D9:G10").Copy
> Sheets("Feuil2").Range("D10").ActiveSheet.Paste
> End Sub
> Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
> avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
> contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
> souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger
> taille /couleur /texte >clic droit sur la bordure grisé>affecter une
> macro>sélectionner la macro précédement construite>Ok.
> Cela t'a aidé?
> "Audrey" <Audrey@discussions.microsoft.com> a écrit dans le message de
> news:54B45867-8E43-460C-8A1A-C27563D79571@microsoft.com...
>> Comment faire pour que plusieurs cellules de texte soit recopier sur
>> feuille 2 seulement si on appui sur un bouton???
>
>
Salut Fredo,
Ta macro bloque sur la deuxième ligne.
Plutôt ceci :
Sub Macro1()
[D9:G10].Copy Sheets("Feuil2").[D10]
End Sub
Pour Audrey :
Tu dois appeler la macro à partir de la feuille
contenant tes textes.
Serge
"Fredo P." <ponsinet.frederic363(oterça)orange.fr> a écrit dans le message
> Bonsoir Audrey
> Je te conseil de faire un peu apprentissage sur la création d'une macro.
> Faire :Outils>Macro>Nouvelle macro>Ok: Sélectionne la plage de cellules
> copier>Copie>sélectionne la feuille réceptrice>sélectionne la cellule
> supérieur gauche)>coller>arrêter l'enregistreur de macro.
> Cela donne
> Sub Macro1()
> '
> ' Macro1 Macro
> ' Macro enregistrée le 10/12/2008 par Ponsinet
> '
>
> '
> Range("D9:G10").Select
> Selection.Copy
> Sheets("Feuil2").Select
> Range("D10").Select
> ActiveSheet.Paste
> End Sub
> Que l'on peut simplifier comme ceci
> Sub Macro1()
> Range("D9:G10").Copy
> Sheets("Feuil2").Range("D10").ActiveSheet.Paste
> End Sub
> Ensuite, création du bouton: se positionner sur la feuille ou l'on veut
> avoir le bouton,>Affichage>Barre d'outils: ici 3 solutions 1) Boite à
> contrôles ou 2)Formulaire ou 3)dessin,dessin fera l'affaire, je choisi
> souvent "Zone de texte".>clic 1fois dessus >clic sur la feuille>aranger
> taille /couleur /texte >clic droit sur la bordure grisé>affecter une
> macro>sélectionner la macro précédement construite>Ok.
> Cela t'a aidé?
> "Audrey" a écrit dans le message de
> news:
>> Comment faire pour que plusieurs cellules de texte soit recopier sur
>> feuille 2 seulement si on appui sur un bouton???
>
>
| [D9:G10].Copy Sheets("Feuil2").[D10]
L'utilisation des crochets qui représente une "MÉTHODE"
en lieu et place de la classe objet "Range" est selon moi abusif.
Lorsque l'on crée une fonction dans un module de classe,
cela est l'équivalent de créer une fonction dans un module standard.
Une classe d'objet n'a pas de fonctions mais des méthodes...
À titre d'exemple, créerais-tu une fonction personnalisée pour
remplacer la fonction "Somme" de la feuille de calcul ? Ce n'est
pas parce que le résultat attendu est au rendez-vous qu'il faut
populariser cette approche !
Elle te prive en plus à la sasie d'avoir accès à la liste déroutante
des propriétés et méthodes attribuées à la classe objet "Range"
... pratique à plus d'un égard.
Dans certaines circonstances, on ne peut subtituer "Range" par
les crochets...
Il faut en conséquence laisser l'utilisation des crochets aux
initiés...
| [D9:G10].Copy Sheets("Feuil2").[D10]
L'utilisation des crochets qui représente une "MÉTHODE"
en lieu et place de la classe objet "Range" est selon moi abusif.
Lorsque l'on crée une fonction dans un module de classe,
cela est l'équivalent de créer une fonction dans un module standard.
Une classe d'objet n'a pas de fonctions mais des méthodes...
À titre d'exemple, créerais-tu une fonction personnalisée pour
remplacer la fonction "Somme" de la feuille de calcul ? Ce n'est
pas parce que le résultat attendu est au rendez-vous qu'il faut
populariser cette approche !
Elle te prive en plus à la sasie d'avoir accès à la liste déroutante
des propriétés et méthodes attribuées à la classe objet "Range"
... pratique à plus d'un égard.
Dans certaines circonstances, on ne peut subtituer "Range" par
les crochets...
Il faut en conséquence laisser l'utilisation des crochets aux
initiés...
| [D9:G10].Copy Sheets("Feuil2").[D10]
L'utilisation des crochets qui représente une "MÉTHODE"
en lieu et place de la classe objet "Range" est selon moi abusif.
Lorsque l'on crée une fonction dans un module de classe,
cela est l'équivalent de créer une fonction dans un module standard.
Une classe d'objet n'a pas de fonctions mais des méthodes...
À titre d'exemple, créerais-tu une fonction personnalisée pour
remplacer la fonction "Somme" de la feuille de calcul ? Ce n'est
pas parce que le résultat attendu est au rendez-vous qu'il faut
populariser cette approche !
Elle te prive en plus à la sasie d'avoir accès à la liste déroutante
des propriétés et méthodes attribuées à la classe objet "Range"
... pratique à plus d'un égard.
Dans certaines circonstances, on ne peut subtituer "Range" par
les crochets...
Il faut en conséquence laisser l'utilisation des crochets aux
initiés...