Amélioration de code

[apamemkes]

Bonjour le Forum

J'ai un code qui fonctionne correctement quand il n'y a pas de formule. Peux-ton l'amélioré en copiant que la valeur de la cellule?

Sheets("territoire").Cells(27, s).Copy Sheets("Donnée").Cells(5, m)

Merci

 

[apamemkes]

Re : Amélioration de code

Re bonjour,

J'ai trouvé il faut faire un saut de ligne

Sheets("territoire").Cells(32, s).Copy
Sheets("Donnée").Cells(9, m).PasteSpecial Paste:=xlPasteValues

merci

 

[phlaurent55]

Re : Amélioration de code

Bonjour,

essaie ceci:
Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value

à+
Philippe

 

[apamemkes]

Re : Amélioration de code

Bonjour,

essaie ceci:
Sheets("Donnée").Cells(5, m)=Sheets("territoire").Cells(27, s).Value

à+
Philippe

bonjour

Sa fonction aussi

Merci