Rendre obligatoire les cellules à remplir avant envoi du fichier

Bonjour à tous,

Please je suis nouvelle et j'ai besoin d'aide! Je sais que le sujet a été déjà abordé mais je m'y retrouve pas. Je joins à mon mail mon fichier. J'ai besoin svp que le client puisse à tout prix renseigner toutes les cellules portant un * avant d'enregistrer le fichier ou avant de l'envoyer par mail.

Merci de m'aider svp en espérant qu'il y ait quelqu'un.

Joyeux Noël :)

Bonjour,

Une piste : utilise une macro dans Workbook pour tester avant la fermeture du fichier ;

Private Sub Workbook_BeforeClose(Cancel As Boolean)

End Sub

Merci; mais cela ne fonctionne pas :(

Bonjour toutes et tous

j'ai un petit peu avancé votre classeur ci-joint

mais, attention!!! beaucoup de cellules fusionnées 'Excel ne supporte pas et n'aime pas du tout'

à la fermeture du classeur reset du contenu

bouton valider si non rempli message

il reste plus que la partie du bas

ci-joint

crdlt,

André

En modifiant ta macro.

Bonjour à tous,

MERCI MERCI BEAUCOUP!

Aucun regret de m'être inscrite sur le site.

Je regarde vos retours et je vous reviens. Première impression est que la solution y serait trouvée :)

j'aimerais pouvoir le faire moi-même; peut être m'expliquerez vous le cheminement?

Merciiiiii :)

OUISANSDOUTE;

Excucez moi, mais quelle macro avez modifiée? afin que je sache quel fichier prendre finalement :)

Mercii

Bonjour toutes et tous

@NisseNisse

on peut améliorer comme ceci

Sub reset()
' reset

If MsgBox("Etes-vous certain(e) de vouloir supprimer toute la fiche ?", vbYesNo, "Demande de confirmation") = vbYes Then

        MsgBox "Le contenu a été effacé !"

With Worksheets(1)
Range("M11,D16,D18,D20,D24,D26,M16,D31,D35,D39,D41,M31,F45").Value = ""

' les autres champs a effacé
Range("C11,J57,M57,J65").Value = ""
Range("D16:D26,D31:D41,M16:M22,M16,M31:M37,D39,D41,F48:I51,G55:G59,G63:G67,H69:H70,B75:K75").Value = ""

End With
Else
Exit Sub
End If
End Sub

Sub formatage2()
With Worksheets(1)
Range("M11,D16,D18,D20,D24,D26,M16,D31,D35,D39,D41,M31,F45").Value = ""

' les autres champs a effacé
' les autres champs a effacé
Range("C11,J57,M57,J65").Value = ""
Range("D16:D26,D31:D41,M16:M22,M16,M31:M37,D39,D41,F48:I51,G55:G59,G63:G67,H69:H70,B75:K75").Value = ""

End With

End Sub

après celui de Ouisansdoute mieux codés merci ^^

Sub Bouton2_Cliquer()
    Cancel = True

    Obligatoires = Array("M11", "D16", "D18", "D20", "D24", "D26")
    Titres = Array("Date d'enlèvement souhaitée", "Nom du demandeur", "Société", "Adresse 1", "Code postal", "Ville")
        For I = 0 To 5
            If Range(Obligatoires(I)) = "" Then
                Range(Obligatoires(I)).Select
                MsgBox "Vous devez renseigner ce champ", , "Information obligatoire : " & Titres(I)
            End If
        Next
End Sub

MERCIII MERCIII BEAUCOUP :)

c'est TOP