Je reviens vers vous avec la m=EAme question qui me bloque=20
depuis plusieurs.
Je souhaite ins=E9rer des lignes que j'ai copi=E9 sur une=20
feuille dans une autre pour les sauvegarder.
Pour cela , j'aimerai utiliser la fonction Insertion=20
Cellule Copi=E9e mais elle ne marche pas car j'ai utilis=E9 un=20
Filtre automatique avant de copier les lignes.
Si j'utilise un simple copier/coller alors j'=E9crase les=20
lignes qui sont d=E9j=E0 sur la feuille de destination.
Auriez-vous une solution pour r=E9activer la fct insertion=20
m=EAme avec un filtre ou en contournant le pb !!!!!
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
Lydya
Bonjour Kam,
Voici une macro qui te permettra d'insérer les lignes copiées malgré le filtre. ALT F11 pour afficher l'Editeur Visual Basic : Insertion / Module puis coller la procédure ci-dessous : -- Sub InsererLignesFiltrees() Dim l As Object Dim Lignes As Long Dim LignesACopier As Range Dim lignedest As Long Dim i As Integer If Selection.Cells.Count = 1 Then MsgBox "Selectionnez les lignes à copier" Exit Sub End If Set LignesACopier = Selection.SpecialCells(xlCellTypeVisible).Rows Lignes = 0 For Each l In LignesACopier Lignes = Lignes + 1 Next l Sheets("Dest").Activate lignedest = InputBox _ ("Insérer les lignes copiées à partir de quelle ligne ?" & _ " (saisir le numéro de la ligne, ex: 5)") For i = 1 To Lignes Rows(lignedest).Insert Next i LignesACopier.Copy Destination:=Range("A" & lignedest) End Sub -- A adapter : ->Sheets("Dest") : où Dest est le nom de la feuille dans laquelle seront insérées les lignes copiées Exécution de la macro : (ALT F8, sélectionner le nom de la macro, Exécuter ou affecter la macro à un bouton) ->sélectionner les lignes à copier ->lancer la macro ->Une boîte de dialogue te demandera de saisir le numéro de la ligne à partir de laquelle les lignes copiées devront être insérées dans la feuille "Dest". -- Si tu as besoin d'infos complémentaires, n'hésite pas !
Lydya
-- "kam7" a écrit dans le message de news:073401c396e2$0f162270$ Bonjour tout le monde,
Je reviens vers vous avec la même question qui me bloque depuis plusieurs.
Je souhaite insérer des lignes que j'ai copié sur une feuille dans une autre pour les sauvegarder.
Pour cela , j'aimerai utiliser la fonction Insertion Cellule Copiée mais elle ne marche pas car j'ai utilisé un Filtre automatique avant de copier les lignes.
Si j'utilise un simple copier/coller alors j'écrase les lignes qui sont déjà sur la feuille de destination.
Auriez-vous une solution pour réactiver la fct insertion même avec un filtre ou en contournant le pb !!!!!
Merci de votre aide.
Kam7
Bonjour Kam,
Voici une macro qui te permettra d'insérer les lignes copiées malgré le
filtre.
ALT F11 pour afficher l'Editeur Visual Basic : Insertion / Module puis
coller la procédure ci-dessous :
--
Sub InsererLignesFiltrees()
Dim l As Object
Dim Lignes As Long
Dim LignesACopier As Range
Dim lignedest As Long
Dim i As Integer
If Selection.Cells.Count = 1 Then
MsgBox "Selectionnez les lignes à copier"
Exit Sub
End If
Set LignesACopier = Selection.SpecialCells(xlCellTypeVisible).Rows
Lignes = 0
For Each l In LignesACopier
Lignes = Lignes + 1
Next l
Sheets("Dest").Activate
lignedest = InputBox _
("Insérer les lignes copiées à partir de quelle ligne ?" & _
" (saisir le numéro de la ligne, ex: 5)")
For i = 1 To Lignes
Rows(lignedest).Insert
Next i
LignesACopier.Copy Destination:=Range("A" & lignedest)
End Sub
--
A adapter :
->Sheets("Dest") : où Dest est le nom de la feuille dans laquelle seront
insérées les lignes copiées
Exécution de la macro : (ALT F8, sélectionner le nom de la macro, Exécuter
ou affecter la macro à un bouton)
->sélectionner les lignes à copier
->lancer la macro
->Une boîte de dialogue te demandera de saisir le numéro de la ligne à
partir de laquelle les lignes copiées devront être insérées dans la feuille
"Dest".
--
Si tu as besoin d'infos complémentaires, n'hésite pas !
Lydya
--
"kam7" <kam7@libertysurf.fr> a écrit dans le message de
news:073401c396e2$0f162270$a301280a@phx.gbl...
Bonjour tout le monde,
Je reviens vers vous avec la même question qui me bloque
depuis plusieurs.
Je souhaite insérer des lignes que j'ai copié sur une
feuille dans une autre pour les sauvegarder.
Pour cela , j'aimerai utiliser la fonction Insertion
Cellule Copiée mais elle ne marche pas car j'ai utilisé un
Filtre automatique avant de copier les lignes.
Si j'utilise un simple copier/coller alors j'écrase les
lignes qui sont déjà sur la feuille de destination.
Auriez-vous une solution pour réactiver la fct insertion
même avec un filtre ou en contournant le pb !!!!!
Voici une macro qui te permettra d'insérer les lignes copiées malgré le filtre. ALT F11 pour afficher l'Editeur Visual Basic : Insertion / Module puis coller la procédure ci-dessous : -- Sub InsererLignesFiltrees() Dim l As Object Dim Lignes As Long Dim LignesACopier As Range Dim lignedest As Long Dim i As Integer If Selection.Cells.Count = 1 Then MsgBox "Selectionnez les lignes à copier" Exit Sub End If Set LignesACopier = Selection.SpecialCells(xlCellTypeVisible).Rows Lignes = 0 For Each l In LignesACopier Lignes = Lignes + 1 Next l Sheets("Dest").Activate lignedest = InputBox _ ("Insérer les lignes copiées à partir de quelle ligne ?" & _ " (saisir le numéro de la ligne, ex: 5)") For i = 1 To Lignes Rows(lignedest).Insert Next i LignesACopier.Copy Destination:=Range("A" & lignedest) End Sub -- A adapter : ->Sheets("Dest") : où Dest est le nom de la feuille dans laquelle seront insérées les lignes copiées Exécution de la macro : (ALT F8, sélectionner le nom de la macro, Exécuter ou affecter la macro à un bouton) ->sélectionner les lignes à copier ->lancer la macro ->Une boîte de dialogue te demandera de saisir le numéro de la ligne à partir de laquelle les lignes copiées devront être insérées dans la feuille "Dest". -- Si tu as besoin d'infos complémentaires, n'hésite pas !
Lydya
-- "kam7" a écrit dans le message de news:073401c396e2$0f162270$ Bonjour tout le monde,
Je reviens vers vous avec la même question qui me bloque depuis plusieurs.
Je souhaite insérer des lignes que j'ai copié sur une feuille dans une autre pour les sauvegarder.
Pour cela , j'aimerai utiliser la fonction Insertion Cellule Copiée mais elle ne marche pas car j'ai utilisé un Filtre automatique avant de copier les lignes.
Si j'utilise un simple copier/coller alors j'écrase les lignes qui sont déjà sur la feuille de destination.
Auriez-vous une solution pour réactiver la fct insertion même avec un filtre ou en contournant le pb !!!!!
