XL 2019 Affichage message avec données manquantes

[AIXELS]

Bonjour à tous les Amis du Forum. 🙂
J'ai de nouveau besoin de vos compétences.
J'ai une feuille d'envoi de fichiers, avant l'envoi, je m'assure
que 3 cellules (D2, E2, F2) sont bien renseignées.
J'aurais souhaité avoir un message qui affiche la ou les cellules
non renseignées et arrêter la macro d'envoi.
J'ai récupéré un code, mais j'ai message d'erreur de syntaxe.
Merci pour votre aide.

 

[Phil69970]

Bonjour @AIXELS

Je te propose ce fichier

Merci de ton retour

@Phil69970

 

[Phil69970]

Re
@AIXELS

Et une variante

Merci de ton retour

@Phil69970

 

[job75]

Bonjour AIXELS, Phil69970,

La macro affectée au bouton :

Sub Envoi_Fichier()
Dim n As Byte
With Sheets("BASE")
    .Select
    n = 3 - Application.CountA(.[D2:F2])
    If n Then
        MsgBox Trim(IIf(.[D2] = "", "D2 ", "") & IIf(.[E2] = "", "E2 ", "") & IIf(.[F2] = "", "F2", "")) & " non renseignée" & IIf(n > 1, "s !", " !"), 48, "Plage D2:F2"
        Exit Sub
    End If
    'suite du code
End With
End Sub

A+

 

[AIXELS]

Bonjour @Phil69970, @job75
Merci pour vos réponses respectives.
@Phil69970, ta 2ème macro fonctionne bien.
@job75 ta macro fonctionne très bien aussi.
Je voulais te demander à quoi correspond la commande "Trim" ?
Merci pour votre aide.

 

[job75]

Je voulais te demander à quoi correspond la commande "Trim" ?

Cette fonction supprime les espaces situés en début ou fin de chaîne.

 

[AIXELS]

Bonjour @job75 et tous les Amis du Forum. 🙂
Merci pour l'info, bien vu pour les espaces. 👍
Effectivement s'il y'avait des espaces, la cellule ne serait pas vide.
Est-ce dans ce but que tu les supprimes ?

 

[job75]

Effectivement s'il y'avait des espaces, la cellule ne serait pas vide.

C'est l'espace excédentaire à droite du texte renvoyé par la MsgBox qui est supprimé.