Macro pour copier la valeur d une cellule et la mettre dans une autre

[ngexcel]

bonjour comment exécuter cette macro automatiquement quand d3 change
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 24/11/2012 par a
'

'
Range("D3").Select
Selection.Copy
Range("E3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

 

[CHALET53]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

Bonjour

Soit plus précis :
Quand D3 change de valeur
quand D3 devient A3
ou ....
a+

 

[ngexcel]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

bonjour
j 'ai une cellule A1 qui reçoit un résultat via une formule
je veux juste que dans une cellule A2 a coté j ai juste la valeur et pas la formule
mais je veux que cela se fasse des qu un résultat en a1 et détecté
merci

 

[Yaloo]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

Bonjour ngexcel, Chalet, le forum,

Essaie avec cette macro dans le module de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Set isect = Application.Intersect(Target, Range("A3"))
  If Not isect Is Nothing Then Macro1
End Sub

Tu peux également changer ta macro par :

Sub Macro1()
    [E3] = [D3]
End Sub

Martial

 

[ngexcel]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

merci de votre reponse
je vous envoi le fichier pouvez vous regarder
dans la cellule D1 j ai une formule =10
dans la cellule D2 j ai une formule =D1

et la je veux que la cellule A2 soit egale D2 mais seulement la valeurr

votre macro marche seulement si je vais dans la barre de formule de D2 et je fais enter

 

[Yaloo]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

Re,

Pourrais tu être plus clair, car dans la macro1 de ton 1er fichier, la valeur de la cellule D3 était copier dans la cellule E3.

Avec le nouveau classeur, cela change complètement.

Ah, ça y est je pense avoir compris. Le message de Chalet m'a un peu perturbé, car il parler de A3, alors qu'il n'en est rien.

Il faut mettre

Set isect = Application.Intersect(Target, Range("d1"))

à la place de

Set isect = Application.Intersect(Target, Range("d2"))

Car c'est la cellule D1 qui change, puis déclenche la formule puis déclenche la macro.

A+

Martial

 

[ngexcel]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

merci c bon super

 

[ngexcel]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

re
une derniere question
cela marche uniquement si la valeur d1 et saisie si c une formule ca mache pas regardez mon fichier

 

[Yaloo]

Re : Macro pour copier la valeur d une cellule et la mettre dans une autre

Re,

Désolé, je ne comprends pas le langage sms.

A te relire

Martial