XL 2016 Message d'erreur si cellule non rempli

[MissSayra]

Bonjour,

Excusez moi je ne suis pas très douée avec Excel et surtout avec les macro, je suis entrain de créer un formulaire pour m'aider à faire la facturation.
Sauf que trop souvent les collaborateurs oublie de me remplir le montant à facturer.
J'aimerai que à partir du moment ou ils me rentrent une prestation à facturer, ils soient obligé de me rentrer un montant sinon un message d'erreur s'affiche.

En vous remerciant,

 

[job75]

Bonjour MissSayra, bienvenue sur XLD,

Votre fichier ne permet de savoir comment doit s'organiser le projet.

Le but du forum n'est pas de créer un projet mais de résoudre des problèmes ponctuels.

Donc avancez dans votre projet et venez ici quand vous rencontrez un problème.

A+

 

[MissSayra]

Bonjour MissSayra, bienvenue sur XLD,

Votre fichier ne permet de savoir comment doit s'organiser le projet.

Le but du forum n'est pas de créer un projet mais de résoudre des problèmes ponctuels.

Donc avancez dans votre projet et venez ici quand vous rencontrez un problème.

A+

Bonjour Je ne comprends pas votre message le fichier est bien créer, je bloque juste sur comment faire le message d'erreur " montant obligatoire !" si la case montant est vide à partir du moment ou la cellule prestation est rempli, je vous ai mit un exemple.

 

[job75]

Bon si vous n'avez aucune idée sur la méthode à appliquer en voici 2.

1) Par formule avec cette formule matricielle en C2 :

=SIERREUR("Entrez le montant en D"&EQUIV(1;(C6:C10000<>"")*ESTVIDE(D6:D10000);0)+5;"")

2) Par VBA avec cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Range("c6:C" & Rows.Count), UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r
    If r <> "" And Not IsNumeric(CStr(r(1, 2))) Then
        Application.EnableEvents = False 'désactive les évènements
        r(1, 2).Select
        Application.EnableEvents = True 'réactive les évènements
        MsgBox "Entrez le montant en " & ActiveCell.Address(0, 0)
        Exit For
    End If
Next
End Sub

A+

 

[MissSayra]

Bon si vous n'avez aucune idée sur la méthode à appliquer en voici 2.

1) Par formule avec cette formule matricielle en C2 :

=SIERREUR("Entrez le montant en D"&EQUIV(1;(C6:C10000<>"")*ESTVIDE(D6:D10000);0)+5;"")

2) Par VBA avec cette macro dans le code de la 1ère feuille :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim r As Range
Set r = Intersect(Range("c6:C" & Rows.Count), UsedRange)
If r Is Nothing Then Exit Sub
For Each r In r
    If r <> "" And Not IsNumeric(CStr(r(1, 2))) Then
        Application.EnableEvents = False 'désactive les évènements
        r(1, 2).Select
        Application.EnableEvents = True 'réactive les évènements
        MsgBox "Entrez le montant en " & ActiveCell.Address(0, 0)
        Exit For
    End If
Next
End Sub

A+

Je vous remercie !