Probleme macro

[stephpro]

re-bonjour

J'ai intégré cette macro :

Sub Worksheet_Change(ByVal Target As Range)
If Range("L36") < Range("h28") Then
MsgBox "en hausse !"
End If

dans clic droit feuille 1 "Visualiser le code"

Elle fonctionne mis à part que si la cellule est inferieur le message se répète sans cesse si on selection n'importe qu'elle cellule !

Mais mon problème c'est que quand je quitte excel il me dit mes fonctionnalités ne peuvent pas être enregistrées dans des classeurs sans macro....

Je valide oui quand même et quand j'ouvre à nouveau mon document la macro disparaît !!!

Merci pour votre aide

 

[ROGER2327]

Re : Probleme macro

Bonjour stephpro

Essayez ceci :

[COLOR="DarkSlateGray"][B]Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$L$36" Or Target.Address = "$H$28" Then
      If Range("L36") < Range("h28") Then MsgBox "en hausse !"
   End If
End Sub[/B][/COLOR]

ROGER2327
#2938

 

[jeanpierre]

Re : Probleme macro

Bonjour stephpro,

Tu dois utiliser Excel 2007, non ?

Pour ta seconde question :

Si c'est le cas il faut que tu enregistres ton fichier au format .XLSM par Enregistrer sous.

Bon après-midi.

Jean-Pierre

Edit : Bonjour ROGER

 

[stephpro]

Re : Probleme macro

Bonsoir et merci pour vos réponses !
Roger la macro ne fonctionne pas chez moi !!!! il se passe rien ?

Jean Ierre effectivement c'est bien la version 2007

 

[ROGER2327]

Re : Probleme macro

Re...

(...) Roger la macro ne fonctionne pas chez moi !!!! il se passe rien ? (...)

Voyez le classeur joint : ça fonctionne.​

ROGER2327
#2939

 

[stephpro]

Re : Probleme macro

Merci encore une fois mais j'avoue que la je suis dépourvu 🙁

Je vous joins le fichier en question !
la cellule ou le message doit apparaître est L36 si elle est inférieur à 1.185

Merci par avance

 

[Fo_rum]

Re : Probleme macro

Salut

On ne le dira jamais assez :"JOINDRE UN BOUT DE FICHIER REVELATEUR" !
Tu as des formules dans une des cellules à comparer, essaie donc :
:

Sub Worksheet_Change(ByVal Target As Range)
   Dim Plage As Range
   Set Plage = Union(Range("F28:F31"), Range("F34"), Range("H28:J31"), Range("H33:J34"))
   If Intersect(Target, Plage) Is Nothing Then Exit Sub
   If [L36] < [H28]Then MsgBox "en hausse !"
End Sub

 

[stephpro]

Re : Probleme macro

Merci,
Mais désolé je renvoie le fichier car il ne fonctionne pas et pourtant la macro est présente ?
décidément....

 

[Robert]

Re : Probleme macro

Bonjour le fil, bonjour le forum,

Manquait juste une petit not... comme quoi la musique adoucit les mœurs...

   If [COLOR=red]Not[/COLOR] Intersect(Target, Plage) Is Nothing Then Exit Sub

 

[Fo_rum]

Re : Probleme macro

Re

peux-tu nous donner un exemple qui ne "marche pas" ?
Robert, je n'ai pas mis Not pour éviter de tester un changement en dehors des cellules impliquant le calcul de L36.
Je dois n'avoir pas compris la question ou m'être trompé de partition (le rap pour moi c'est comme la rape : ça gratte) ?😕.

 

[stephpro]

Re : Probleme macro

Dans le dernier fichier envoyé il a fonctionné une première fois, une fois que j'ai quitté le fichier et à nouveau ré-ouvert ! plus rien pourtant la macro est bien présente dans la feuille de calcul ! quand je saisi par exemple J28 et que je lui donne une valeur en dessous de 0,99 le message n'apparait plus....
J'avoue être perdu !
Si cela peut éventuellement vous aider en format xlsx un message apparaît comme :

"Les fonctionalités ne peuvent pas être enregistrées dans des classeurs sans macro :
* VB
pour enregistrer un fichier avec ses fonctionnalités, cliquez sur non, puis sélectionné un type de fichier prenant en charge les macros dans la liste type de fichier
pour continuer à enregistrer en tant que classeur Macro, cliquez sur oui "

voila le message qui s'affiche !

Merci

 

[wainso]

Re : Probleme macro

tu est sur excel 2007! quand la boite de dialogue s'affiche tu dois taper "non" puis choisir le format du fichier "enregistrer fichier supportant les macros" sinon tous ton travail sera perdu
bye

 

[Fo_rum]

Re : Probleme macro

Re

Désolé mais ton problème n'apparaît pas avec ma version d'EXCEL et comme je n'ai pas la tienne ...
Ton fichier est peut être corrompu.
Dans des cas similaires, j'en reconstruis un autre à coup de copier/coller.
Mais sera-ce efficace dans ton cas ?
Je continuerai à suivre la discussion car je ne vois pas ce qui dans ma macro pourrait conduire à un tel plantage 😱.

 

[ROGER2327]

Re : Probleme macro

Bonsoir à tous.

Re...

Merci encore une fois mais j'avoue que la je suis dépourvu 🙁

Je vous joins le fichier en question !
la cellule ou le message doit apparaître est L36 si elle est inférieur à 1.185

Merci par avance

Je suis moi aussi dépourvu...
Ma réponse (#2) concernait votre demande initiale (#1) : surveiller les cellules L36 et H28 et afficher un message dès lors que la valeur de la deuxième excède celle de la première. Je vous assure que la procédure que j'ai écrite fait ce travail.
Vous posez maintenant un problème différent.
Quel est, en réalité, le problème que vous voulez résoudre ? Le premier ou le deuxième ?​

ROGER2327
#2945

 

[stephpro]

Re : Probleme macro

Bonjour à tous,
Wainso j'ai effectué cette manip mais sans résultat !

Forum je l'ai tenté également et sans succès !

Roger voici la manipulation précise de ce que j'entreprends :

Une fois reçu #2, ou #7 et #9 je copie l'une des solutions dans ma feuille 1 clic droit "visualiser les codes" coller ! par la suite je clic sur la croix de la fenêtre pour fermer MVB et retourne sur une des cellules pour changer le coef et la cela fonctionne bien...

Après coup quand je quitte excel et que je reviens sur le fichier ou que je l'envoie chez moi pour essayer et bien cela ne fonctionne plus..... Ni en xls ni en xlsm et encore moins en xlsx car le message du # 11 apparaît...

J'espère être convainquant dans mes explications.....

Merci