Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro qui ne fonctionne pas

  • Initiateur de la discussion Initiateur de la discussion ffred2908
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

F

ffred2908

Guest
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
 
Dernière modification par un modérateur:
Re : Macro qui ne fonctionne pas

Bonjour, modifie comme ceci :

Code:
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
 
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
 
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 ?
 
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)

Code:
Sub reactive()
Application.EnableEvents = True
End Sub
 
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
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
9
Affichages
508
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
1 K
Réponses
4
Affichages
586
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…