Macro qui ne fonctionne pas

[ffred2908]

Bonjour, tout à l'heure on m'a donné un exemple de macro que j'ai modifié, mais malheureusement, elle ne fait rien alors que normalement à chaque changement sur la feuille elle doit modifier la valeur des cellules et les multiplier par 5.
Pouvez-vous m'aider ?

Public vDonnée
---------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Not Intersect(Target, Range("L5C2:L35C2")) Is Nothing Then
vDonnée = Target.Value * 5
Target.Value = vDonnée
End If
fin
End Sub

 

[Cousinhub]

Re : Macro qui ne fonctionne pas

Bonjour, modifie comme ceci :

Dim vDonnée As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo fin
If Not Intersect(Target, Range[COLOR="Red"]("B5:B35")[/COLOR]) Is Nothing Then
[COLOR="Red"]Application.EnableEvents = False[/COLOR]
vDonnée = Target.Value * 5
Target.Value = vDonnée
[COLOR="Red"]Application.EnableEvents = True[/COLOR]
End If
[COLOR="Red"]fin:[/COLOR] ' n'oublie pas le : (deux-points)
End Sub

 

[jeanpierre]

Re : Macro qui ne fonctionne pas

Bonjour Fred,

Rester sur le même fil est beaucoup plus simple pour suivre..... que cela fonctionne ou non.....

Là, tu as changé les colonnes..... et pas que cela, de mémoire...

C'était ici : https://www.excel-downloads.com/threads/macro-help.89872/

Edit : Tit bonjour bhbh

 

[ffred2908]

Re : Macro qui ne fonctionne pas

oui c'est vrai désolé, mais j'ai du tenter de modifier le code pour que ça ne fasse pas une boucle infinie car chaque fois que je déplaçais le curseur je me sui rendu compte que ça modifiait la valeur de la cellule.
C'est vrai, j'aurais du rester sur mon premier post je n'y ai pas pensé, dslé!!!

J'essaie ton code

Merci

 

[ffred2908]

Re : Macro qui ne fonctionne pas

ça alors, c'est toujours pareil, la macro ne s'execute pas!!!
Je ne comprends pas, est-ce que j'aurais oublié de faire quelque chose ?

ça devrait se faire à chaque modification d'une cellule de ce champs non ?

 

[Cousinhub]

Re : Macro qui ne fonctionne pas

Re-,
normalement, elle devrait fonctionner....😡
Peut-être es-tu en mode "Désactivation" des évènements?

copies ce code dans un module, et exécute le (F5 ou F8)

Sub reactive()
Application.EnableEvents = True
End Sub

 

[jeanpierre]

Re : Macro qui ne fonctionne pas

Re,

Et avec F9, cela donne quoi ?

Si cela fonctionne, c'est que tu es en Calcul sur ordre....

Auquel cas : Outils/Options/Calcul et cocher Calcul automatique

A te lire.

Edit : re bhbh, et au vu de ta réponse, je sois être hors zone, voir ZOP total

 

[ffred2908]

Re : Macro qui ne fonctionne pas

Je viens de vérifier, je suis en calcul automatique, je ne comprends pas là

Le code que tu m'as donné ne fais rien non plus.

Par contre je dois rentrer chez moi car j'ai fini mon boulot, mais je reprends le fil dans 30 minutes

Merci beaucoup de m'aider en tout cas.

Je m'envoie les fichier pour pouvoir le faire chez moi

a tout à l'heure

 

[ffred2908]

Re : Macro qui ne fonctionne pas

Bonjour Jean Pierre,

Désolé, mais hier je n'ai pas pu revenir sur le forum, mais ta solution n'a pas rapporté de mieux

 

[ffred2908]

Re : Macro qui ne fonctionne pas

Je retire ce que j'ai dit Jean Pierre, tou st de ma faute, je n'avais pas mis le code sur la feuille concernée mais dans un module.

ça marche, merci beaucoup, mais cependant subsiste un problème:

Si l'on supprime les chiffres dans les cellules, la macro ne fonctionne plus!!

Y a t-il quelque chose à faire ?

Merci par avance

Fred