Formulation

Le 03/10/2011 à 19:32

Bonjour

l'expression suivante est elle correct si je choisie

de selectionner sur ma feuille de calcul , 2 cellules à integrer au code suivant pour copier ma feuille dans une archive

les cellules selectionnée sont H4 et N3

ActiveSheet.Range("H4" , "N3").Copy
ActiveSheet.Range("H4" , "N3")..PasteSpecial Paste:=xlValues

est ce que mon ecriture est correct ?

merci

Le 03/10/2011 à 19:52

Bonsoir,

Pour les 2 cellules, remplace

ActiveSheet.Range("H4" , "N3").Copy

par

ActiveSheet.Range("H4, N3").Copy

j'aurais écris

With ActiveSheet.Range("H4, N3")
    .Value = .Value
End With

Bonne soirée

Claude

Le 03/10/2011 à 22:28

merci pour ta réponse ,donc en adaptant tes recommandations

est il juste d'ecrire cela ?

with ActiveSheet.Range("H4 , N3").Copy
      .value=.value
end with 
with ActiveSheet.Range("H4 , N3")..PasteSpecial Paste:=xlValues
     .value=.value
end with

Merci

Le 04/10/2011 à 02:13

Salut le forum

Rocket, non tu écris simplement en remplacement de ton code

With ActiveSheet.Range("H4, N3")
    .Value = .Value
End With

.Value = .Value évite l'utilisation du .Copy / .PasteSpecial

Mytå

Le 04/10/2011 à 06:09

Merci à toi , ce sera ça d'appris !! bonne journée

Le 04/10/2011 à 21:00

Bonsoir,