copier juste la valeur

[boule de neige]

Bonjour le forum,

J'ai besoin d'aide pour modifier mon code pour ne copier que la valeur.

Range("A1,E1").Copy Sheets("feuil1").Range("A65000").End(xlUp)(2)

merci pour votre aide.

 

[adel53]

Re : copier juste la valeur

bonjour

C''est au moment de coller qu'il faut range(destination).PasteSpecial xlPasteValues

 

[Pierrot93]

Re : copier juste la valeur

Bonjour,

essaye comme ceci :

Range("A1,E1").Copy
Sheets("feuil1").Range("A65000").End(xlUp)(2).PasteSpecial xlPasteValues

bonne journée
@+

 

[boule de neige]

Re : copier juste la valeur

Bonjour pierrot93 et adel53.

Merci il fallait que je mette à la ligne ok.

petite question encore
et si je veux prendre que la valeur de A1 et E1 pour les combiner ensemble.

 

[Pierrot93]

Re : copier juste la valeur

Re,

pour mettre A1 et E1 dans la même cellule ?

 

[boule de neige]

Re : copier juste la valeur

Pierrot du style.

(A1& "" &E1)

 

[Pierrot93]

Re : copier juste la valeur

Re,

peut être comme ceci :

Sheets("feuil1").Range("A65000").End(xlUp)(2) = Range("A1") & Range("E1")

 

[boule de neige]

Re : copier juste la valeur

Re,

j'ai oublié de te donner une info en plus.
sur le premier code je vais rajouter également I1.
donc ce qui devrait donner le résultat suivant.

première colonne A1& "" &E1 ce que tu viens de me donner.
et en deuxième colonne la valeur de I1 comment je dois le rajouter maintenant

 

[job75]

Re : copier juste la valeur

Bonjour, salut Pierrot,

Bah avec ce principe vous pouvez renseigner autant de cellules que vous voulez :

With Sheets("Feuil1").[A65000].End(xlUp)(2)
  .Value = [A1] & [E1]
  .Offset(, 1)= [I1]
End With

A+

 

[boule de neige]

Re : copier juste la valeur

Merci de votre aide