Sub Bonbon() ' Selection.Copy ActiveCell.Offset(1, 0).Range("A1:A1945").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Voilà une macro toute simple construite par Excel.
Mais elle ne tient pas compte des blancs (cellules vides).
Quelqu'un à peut-être une idée.?
Salutations!........Merci d'avance.........DC
Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit
m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à
échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23tDuiRCqFHA.2816@tk2msftngp13.phx.gbl...
Sub Bonbon() ' Selection.Copy ActiveCell.Offset(1, 0).Range("A1:A1945").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Voilà une macro toute simple construite par Excel.
Mais elle ne tient pas compte des blancs (cellules vides).
Quelqu'un à peut-être une idée.?
Salutations!........Merci d'avance.........DC
michdenis
Bonjour DC,
Essaie ceci : En adaptant le nom de la feuille et de la plage de cellules au besoin.
'------------------------- Sub test()
Application.ScreenUpdating = False With Worksheets("Feuil2") .Activate .Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy With .Range("B1") .PasteSpecial xlPasteAll, , True .Select End With End With Application.CutCopyMode = False
End Sub '-------------------------
Salutations!
"DC" a écrit dans le message de news: 430c8718$0$7855$ Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC "isabelle" a écrit dans le message de news: %
Sub Bonbon() ' Selection.Copy ActiveCell.Offset(1, 0).Range("A1:A1945").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Voilà une macro toute simple construite par Excel.
Mais elle ne tient pas compte des blancs (cellules vides).
Quelqu'un à peut-être une idée.?
Salutations!........Merci d'avance.........DC
Bonjour DC,
Essaie ceci : En adaptant le nom de la feuille et
de la plage de cellules au besoin.
'-------------------------
Sub test()
Application.ScreenUpdating = False
With Worksheets("Feuil2")
.Activate
.Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy
With .Range("B1")
.PasteSpecial xlPasteAll, , True
.Select
End With
End With
Application.CutCopyMode = False
End Sub
'-------------------------
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news: 430c8718$0$7855$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit
m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à
échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23tDuiRCqFHA.2816@tk2msftngp13.phx.gbl...
Essaie ceci : En adaptant le nom de la feuille et de la plage de cellules au besoin.
'------------------------- Sub test()
Application.ScreenUpdating = False With Worksheets("Feuil2") .Activate .Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy With .Range("B1") .PasteSpecial xlPasteAll, , True .Select End With End With Application.CutCopyMode = False
End Sub '-------------------------
Salutations!
"DC" a écrit dans le message de news: 430c8718$0$7855$ Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC "isabelle" a écrit dans le message de news: %
Sub Bonbon() ' Selection.Copy ActiveCell.Offset(1, 0).Range("A1:A1945").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Voilà une macro toute simple construite par Excel.
Mais elle ne tient pas compte des blancs (cellules vides).
Quelqu'un à peut-être une idée.?
Salutations!........Merci d'avance.........DC
DC
Bonjour à Tous.........Bonjour michdenis,
Tous ça fontionne à merveille, michdenis,
Aussi je ne sais quoi dire pour te remercier, vous êtes tous des Champions et m'incline devant votre générosité et vos compétences.........Un grand Merci à Tous.!
Essaie ceci : En adaptant le nom de la feuille et de la plage de cellules au besoin.
'------------------------- Sub test()
Application.ScreenUpdating = False With Worksheets("Feuil2") .Activate .Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy With .Range("B1") .PasteSpecial xlPasteAll, , True .Select End With End With Application.CutCopyMode = False
End Sub '-------------------------
Salutations!
"DC" a écrit dans le message de news: 430c8718$0$7855$ Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC "isabelle" a écrit dans le message de news: %
Sub Bonbon() ' Selection.Copy ActiveCell.Offset(1, 0).Range("A1:A1945").Select ActiveSheet.Paste Application.CutCopyMode = False End Sub
Voilà une macro toute simple construite par Excel.
Mais elle ne tient pas compte des blancs (cellules vides).
Quelqu'un à peut-être une idée.?
Salutations!........Merci d'avance.........DC
Bonjour à Tous.........Bonjour michdenis,
Tous ça fontionne à merveille, michdenis,
Aussi je ne sais quoi dire pour te remercier, vous êtes tous des Champions
et m'incline devant votre générosité et vos compétences.........Un grand
Merci à Tous.!
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
OYs$lOOqFHA.1336@TK2MSFTNGP11.phx.gbl...
Bonjour DC,
Essaie ceci : En adaptant le nom de la feuille et
de la plage de cellules au besoin.
'-------------------------
Sub test()
Application.ScreenUpdating = False
With Worksheets("Feuil2")
.Activate
.Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy
With .Range("B1")
.PasteSpecial xlPasteAll, , True
.Select
End With
End With
Application.CutCopyMode = False
End Sub
'-------------------------
Salutations!
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
430c8718$0$7855$8fcfb975@news.wanadoo.fr...
Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et
doit
m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range
à
échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC
"isabelle" <hoHoho@hohoHo> a écrit dans le message de news:
%23tDuiRCqFHA.2816@tk2msftngp13.phx.gbl...
Aussi je ne sais quoi dire pour te remercier, vous êtes tous des Champions et m'incline devant votre générosité et vos compétences.........Un grand Merci à Tous.!
Essaie ceci : En adaptant le nom de la feuille et de la plage de cellules au besoin.
'------------------------- Sub test()
Application.ScreenUpdating = False With Worksheets("Feuil2") .Activate .Range("A1:A" & .Range("A65536").End(xlUp).Row).Copy With .Range("B1") .PasteSpecial xlPasteAll, , True .Select End With End With Application.CutCopyMode = False
End Sub '-------------------------
Salutations!
"DC" a écrit dans le message de news: 430c8718$0$7855$ Bonjour à Tous..........Bonjour Isabelle,
Merci beaucoup..... de ta réponse.......mais, Jai de grosses lacunes et doit m'y prendre comme un pied.
Erreur d'éxécution'1004' et La méthode Paste Spécial de la classe Range à échoué
Aussi ce n'est pas grave, car michdenis à solutionné mon problème.
Salutations!......encore un grand Merci.......DC "isabelle" a écrit dans le message de news: %
