Msgbox lors de la modfication d'une cellule

[bibbip35]

Bonjour a tous

Je viens vers vous tous car je suis en train d'achever 1 petit fichier excel pour mon travail
et etant débutant en VBA...Je rencontre quelques difficultés🙁

Je souhaiterais concretement
que lorsque la cellule N7 change ( Attention N7 est 1 cellule calculée en fonction d'autres cellules ); que excel compare N7 & 07
Si 07 > N7 , il y aurait 1 msg box qui apparaiterait :
"Attention , optimisation ligne non conforme : perte "cellule Q7""

J'aimerais ensuite , que cela s'applique sur la ligne 8, 9, 10, 11............
=> Losque la cellule N8 change.....

Je vous remercie tous par avance pour l'aide que vous pourrez m'apportez!!!🙄

Bonne soirée à tous

Bibbip 35

 

[Victor21]

Re : Msgbox lors de la modfication d'une cellule

Bonsoir, bibbip35 et bienvenue sur XLD.

Une proposition en pj avec la validation de données -de ce que j'ai compris 🙂

 

[JCGL]

Re : Msgbox lors de la modfication d'une cellule

Bonjour à tous,
Salut Patrick,

Bienvenue sur XLD

Dans le module de la feuille concernée :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("N7:N100")) Is Nothing Then
If Target.Offset(, 1) > Target Then MsgBox "Attention , optimisation ligne non conforme : perte cellule Q" & Target.Row, vbCritical, "Attention"
End If
End Sub

A+ à tous

 

[bibbip35]

Re : Msgbox lors de la modfication d'une cellule

Bonsoir et merci pour vos reponses si rapide😀

Par contre, après test les solutions ne fonctionne pas:
Le fichier excel ainsi que la formule n'affiche pas de VBA hélas😕

Je suis preneur pour toutes solutions

Bonne soirée à tous

 

[JCGL]

Re : Msgbox lors de la modfication d'une cellule

Bonjour à tous,

Le fichier est de Victor21 donc "la formule" doit me concerner...
Ce n'est pas une formule mais un bout de code à placer dans le module VBA de la feuille.

Voir le fichier joint en cliquant sur N7, N8, N9...
Il faut activer les macros.

A+ à tous

 

[bibbip35]

Re : Msgbox lors de la modfication d'une cellule

Merci JCGL

Je pense que j'ai du mal expliqué mon objectif
Ce que je souhaite c'est quand la cellule N7 change du a une autre cellule
Par exemple si on change la A7 de LE1 a LE2 ou LE3, la valeur N7 va changer automatiquement
et c'est a ce moment que je souhaiterais que la fonction Si 07 > N7 , et apparition 1 msg box qui apparaiterait :
"Attention , optimisation ligne non conforme : perte "cellule Q7""

Par contre, dernière precision "Cellule Q7" , c'est la valeur ecrit dans Q7

Je ne sais pas si j'ai su m'expliquer correctement...

Merci en tous cas pour l'aide

Bibbip35

 

[Victor21]

Re : Msgbox lors de la modfication d'une cellule

Re, Bonsoir, Jean-Claude 🙂

Par contre, après test les solutions ne fonctionne pas:
Le fichier excel ainsi que la formule n'affiche pas de VBA hélas😕

Je n'ai pas testé la proposition VBA de JC, mais je sais que s'il la publie, c'est qu'il l'a testée.
Tout comme j'ai testé la mienne.
Un fichier Excel effectue des calculs, mais n'affiche pas de VBA, de même qu'une formule renvoie un résultat, mais n'affiche pas de VBA.
Tentez d'expliquer le problème que vous rencontrez pour mettre ces solutions en oeuvre, et nous ferons notre possible pour vous y aider.

Edit : Mille pardons, j'ai trop vite -mal- lu les contraintes (cellule calculée) et ma proposition peut être jetée à la poubelle ou mieux, recyclée 😱

 

[Staple1600]

Re : Msgbox lors de la modfication d'une cellule

