michel_m
7021Messages postés
2 janvier 2008Date d'inscription
16 février 2012Dernière intervention
15 oct. 2008 à 11:09
Salut tatate, Pimprenelle
Ci dessous la macro qui multiplie les nombres dans la zone A1:10 ( à adapter à ton pb) par 1,196
Private Sub Worksheet_Change(ByVal Target As Range)
Static flag As Boolean
If flag = True Or Intersect(Target, Range("A1:A10")) Is Nothing Then
flag = False
Exit Sub
End If
flag = True
Target = Target * 1.196
end sub
pour l'installer:
tu fais copier sur cette macro
tu cliques "droit" sur l'onglet de ta feuille, puis visualiser le code
coller
Xl<2007 (tu n'as pas précisé!)
mettre la sécurité au niveau moyen ou bas: outils-macro-sécurité
