Contrôle sur une valeur en dépassement

[NiCCiN]

Bonjour,
Voila mon soucis : j'ai une feuille excel, où j'indique par exemple dans la cellule D05 le montant maxi des travaux que je souhaite réaliser.

Puis en dessous, j'ai la liste des différentes actions de travaux réalisés, dont je fais la somme par exemple en D30.

Je calcul dans une autre celleule la différence réelle entre ce que j'ai fais comme travaux en mon montant maxi : D30-D05.

Mon but serait que lorsque ce montant atteint 0 ou bien devient négatif (plus de travaux en réel que le montant maxi), une petit boîte de dialogue apparaisse pour me dire par exemple :
"Vous avez atteint le montant maxi" si je suis à 0 pour D30-D05
"Vous avez dépassé le montant maxi de xxxx €" si je suis à xxxx € pour D30-D05

J'espère avoir été assez clair, et comme si je ne suis pas doué pour Excel, j'espère que les pros de ce forum pourront me donner un petit coup de main sur mon cas à moi !!!!

Merci d'avance à toutes et tous

 

[Compte Supprimé 979]

Re : Contrôle sur une valeur en dépassement

Salut Niccin,

Tu trouveras ci-joint un exmple de ce que l'on peut faire avec un peu de VBA

Le code se trouve dans la Feuil1

A+

 

[NiCCiN]

Re : Contrôle sur une valeur en dépassement

Alors la, rien à redire : c'est parfait !!!
Un grand grand merci pour cet exemple BrunoM45, c'est exactement ce que je recherchais.

Cordialement.

 

[NiCCiN]

Re : Contrôle sur une valeur en dépassement

Je vais être chiant mais y aurait-il la possibilité de remonter ce contrôle à chaque fois que l'on ouvre le fichier, comme ça on ne peut pas oublier que le montant maxi est dépassé ?

Allez, dites moi que c'est possible !!!!!

Merci d'avance

 

[Staple1600]

Re : Contrôle sur une valeur en dépassement

Bonjour

En ajoutant cela (par exemple)

Private Sub Workbook_Open()
Dim MSg As String
MSg = IIf(Sheets("Feuil1").Range("D5") = Sheets("Feuil1").Range("D30"), "Vous avez atteint le montant maxi.", vbNullString)
If Not MSg Like vbNullString Then MsgBox MSg, vbCritical, "ATTENTION"
End Sub

Dans le code de ThisWorkBook

(Pas dans un module standard)

Dans Excel, faire ALT+F11

Aller sur ThisWorkBook


et copier le code ci-dessus.

 

[NiCCiN]

Re : Contrôle sur une valeur en dépassement

Merci pour ce code Staple1600, mais il ne se passe rien au chargement de la page, alors que je suis bien en dépassement ...
J'ai bien renommé ma feuille et mes cellules impactés, mais rien !!!!

 

[JCGL]

Re : Contrôle sur une valeur en dépassement

Bonjour à tous,

Peux-tu essayer avec ce code dans ThisWorkBook

Option Explicit
Private Sub Workbook_Open()
Dim MSg As String
MSg = IIf(Sheets("Feuil1").Range("D30") > Sheets("Feuil1").Range("D5"), "Vous avez atteint le montant maxi.", vbNullString)
If Not MSg Like vbNullString Then MsgBox MSg, vbCritical, "ATTENTION"
End Sub

Presque identique à celui de Staple

A+

 

[NiCCiN]

Re : Contrôle sur une valeur en dépassement

OUIIIIIIIIIIIIIIIIIIIIIIIIIIIII !!!!!!
C'est tout bon ..
Que dire sinon MERCI avec toute ma gratitude pour la solution ici apportée.

Bien cordialement à tous.

 

[Staple1600]

Re : Contrôle sur une valeur en dépassement

Bonsoir JCGL


J'avais testé en ayant faisant en sorte que D5=D30 dans la feuille

Merci pour le >

 

[JCGL]

Re : Contrôle sur une valeur en dépassement

Re,

Travail d'équipe mon cher Staple...

C'est comme ça que l'on avance : "La Force dans l'Union..." à ce propos Devenez Supporter XLD (arf j'ai réussi à le placer)

Au plaisir de te "corriger" encore longtemps ici où ailleurs