Mini macro

[Glasgow rangers]

Bonjour à vous tous

Je cherche à faire une petite macro.

En fait je voudrais qu'elle

Seletionne B39
copie la valeur de B39 et la colle dans E59


bonne journée

 

[Temjeh]

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

 

[Glasgow rangers]

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 ?

 

[jmps]

Bonjour Glasgow rangers, bonjour Temjeh,

En (beaucoup) plus court :

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

Bon appétit.

José

 

[Glasgow rangers]

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

 

[galopin01]

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+

 

[jmps]

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é

 

[Temjeh]

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