Je reviens ici pour un truc qui me semble être bête comme tout... mais
voilà... je broute lamentablement !
Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données
de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée
( par exemple ) Janvier...
Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire.
Merci, une fois de plus de votre sollicitude
Bonne journée, soirée, nuit....
Sub copie2()
[H2:K2].Copy [B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
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
François
> Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code soit disponible pour l'ensemble des feuilles d'un classeur. Un moyen est d'effectuer l'action pour "visualiser le code" puis sous VBA: -de cliquer sur "outil" - "Macro" - nom de la macro copie2 - "créer" - copier le bout de code. - enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du classeur et s'effectue dans la feuille active. On la retrouve sous VBA dans un Module.
Bonne soirée
-- Amicalement
Ty-Fanch' (Qui a comme un doute)
> Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais
voilà... je broute lamentablement !
Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données
de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée
( par exemple ) Janvier...
Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire.
Merci, une fois de plus de votre sollicitude
Bonne journée, soirée, nuit....
Sub copie2()
[H2:K2].Copy [B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code
soit disponible pour l'ensemble des feuilles d'un classeur.
Un moyen est d'effectuer l'action pour "visualiser le code" puis sous
VBA:
-de cliquer sur "outil"
- "Macro"
- nom de la macro copie2
- "créer"
- copier le bout de code.
- enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du
classeur et s'effectue dans la feuille active. On la retrouve sous VBA
dans un Module.
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code soit disponible pour l'ensemble des feuilles d'un classeur. Un moyen est d'effectuer l'action pour "visualiser le code" puis sous VBA: -de cliquer sur "outil" - "Macro" - nom de la macro copie2 - "créer" - copier le bout de code. - enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du classeur et s'effectue dans la feuille active. On la retrouve sous VBA dans un Module.
Bonne soirée
-- Amicalement
Ty-Fanch' (Qui a comme un doute)
PLG
Bonsoir François
Tout d'abord, merci d'avoir répondu.. Je ne suis pas un champion du VBA, mais ta solution, je savais faire... En fait, c'est pas ça. Je souhaite juste ajouter le code qui va me sélectionner la feuille "Janvier" avant de copier les données entrées en H2:K2. En fait, j'entre des données ( on va dire dans la feuille "saisie") en H2:K2 et je veux qu'elles aillent s'inscrire sur la feuille " Janvier" Il ne manque donc à mon code que le "petit bout" qui va me sélectionner la feuille "Janvier". Voili, voilou....
"François" a écrit :
> Bonjour à tous
> Je reviens ici pour un truc qui me semble être bête comme tout... mais > voilà... je broute lamentablement ! > Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données > de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée > ( par exemple ) Janvier... > Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. > Merci, une fois de plus de votre sollicitude > Bonne journée, soirée, nuit....
> Sub copie2() > [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) > [H2:K2].ClearContents > Range("H2").Select > End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code soit disponible pour l'ensemble des feuilles d'un classeur. Un moyen est d'effectuer l'action pour "visualiser le code" puis sous VBA: -de cliquer sur "outil" - "Macro" - nom de la macro copie2 - "créer" - copier le bout de code. - enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du classeur et s'effectue dans la feuille active. On la retrouve sous VBA dans un Module.
Bonne soirée
-- Amicalement
Ty-Fanch' (Qui a comme un doute)
Bonsoir François
Tout d'abord, merci d'avoir répondu..
Je ne suis pas un champion du VBA, mais ta solution, je savais faire...
En fait, c'est pas ça.
Je souhaite juste ajouter le code qui va me sélectionner la feuille
"Janvier" avant de copier les données entrées en H2:K2.
En fait, j'entre des données ( on va dire dans la feuille "saisie") en H2:K2
et je veux qu'elles aillent s'inscrire sur la feuille " Janvier"
Il ne manque donc à mon code que le "petit bout" qui va me sélectionner la
feuille "Janvier".
Voili, voilou....
"François" a écrit :
> Bonjour à tous
> Je reviens ici pour un truc qui me semble être bête comme tout... mais
> voilà... je broute lamentablement !
> Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données
> de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée
> ( par exemple ) Janvier...
> Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire.
> Merci, une fois de plus de votre sollicitude
> Bonne journée, soirée, nuit....
> Sub copie2()
> [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0)
> [H2:K2].ClearContents
> Range("H2").Select
> End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code
soit disponible pour l'ensemble des feuilles d'un classeur.
Un moyen est d'effectuer l'action pour "visualiser le code" puis sous
VBA:
-de cliquer sur "outil"
- "Macro"
- nom de la macro copie2
- "créer"
- copier le bout de code.
- enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du
classeur et s'effectue dans la feuille active. On la retrouve sous VBA
dans un Module.
Tout d'abord, merci d'avoir répondu.. Je ne suis pas un champion du VBA, mais ta solution, je savais faire... En fait, c'est pas ça. Je souhaite juste ajouter le code qui va me sélectionner la feuille "Janvier" avant de copier les données entrées en H2:K2. En fait, j'entre des données ( on va dire dans la feuille "saisie") en H2:K2 et je veux qu'elles aillent s'inscrire sur la feuille " Janvier" Il ne manque donc à mon code que le "petit bout" qui va me sélectionner la feuille "Janvier". Voili, voilou....
"François" a écrit :
> Bonjour à tous
> Je reviens ici pour un truc qui me semble être bête comme tout... mais > voilà... je broute lamentablement ! > Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données > de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée > ( par exemple ) Janvier... > Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. > Merci, une fois de plus de votre sollicitude > Bonne journée, soirée, nuit....
> Sub copie2() > [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) > [H2:K2].ClearContents > Range("H2").Select > End Sub
Bonjour,
Je n'ai pas bien compris mais je pense que vous souhaitez que le code soit disponible pour l'ensemble des feuilles d'un classeur. Un moyen est d'effectuer l'action pour "visualiser le code" puis sous VBA: -de cliquer sur "outil" - "Macro" - nom de la macro copie2 - "créer" - copier le bout de code. - enregistrer copie2
La macro "copie2" devient disponible pour toutes les feuilles du classeur et s'effectue dans la feuille active. On la retrouve sous VBA dans un Module.
Bonne soirée
-- Amicalement
Ty-Fanch' (Qui a comme un doute)
FFO
Salut à toi
Essaies ainsi :
Sub copie2() [H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Celà devrait faire
Dis moi !!!!
Salut à toi
Essaies ainsi :
Sub copie2()
[H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
Sub copie2() [H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Celà devrait faire
Dis moi !!!!
michdenis
Sub copie2() Worksheets("Saisie"). [H2:K2].Copy _ Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
"PLG" a écrit dans le message de news:
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Sub copie2()
Worksheets("Saisie"). [H2:K2].Copy _
Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de news:
4FB900E5-E3FC-4126-B0ED-9DC3F7406182@microsoft.com...
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais
voilà... je broute lamentablement !
Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données
de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée
( par exemple ) Janvier...
Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire.
Merci, une fois de plus de votre sollicitude
Bonne journée, soirée, nuit....
Sub copie2()
[H2:K2].Copy [B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
Sub copie2() Worksheets("Saisie"). [H2:K2].Copy _ Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
"PLG" a écrit dans le message de news:
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
PLG
Salut ta toi aussi...
Y'a pas de problème... ça marche nickel ! Par contre j'ai l'air cruche, c'est vraiment tout bête... J'avais essayé un truc dans ce genre... bon ce ne devait être que dans ce genre !!
Je te remercie bien, et te laisse aller faire le St Bernard... Bonne soirée à toi
"FFO" a écrit :
Salut à toi
Essaies ainsi :
Sub copie2() [H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Celà devrait faire
Dis moi !!!!
Salut ta toi aussi...
Y'a pas de problème... ça marche nickel !
Par contre j'ai l'air cruche, c'est vraiment tout bête...
J'avais essayé un truc dans ce genre... bon ce ne devait être que dans ce
genre !!
Je te remercie bien, et te laisse aller faire le St Bernard...
Bonne soirée à toi
"FFO" a écrit :
Salut à toi
Essaies ainsi :
Sub copie2()
[H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
Y'a pas de problème... ça marche nickel ! Par contre j'ai l'air cruche, c'est vraiment tout bête... J'avais essayé un truc dans ce genre... bon ce ne devait être que dans ce genre !!
Je te remercie bien, et te laisse aller faire le St Bernard... Bonne soirée à toi
"FFO" a écrit :
Salut à toi
Essaies ainsi :
Sub copie2() [H2:K2].Copy Sheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Celà devrait faire
Dis moi !!!!
PLG
Bonsoir à toi michdenis
C'est gentil de m'avoir répondu... mais y'a un blème avec ton code Il me dit des vilaines choses : Erreur d'exécution "9" L'indice n'appartient pas à la sélection.
Bon c'est pas très grave... FFO a réglé mon soucis. Je tenais donc à te remercier et à te signaler ton erreur.
Bonne soirée
"michdenis" a écrit :
Sub copie2() Worksheets("Saisie"). [H2:K2].Copy _ Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
"PLG" a écrit dans le message de news:
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
Bonsoir à toi michdenis
C'est gentil de m'avoir répondu... mais y'a un blème avec ton code
Il me dit des vilaines choses : Erreur d'exécution "9"
L'indice n'appartient pas à la sélection.
Bon c'est pas très grave... FFO a réglé mon soucis.
Je tenais donc à te remercier et à te signaler ton erreur.
Bonne soirée
"michdenis" a écrit :
Sub copie2()
Worksheets("Saisie"). [H2:K2].Copy _
Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
"PLG" <PLG@discussions.microsoft.com> a écrit dans le message de news:
4FB900E5-E3FC-4126-B0ED-9DC3F7406182@microsoft.com...
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais
voilà... je broute lamentablement !
Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données
de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée
( par exemple ) Janvier...
Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire.
Merci, une fois de plus de votre sollicitude
Bonne journée, soirée, nuit....
Sub copie2()
[H2:K2].Copy [B65000].End(xlUp).Offset(1, 0)
[H2:K2].ClearContents
Range("H2").Select
End Sub
C'est gentil de m'avoir répondu... mais y'a un blème avec ton code Il me dit des vilaines choses : Erreur d'exécution "9" L'indice n'appartient pas à la sélection.
Bon c'est pas très grave... FFO a réglé mon soucis. Je tenais donc à te remercier et à te signaler ton erreur.
Bonne soirée
"michdenis" a écrit :
Sub copie2() Worksheets("Saisie"). [H2:K2].Copy _ Worksheets("Janvier").[B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
"PLG" a écrit dans le message de news:
Bonjour à tous
Je reviens ici pour un truc qui me semble être bête comme tout... mais voilà... je broute lamentablement ! Alors, j'ai ce code qui me ravit, mais je souhaiterais copier les données de la plage H2:K2, non plus sur la même feuille mais, sur une feuille nommée ( par exemple ) Janvier... Ca va en faire rire quelques uns... c'est pas grave, c'est bon de rire. Merci, une fois de plus de votre sollicitude Bonne journée, soirée, nuit....
Sub copie2() [H2:K2].Copy [B65000].End(xlUp).Offset(1, 0) [H2:K2].ClearContents Range("H2").Select End Sub
michdenis
| Erreur d'exécution "9" | L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure existe dans ton classeur !
| Erreur d'exécution "9"
| L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure
existe dans ton classeur !
| Erreur d'exécution "9" | L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure existe dans ton classeur !
PLG
J'allais t'écrire, j'ai actualisé la page... et j'ai vu que tu avais répondu... et juste en plus ! Je disais donc que j'allais t'écrire que j'étais une grosse buse. En fait j'avais pas vu que dans ton code, tu citais la feuille "Saisie".... Hors... je n'avais nommé aucune feuille "Saisie", comme ça marchait sans avec mon code.... Je suis vraiment hyper confus...
A nouveau merci à toi et bonne soirée.
"michdenis" a écrit :
| Erreur d'exécution "9" | L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure existe dans ton classeur !
J'allais t'écrire, j'ai actualisé la page... et j'ai vu que tu avais
répondu... et juste en plus !
Je disais donc que j'allais t'écrire que j'étais une grosse buse.
En fait j'avais pas vu que dans ton code, tu citais la feuille "Saisie"....
Hors... je n'avais nommé aucune feuille "Saisie", comme ça marchait sans
avec mon code....
Je suis vraiment hyper confus...
A nouveau merci à toi et bonne soirée.
"michdenis" a écrit :
| Erreur d'exécution "9"
| L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure
existe dans ton classeur !
J'allais t'écrire, j'ai actualisé la page... et j'ai vu que tu avais répondu... et juste en plus ! Je disais donc que j'allais t'écrire que j'étais une grosse buse. En fait j'avais pas vu que dans ton code, tu citais la feuille "Saisie".... Hors... je n'avais nommé aucune feuille "Saisie", comme ça marchait sans avec mon code.... Je suis vraiment hyper confus...
A nouveau merci à toi et bonne soirée.
"michdenis" a écrit :
| Erreur d'exécution "9" | L'indice n'appartient pas à la sélection.
Assure toi que les feuilles mentionnées dans la procédure existe dans ton classeur !