changer valeur automatiquement sans formule

[chifounou]

Bonjour,

Non expert en VBA, je bute sur un truc bateau.

Mon but : lorsque je change manuellement la valeur A1, il faut qu'elle se change automatiquement (sans formule) pour nouvelle valeur A1 * valeur A2 ....une seule fois (pas de boucle infinie)

Pour ce faire j'ai édité le code de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.EnableEvents = False
   If Not Intersect(Target, Range("A1")) Is Nothing Then macrotest
   Application.EnableEvents = True
End Sub

La macro macrotest fonctionne comme souhaité si je l'assigne à un bouton ...pourtant rien ne se passe avec mon bout de code feuille en changeant juste A1

Classeur joint

Merci d'avance pour votre aide

 

[fredl]

Re : changer valeur automatiquement sans formule

Bonjour,
je viens de tester ton bout de code qui marche très bien
Si je mets 2 en A1
Le calcul auto 2*50%=1 se fait sans problème...
Peux tu préciser ton pb stp?
cdt
Frédéric

 

[chifounou]

Re : changer valeur automatiquement sans formule

Bonjour Frédéric
Ah, merci
Le pb semble que ça marche chez vous mais pas chez moi... si je mets 2 en A1 cela reste à 2 sans changement
Bug ? D'où cela peut-il venir ?!

 

[chifounou]

Re : changer valeur automatiquement sans formule

Autant pour moi, rien à signaler

 

[fredl]

Re : changer valeur automatiquement sans formule

parfait!
A+
frédéric