Bonsoir à tous

et etant débutant en VBA...Je rencontre quelques difficultés

l'explication des déboires de bibip35 se trouve sans doute dans cette phrase 😉
Mais bon il faut bien débuter un jour 😉 (en vba comme en Excel et comme en forumologie)
bibbip35 aurait du plutot écrire: "je n'arrive pas à faire fonctionner la proposition de JCGL."

Précisions: L'extension de ta PJ, devrait être *.xlsm et surtout pas *.xlsx et encore moins *.xlsm.xlsx

Je laisse le soin à JCGL de réapporter les explications nécessaire au fonctionnement de son VBA événementiel 😉

 

[bibbip35]

Re : Msgbox lors de la modfication d'une cellule

Bonjour a tous

Je me permets de remonter le sujet en tête de liste pour savoir si quelqu'un avait une solution a me proposer

Je vous remercie tous par avance pour votre aide

Bonne journée a tous
Bibbip35

 

[Staple1600]

Re : Msgbox lors de la modfication d'une cellule

Bonjour à tous

bipbip35
Ôtes-moi, stp, d'un doute (ou deux):
•le fichier que tu utilises est bien avec une extension *.xlsm ou *.xls
(et pas *.xlsx car sinon il ne peut contenir de macros)
• Et quand tu ouvres ton fichier les macros sont bien activées ?

 

[JCGL]

Re : Msgbox lors de la modfication d'une cellule

Bonjour à tous,

Peux-tu essayer ceci dans le module de la feuille concernée :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A7:A100")) Is Nothing Then
If Target.Offset(, 13) > Target.Offset(, 14) Then MsgBox "Attention , optimisation ligne non conforme : perte cellule Q" & Target.Row & " : " & Format(Target.Offset(, 16).Value, "0.00%"), vbCritical, "Attention"
End If
End Sub

A+ à tous

 

[Si...]

Re : Msgbox lors de la modfication d'une cellule

Salut

Si… je ne me trompe pas trop, JCGL 🙂 , le résultat dépend de plusieurs cellules non ?
Le code pourrait être (clic droit sur le nom de l’onglet puis Visualiser le code)

Private Sub Worksheet_Change(ByVal R As Range)
  If Not Intersect(R, Range("A7:A6500,H7:H9500,I7:I5600")) Is Nothing Then
    If Cells(R.Row, 14) >= Cells(R.Row, 15) Then Exit Sub
    MsgBox "optimisation ligne non conforme," & vbLf & "perte de " & _
         Format(-Cells(R.Row, 17), "0.0%"), 64, "Attention..."
  End If
End Sub

Il faudrait peut-être aussi envisager les changements en J5:M5 mais c'est une autre histoire avec un "générique" plus conséquent.

 

[bibbip35]

Re : Msgbox lors de la modfication d'une cellule

un grand MERCI a tous

LA SOLUTION DE JCGL fonctionne parfaitement!!!!😀
Je rencontre juste 1 problème , quand je supprime 1 ligne ca me creer 1 erreur du coup?😕

Chapeau bas....😀

Par contre, si j'aurrais 1 autre question , pour MSGBOX compléméntaire
Je souhaiterais le faire mais sur 1 plage de cellule
J7: U1000

Si la cellule devient < 100%, il y aurait 1 msgbox

Est ce possible en VBA de gerer les %?

Merci d'avance a tous

bibbip35

 

[bibbip35]

Re : Msgbox lors de la modfication d'une cellule

Re bonjour à tous

J'ai reussi a desactiver la procédures evementielle pendant la surpression d'une ligne

Mais maintenant, c'est pour l'ajout d'une ligne
J'utilise 1 userform ( formulaire personalisé ) et j'ai desactivée la procedure le temps de l'ajout
mais du coup ca ne compare plus

Est-il possible de comparer a la fin de l'ajout des nouvelles valeurs soit après l'exection de la macro
MSGBOX après macro si valeur X < Y de la ligne active fianalement

Je vous remercie tous par avance