FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Copier la valeur et non la formule
 

Copier la valeur et non la formule

Il y a 317 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici
Ajouter une réponse



 Mot :   Pseudo :  
 
Bas de page
Auteur
 Sujet : Copier la valeur et non la formule
 
Plus d'informations

Bonjour,
Je voudrais savoir comment copier la valeur contenu dans un cellule et non la formule
La cellule donne une valeur grâce a une formule qu'elle contien or j'aimerais juste copier la valeur retourné et non la formule
 

Code :
  1. With wbfile.Worksheets("Feuil2" )
  2.     .Cells(60, i).Copy
  3.     .Cells(64, i).Paste


wbfile est un workbook

zeb
Profil : Modérateur libre
Plus d'informations

Grrrr  :fou:  
 
Ne passe pas par le presse papier pour faire une copie, bon sang !!!!!
De quel droit ton programme utilise-t-il le presse-papier ?
 
Si l'utilisateur copie une valeur puis utilise ton programme juste pour voir, sachant que ces données sont à l'abri dans le presse papier.
Si le résultat n'est pas celui escompté, cet utilisateur est en droit de coller ce qu'il pense être présent dans le presse-papier, non ?
 
Donc, première chose à faire, relire l'aide de .Copy.
Tu y découvriras le paramètre Destination :

Code :
  1. With wbfile.Worksheets("Feuil2" )
  2.     .Cells(60, i).Copy Destination:=.Cells(64, i)


 
______________
 
 
Bon, sinon, la solution à ton problème n'a rien à voir avec ça ;)
Revisite les propriétés de l'objet Range (Cells renvoie effectivement un Range).
Tu devrais y trouver .Text, .Value et .Formula*.
 
Devine ce que fais ce code:

Code :
  1. With wbfile.Worksheets("Feuil2" )
  2.     .Cells(64, i).Formula = .Cells(60, i).Formula


---------------
Règlement du forum / Règlement de Programmation / Règlement du Monde de Linux euh, n'y en a pas...

Aller à :
Ajouter une réponse
  FORUM Tom's Hardware » Programmation » VB / VBA / VBS » Copier la valeur et non la formule
 

Annonces Google
Publicité
Dans les albums
Les ressources relatives