Quand cellule E4 change ?

[barbin]

bonjour à tous,
Suite à une erreur circulaire je souhaiterai faire un code du genre : Quand la cellule E4 change alors copier le résultat de E4 en D5.
Ce code est il faisable ?
cordialement

 

[DoubleZero]

Bonjour, barbin, le Forum,

Comme ceci (dans le module de l'onglet actif) ?

Option Explicit
Private Sub Worksheet_Change(ByVal c As Range)
    If c.Address = "$E$4" Then Range("d5").Value = Range("e4").Value
End Sub

A bientôt

 

[barbin]

Salut ,
J'ai essayé, et le code ne fonctionne pas.
Je joins le fichier. j'ai créé un bouton rouge (forfait social 8%) qui me sert pour récupérer la valeur de AW2 et de la transférer ensuite dans la cellule AP3.
Je souhaiterai me passé de ce bouton.
Cordialement.

 

[DoubleZero]

Re-bonjour,

... J'ai essayé, et le code ne fonctionne pas...

Avant de le proposer... j'ai essayé et le code était fonctionnel...

Quand la cellule E4 change alors copier le résultat de E4 en D5.

 

[barbin]

Je n'en doute pas.
J'ai voulu dire "chez moi, le code ne fonctionne pas".

J'ai joint le fichier, tu peux regarder stp.
Cordialement

 

[eriiic]

Bonjour,

Quand la cellule E4 change alors copier le résultat de E4 en D5.

je dirais que =E4 mis en D5 fait exactement ça
Pas vraiment besoin de macro...
eric

 

[barbin]

C'est pas si simple; j'ai une erreur de circularire en faisant =E4 en D5

 

[eriiic]

et bien adapte la macro de double zéro qui est correcte à tes cellules.
eric

 

[barbin]

J'ai déjà ce code sur toutes les feuilles :

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False

If Target.Column = 2 Then 'si on modifie un libellé sur la colonne B
'controle doublon
On Error GoTo fin: 'cas d'une cellule vide...
'on cherche la cellule contenant le mot "TOTAL" pour en déduire la fin du tableau
With ActiveSheet.Range("B:O")
Set ici = .Find("TOTAL", LookIn:=xlValues, lookat:=xlWhole)
If Not ici Is Nothing Then
finzone = ici.Row
End If
End With
nb = WorksheetFunction.CountIf(Range("B31:B" & finzone - 1), Target) 'on compte le nombre de fois qu'il est présent
If nb > 1 Then 'si on l'a plus d'une fois
MsgBox ("Libellé déjà saisi")
Application.Undo 'on annule la saisie par l'utilisateur
End If
End If
fin:
Application.EnableEvents = True
End Sub

Je ne sais pas comment insérer celui de double zéro.

 

[eriiic]

En AW2 tu as une formule. Chose que tu n'avais pas dite et c'est normal que la proposition de double zéro ne fonctionne pas.
Ce n'est pas AW2 qu'il faut surveiller mais toutes les cellules de saisie susceptibles de le modifier qu'il faut superviser.
eric

 

[DoubleZero]

Re-bonjour, bonjour eriiiic ,

... J'ai voulu dire "chez moi, le code ne fonctionne pas"...

A l'avenir, merci de bien vouloir déposer le véritable fichier de travail, sans aucune donnée confidentielle, dès la création de la discussion : personne ne perdra, alors, son temps !

A tester, dans le module de l'onglet "CADRE_2018" :

Private Sub Worksheet_Calculate()
    Application.EnableEvents = False
    Range("ap3").Value = Range("aw2").Value
    Application.EnableEvents = True
End Sub

A bientôt

 

[barbin]

merci, pour le code et le temps que tu as pris pour mon problème.
J'ai fait une erreur, j'aurais du mettre le fichier concerné directement dans le lien.
merci