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
Bonjour Stéphan,
Tu peux essayer ceci :
Ceci fonctionne même si la feuille de destination est masquée. Il ne te reste plus qu'à indiquer les noms des feuilles et les bonnes adressses des cellules concernées.
'----------------------------- Sub test()
Dim Tblo As Variant
With Worksheets("Feuil1") Tblo = .Range("a1:D10") End With
With Worksheets("Feuil2") .Range("A1").Resize(UBound(Tblo, 1), UBound(Tblo, 2)) = Tblo End With
End Sub '-----------------------------
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
J'ai une macro qui automatise la copie d'une plage de cellules comportant une colonne masquée dans la feuille SOURCE.
Lors du paste dans la feuille DESTINATION, cette colonne n'est pas masquée.
Vous l'aurez deviné.....tout ce qui est après cette colonne est décalé.
Je précise que mon paste est un PasteSpecial du type:
Pourriez-vous me dépanner et me renseigner sur la façon de prendre en compte une colonne masquée dans un copy de plage de données ?
Merci !
Bonjour Stéphan,
Tu peux essayer ceci :
Ceci fonctionne même si la feuille de destination est masquée.
Il ne te reste plus qu'à indiquer les noms des feuilles et les
bonnes adressses des cellules concernées.
'-----------------------------
Sub test()
Dim Tblo As Variant
With Worksheets("Feuil1")
Tblo = .Range("a1:D10")
End With
With Worksheets("Feuil2")
.Range("A1").Resize(UBound(Tblo, 1), UBound(Tblo, 2)) = Tblo
End With
End Sub
'-----------------------------
Salutations!
"Stéphan DuQuébec" <StphanDuQubec@discussions.microsoft.com> a écrit dans le message de news:
65BA62AF-8329-4AD4-8FC8-9EF10BB7B216@microsoft.com...
Bonjour,
J'ai une macro qui automatise la copie d'une plage de cellules comportant
une colonne masquée dans la feuille SOURCE.
Lors du paste dans la feuille DESTINATION, cette colonne n'est pas masquée.
Vous l'aurez deviné.....tout ce qui est après cette colonne est décalé.
Je précise que mon paste est un PasteSpecial du type:
Ceci fonctionne même si la feuille de destination est masquée. Il ne te reste plus qu'à indiquer les noms des feuilles et les bonnes adressses des cellules concernées.
'----------------------------- Sub test()
Dim Tblo As Variant
With Worksheets("Feuil1") Tblo = .Range("a1:D10") End With
With Worksheets("Feuil2") .Range("A1").Resize(UBound(Tblo, 1), UBound(Tblo, 2)) = Tblo End With
End Sub '-----------------------------
Salutations!
"Stéphan DuQuébec" a écrit dans le message de news:
Bonjour,
J'ai une macro qui automatise la copie d'une plage de cellules comportant une colonne masquée dans la feuille SOURCE.
Lors du paste dans la feuille DESTINATION, cette colonne n'est pas masquée.
Vous l'aurez deviné.....tout ce qui est après cette colonne est décalé.
Je précise que mon paste est un PasteSpecial du type: