copie de series de cellules

[dad62]

bonjour le forum,
j'essaie en vint d'adapter une macro (créer par un excelnaute) pour copier des séries de cellules ,l'un d'entre vous pourrai peut être me dire ou ça bloque.


Sub CopieDonnéecolonne()

Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("DQE_COMPLET")
' Avec la feuille de destination
With Sheets("DQE")

' Inscrire les données dans la feuille de destination
.Range("A5:a26") = ShtS.Range("a3:a24")
.Range("B5:b26") = ShtS.Range("c3:c24")
.Range("c5:c26") = ShtS.Range("d3:d24")
.Range("d5:d26") = ShtS.Range("b3:b24")
.Range("E5:e26") = ShtS.Range("y3:y24")

' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub



merci pour vos explications

 

[laurent950]

Re : copie de series de cellules

Bonsoir,

ici nous somme en variable Objet :
Peux etre avec ce cours
Ce lien n'existe plus

Sub CopieDonnéecolonne()

Dim NLig As Long
Dim ShtS As Worksheet
' Définir le nom de la feuille source
Set ShtS = Sheets("DQE_COMPLET")
' Avec la feuille de destination
With Sheets("DQE")

' Inscrire les données dans la feuille de destination
.Range("a3:a24").Copy Destination:=ShtS.Range("A5:a26")
.Range("c3:c24").Copy Destination:=ShtS.Range("B5:b26")
.Range("d3:d24").Copy Destination:=ShtS.Range("c5:c26")
.Range("b3:b24").Copy Destination:=ShtS.Range("d5:d26")
.Range("y3:y24").Copy Destination:=ShtS.Range("E5:e26")

' Etc ....
End With
' Effacer les variables objet
Set ShtS = Nothing
End Sub

Laurent

 

[laurent950]

Re : copie de series de cellules

Suite
Sans With and With
Sub CopieDonnéecolonne()

Dim DQE_COMPLET As Worksheet
Dim DQE As Worksheet

' Objet = Définir le nom de la feuille source
Set DQE_COMPLET = Sheets("DQE_COMPLET")
Set DQE = Sheets("DQE")

' Inscrire les données dans la feuille de destination
DQE.Range("a3:a24").Copy Destination:=DQE_COMPLET.Range("A5:a26")
DQE.Range("c3:c24").Copy Destination:=DQE_COMPLET.Range("B5:b26")
DQE.Range("d3:d24").Copy Destination:=DQE_COMPLET.Range("c5:c26")
DQE.Range("b3:b24").Copy Destination:=DQE_COMPLET.Range("d5:d26")
DQE.Range("y3:y24").Copy Destination:=DQE_COMPLET.Range("E5:e26")

' DQE = le nom de la feuille en Objet + copie la Zone
' Destination:= (ici pour envoyer les donner copier vers la feuille DQE_COMPLET)
' Les données sont coller à l' endroit voulu dans la feuille DQE_COMPLET

' Etc ....
' Effacer les variables objet
Set DQE_COMPLET = Nothing
Set DQE = Nothing
End Sub
Laurent

 

[dad62]

Re : copie de series de cellules

merci laurent pour la réponse et pour le lien,je vais inverser la feuille source et destination, ça devrait le faire.encore une question comment fait -on pour copier les valeurs et non la formule?

 

[laurent950]

Re : copie de series de cellules

Suite

Sub CopieDonnéecolonne()

Dim DQE_COMPLET As Worksheet
Dim DQE As Worksheet

' Objet = Définir le nom de la feuille source
Set DQE_COMPLET = Sheets("DQE_COMPLET")
Set DQE = Sheets("DQE")

' Inscrire les données dans la feuille de destination

' Exemple pour copier uniquement la valeur (sans les formulles ni format)
DQE.Range("a3:a24").Copy
DQE_COMPLET.Range("A5:a26").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

' Copie l'intégralité
DQE.Range("c3:c24").Copy Destination:=DQE_COMPLET.Range("B5:b26")
DQE.Range("d3:d24").Copy Destination:=DQE_COMPLET.Range("c5:c26")
DQE.Range("b3:b24").Copy Destination:=DQE_COMPLET.Range("d5:d26")
DQE.Range("y3:y24").Copy Destination:=DQE_COMPLET.Range("E5:e26")

' DQE = le nom de la feuille en Objet + copie la Zone concerner
' Destination:= (ici pour envoyer les donner copier vers la feuille DQE_COMPLET en Objet aussi
' Les données sont copier à l' endroit voulu

' Etc ....
' Effacer les variables objet
Set DQE_COMPLET = Nothing
Set DQE = Nothing
End Sub

 

[dad62]

Re : copie de series de cellules

TANK FOR YOUR TIME. y'en a des balaise ici.
encore merci.