Mini macro

T

Temjeh

Guest

• 22 Janvier 2005

• #2

Salut Mini
Bonjour le forum

Tu peut te servir le l'enregistreur pour faire ca:

Ca donne

Sub Macro1()
Range("B39").Select
Selection.Copy
Range("E59").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

A+

Temjeh

 

Vote positif 0 Vote négatif

G

Glasgow rangers

Guest

• 22 Janvier 2005

• #3

Merci Beaucoup Themjey

mais j'ai un petit probleme
en fait quand elle copie la cellule en B39, elle copie
également la formule, alors que j'aimerais qu'elle copie uniquement la valeur vers la E39
comment faire ?

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 22 Janvier 2005

• #4

Bonjour Glasgow rangers, bonjour Temjeh,

En (beaucoup) plus court :

Range("E59").Value = Range("B39").Value

Bon appétit.

José

 

Vote positif 0 Vote négatif

G

Glasgow rangers

Guest

• 22 Janvier 2005

• #5

En fait jmps, j'ai mis des formules dans E59 et B39.
J'ai testé ta macro, et cela enleve les formule ds les cellules

Je pense que la macro de themjey pourrais
marché il faudré juste que au lieu de copier
la Cellule, cela copie et colle la valeur de la cellule.

donce rajouter un .Value mais je vois pas trop comment.
Merci d'avance

Sub Macro1()
Range("B39").Select
Selection.Copy
Range("E59").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

G

galopin01

Guest

• 22 Janvier 2005

• #6

Bonjour,
recommence avec une feuille propre et tu verras cque jmps t'a donné la solution.
Range("E59").Value = Range("B39").Value ...ne fait rien d'autre que définir la valeur de E59
A+

 

Vote positif 0 Vote négatif

J

jmps

Guest

• 22 Janvier 2005

• #7

Re tous,

Glasgow rangers (Lol !), je comprends plus rien. Tu as déjà quelque chose dans ta cellule cible ?
Tu veux copier ce qu'il y a en B39 mais tu as déjà quelque chose en E59, c'est ça ?

Explique toi mieux stp...

A+

José

 

Vote positif 0 Vote négatif

T

Temjeh

Guest

• 23 Janvier 2005

• #8

Rebonjour à tous

Avec paste de valeur

Sub Macro1()
Range("B39").Select
Selection.Copy
Range("E59").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

A++

Temjeh

 

Vote positif 0 Vote négatif