Copier valeur et non formule
Résolu/Fermé
sanchis81
Messages postés
134
Date d'inscription
mardi 17 février 2009
Statut
Membre
Dernière intervention
2 octobre 2013
-
18 sept. 2009 à 11:15
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 18 sept. 2009 à 14:52
sanchis81 Messages postés 134 Date d'inscription mardi 17 février 2009 Statut Membre Dernière intervention 2 octobre 2013 - 18 sept. 2009 à 14:52
A voir également:
- Copier valeur et non formule
- Formule excel - Guide
- Formule si et - Guide
- Copier une vidéo youtube - Guide
- Clémence souhaite faire calculer automatiquement les prix de 30 produits dans trois devises. elle a déjà saisi une formule de calcul pour le tarif du premier produit dans la première devise. corrigez sa formule afin que recopiée vers le bas puis vers la droite, elle remplisse correctement tout le tableau. - Forum Excel
- Formule moyenne excel - Guide
1 réponse
pijaku
Messages postés
12263
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
4 janvier 2024
2 743
18 sept. 2009 à 12:55
18 sept. 2009 à 12:55
Salut,
Bien sur, tout est possible avec VBA. Si tu veux "t'entrainer" un peu, tu peux tester quelques codes avec l'enregistreur de macro Excel et les modifier. Par exemple copier / collage spécial valeurs avec l'enregistreur de macro tu aurais obtenu : [dans cet exemple j'ai copié D7 (cellule avec formule) et ai fait un collage spécial "valeur" en F7]
Range("D7").Select
Selection.Copy
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
La partie en gras est à adapter à ton code comme ceci :
Sheets("Feuil1").Range("D7:D31").Copy
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Bien sur, tout est possible avec VBA. Si tu veux "t'entrainer" un peu, tu peux tester quelques codes avec l'enregistreur de macro Excel et les modifier. Par exemple copier / collage spécial valeurs avec l'enregistreur de macro tu aurais obtenu : [dans cet exemple j'ai copié D7 (cellule avec formule) et ai fait un collage spécial "valeur" en F7]
Range("D7").Select
Selection.Copy
Range("F7").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
La partie en gras est à adapter à ton code comme ceci :
Sheets("Feuil1").Range("D7:D31").Copy
Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
18 sept. 2009 à 14:52
Tu as raison pour ta méthode de travail. ça permet de progresser tout en bidouillant
A+