Vérifier si des champs sont vides

Bonjour le Forum,

je crée un bon de commande avec Excel et je veux m'assurer que l'utilisateur a bien rempli tous les champs. Les instructions ci-dessous fonctionnent , mais je trouve la répétition très lourde. Y a-t-il moyen de faire plus élégant?

    If Len(Range("PrésentéPar").Value) = 0 Then
        ChampVide = 1
        Range("PrésentéPar").Interior.Color = 13421823
    End If

    If Len(Range("NomPrestataire").Value) = 0 Then
        ChampVide = 1
        Range("NomPrestataire").Interior.Color = 13421823
    End If

    If Len(Range("OffreNo").Value) = 0 Then
        ChampVide = 1
        Range("OffreNo").Interior.Color = 13421823
    End If

Merci par avance de vos suggestions éclairées.

François

Bonjour,

Un exemple dans le fichier joint.

Cdlt.

Propre et efficace, merci Jean-Eric. Il y a un champ numérique "MontantCommande" que j'ai omis de mentionner et qui n'est pas pris en compte par ta macro. Oserais-je te demander ce coup de main supplémentaire?

merci.

Re,

j'ai ajouté MontantCommande dans le fichier !?

Cdlt.

En fait, le champ n'est pas vide. Il contient une formule que j'écrase dans certains cas, et du coup IsEmpty n'est pas validé. Je vais m'en sortir avec un test supplémentaire.

Merci encore