Coller un bloc de cellule dans une feuille ayant des lignes masqué
1 réponse
ali.saadi
Bonjour,
J'ai un tableau Excel avec des lignes masqu=E9es. Concretement, j'ai
donc
comme num=E9rotation de lignes : 1, 2, 3, 4, 8, 15, 16, 17
Je voudrai coller un groupe de cellule des lignes 1 =E0 4 vers les
lignes 8,15,16,17.
Si je fais un copier puis en collant en me placant sur la premiere
cellule de la ligne 8,
seule la ligne 1 est coller les autres non. Alors que je m'attendais =E0
ce que la copie soit faite sur les lignes 8,15,16,17.
Est ce que quelqu'un saurait si il y a une option Excel =E0 activer pour
avoir ce comportement.
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
michdenis
Tu adaptes cette exemple à ta réalité
'--------------------- Sub Copie()
Dim A As Integer Dim Rg As Range, R As Range Dim Dest As Range
'Plage source On Error Resume Next 'Plage des lignes à copier Set Rg = Feuil1.Range("A2:C25").SpecialCells(xlCellTypeVisible)
'Plage Destination Set Dest = Feuil2.Range("A5") 'là où débutera la copie
For Each R In Rg.Rows A = A + 1 R.Copy Dest.Rows(A) Next Set Rg = Nothing: Set Dest = Nothing: Set R = Nothing End Sub '---------------------
a écrit dans le message de news:
Bonjour,
J'ai un tableau Excel avec des lignes masquées. Concretement, j'ai donc comme numérotation de lignes : 1, 2, 3, 4, 8, 15, 16, 17
Je voudrai coller un groupe de cellule des lignes 1 à 4 vers les lignes 8,15,16,17. Si je fais un copier puis en collant en me placant sur la premiere cellule de la ligne 8, seule la ligne 1 est coller les autres non. Alors que je m'attendais à ce que la copie soit faite sur les lignes 8,15,16,17. Est ce que quelqu'un saurait si il y a une option Excel à activer pour avoir ce comportement.
Merci
Tu adaptes cette exemple à ta réalité
'---------------------
Sub Copie()
Dim A As Integer
Dim Rg As Range, R As Range
Dim Dest As Range
'Plage source
On Error Resume Next
'Plage des lignes à copier
Set Rg = Feuil1.Range("A2:C25").SpecialCells(xlCellTypeVisible)
'Plage Destination
Set Dest = Feuil2.Range("A5") 'là où débutera la copie
For Each R In Rg.Rows
A = A + 1
R.Copy Dest.Rows(A)
Next
Set Rg = Nothing: Set Dest = Nothing: Set R = Nothing
End Sub
'---------------------
<ali.saadi@mediacad.fr> a écrit dans le message de news:
1159366240.536659.312860@m7g2000cwm.googlegroups.com...
Bonjour,
J'ai un tableau Excel avec des lignes masquées. Concretement, j'ai
donc
comme numérotation de lignes : 1, 2, 3, 4, 8, 15, 16, 17
Je voudrai coller un groupe de cellule des lignes 1 à 4 vers les
lignes 8,15,16,17.
Si je fais un copier puis en collant en me placant sur la premiere
cellule de la ligne 8,
seule la ligne 1 est coller les autres non. Alors que je m'attendais à
ce que la copie soit faite sur les lignes 8,15,16,17.
Est ce que quelqu'un saurait si il y a une option Excel à activer pour
avoir ce comportement.
Dim A As Integer Dim Rg As Range, R As Range Dim Dest As Range
'Plage source On Error Resume Next 'Plage des lignes à copier Set Rg = Feuil1.Range("A2:C25").SpecialCells(xlCellTypeVisible)
'Plage Destination Set Dest = Feuil2.Range("A5") 'là où débutera la copie
For Each R In Rg.Rows A = A + 1 R.Copy Dest.Rows(A) Next Set Rg = Nothing: Set Dest = Nothing: Set R = Nothing End Sub '---------------------
a écrit dans le message de news:
Bonjour,
J'ai un tableau Excel avec des lignes masquées. Concretement, j'ai donc comme numérotation de lignes : 1, 2, 3, 4, 8, 15, 16, 17
Je voudrai coller un groupe de cellule des lignes 1 à 4 vers les lignes 8,15,16,17. Si je fais un copier puis en collant en me placant sur la premiere cellule de la ligne 8, seule la ligne 1 est coller les autres non. Alors que je m'attendais à ce que la copie soit faite sur les lignes 8,15,16,17. Est ce que quelqu'un saurait si il y a une option Excel à activer pour avoir ce comportement.
