XL 2016 Message d'erreur si cellule non rempli

job75 à dit:

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+

Cliquez pour agrandir...

job75 à dit:

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 :

Code:

=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 :

VB:

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+

Cliquez pour agrandir...