Excel - Formulaire - Champs obligatoire

Bonjour la communauté,

Avec mon équipe nous utilisons un fichier Excel depuis un peu plus d'un an. Globalement je suis content du service qu'il nous rend au quotidien. Néanmoins, je constate que certains de mes collègues ne complètent pas tous les champs dans le formulaire, et à l'heure du bilan je me vois reprendre chaque ligne pour combler les trous.

J’ai cherché sur le net quelques idées pour contrer cette mauvaise pratique.

Actuellement lorsque l'on clique sur "Nouvelle affaire" un formulaire s'ouvre, après avoir complété les champs, on clique sur "Générer l'affaire", Excel crée une nouvelle ligne avec un numéro de dossier unique et crée un dossier dans le serveur. Un message confirme la création de la ligne dans le fichier et du dossier dans le serveur.

Je pars sur l'idée de rendre obligatoire certains champs dans le formulaire. J'ai vu des trucs sympas, mais je n'arrive pas à intégrer les macros dans la macro déjà existante.

Et c’est là que j'ai besoin d'aide. Je souhaiterais intégrer dans ma macro, un contrôle qui oblige l'utilisateur à saisir le ou les champs manquants. Lorsqu'il clique sur "Générer l'affaire" un message lui indiquera quel champ doit être complété et ainsi de suite jusqu'à ce que tous les champs obligatoires soient complétés.

J'ai trouvé sur le net des macros efficaces, mais dès que je l'intègre dans ma macro, j'ai un message d'erreur, que j'essaie de corriger puis un autre message d'erreur débarque.

Je vous partage la macro qui permet de générer l’affaire avec ma tentative (échouée) de contrôle des champs dans le formulaire.

Au plaisir de vous lire.

Private Sub CommandButton_Valider_Click()

Nouvelle_affaire
    
End Sub
Sub Nouvelle_affaire()

'Oter la protection du tableau "Dossiers"
    Sheets("Dossiers").Select
    ActiveSheet.Unprotect Password:="bloop"

Dim I As Long, N As Long
Dim valeurdl As Integer
Dim ws_data As Worksheet
Dim lstrw As Long
Dim nom_prenom As String
Dim chemin_du_dossier As String
Dim chemin_sous_dossier As String

'Loop

'Tester la saisie des champs dans le userform /formulaire
'    If Len(Me.ComboBox_site) = 0 Then
'       lblmessage = "Veuillez sélectionner le site concerné pour la création du dossier"
'        Me.ComboBox_site.SetFocus
'    ElseIf Len(Me.TextBox_Intitule) = 0 Then
'        lblmessage = "Veuillez saisir un titre pour la création du dossier"
'        Me.TextBox_Intitule.SetFocus
'    ElseIf Len(Me.TextBox_DateOuverture) = 0 Then
'        lblmessage = "Veuillez saisir la date d'ouverture du dossier sous le format XX/XX/XXXX"
'        Me.TextBox_DateOuverture.SetFocus
'    ElseIf Len(Me.TextBox_Objectif_Commentaire) = 0 Then
'        lblmessage = "Veuillez saisir la problématique observée et le ou les objectif(s) à atteindre pour clôturer le dossier"
'        Me.TextBox_Objectif_Commentaire.SetFocus
'    ElseIf Len(Me.ComboBox_SuiviPar) = 0 Then
'        lblmessage = "Veuillez sélectionner votre nom dans la liste"
'        Me.ComboBox_SuiviPar.SetFocus
'   ElseIf Len(Me.ComboBox_Importance) = 0 Then
'        lblmessage = "Veuillez sélectionner le niveau d'importance dans la liste"
'        Me.ComboBox_Importance.SetFocus
        
'Else


    N = WorksheetFunction.Max(Range("Tableau1[Numéro d''affaire]"))   'Max des numéros existants
    
    Range("Tableau1").ListObject.ListRows.Add               'Ajout nouvelle ligne
    I = Range("Tableau1").ListObject.ListRows.Count         'Indice nouvelle ligne
    Range("Tableau1[Numéro d''affaire]").Item(I) = N + 1    'Génération nouveau numéro dans nouvelle ligne


        'Intégrer les éléments du formulaire
            Range("a3").Select
            Selection.End(xlDown).Select
            valeurdl = ActiveCell.Row
            valeurdl = valeurdl
            Range("b" & valeurdl).Value = Userform1.ComboBox_site
            Range("C" & valeurdl).Value = Userform1.TextBox_Intitule
            Range("D" & valeurdl).Value = Userform1.TextBox_dossierCMCAS
            Range("E" & valeurdl).Value = Userform1.TextBox_DateOuverture
            Range("h" & valeurdl).Value = Userform1.TextBox_Objectif_Commentaire
            Range("j" & valeurdl).Value = Userform1.ComboBox_SuiviPar
            Range("k" & valeurdl).Value = Userform1.TextBox_Echeance
            Range("l" & valeurdl).Value = Userform1.ComboBox_Importance
        
        'se positionner sur la cellule suivi affaire
            Range("I" & valeurdl).Select
        
        'fermer le formulaire
            Unload Me
            
        'Protéger la feuille
            Sheets("Dossiers").Select
            ActiveSheet.Protect Password:="bloop", DrawingObjects:=True, Contents:=True, Scenarios:=True _
                , AllowFiltering:=True, AllowFormattingCells:=True
            
            'identifier la feuille
        Set ws_data = Worksheets(1)
        
        'dernière ligne du tableau
        lstrw = ws_data.Cells(Rows.Count, 1).End(xlUp).Row
        
        'boucle sur les données
        For I = 3 To lstrw
        
            'Variable pour nommer le dossier
            numero_affaire = Format(Cells(I, 1), "000")
                
            nom_prenom = "LM " & numero_affaire & " NPCP" & " - " & ws_data.Cells(I, 2) & " - " & ws_data.Cells(I, 3)
            
            'identifier le chemin du dossier et ajouter la variable
            chemin_du_dossier = "M:\04_Affaires\" & nom_prenom & "\"
            
            'tester existence
            If Dir(chemin_du_dossier, vbDirectory) <> vbNullString Then
                'dossier existe, ne rien faire
            Else
                'si le dossier n'existe pas, le créer
                MkDir (chemin_du_dossier)
                
                'ajout de sous dossier
                chemin_sous_dossier = chemin_du_dossier & "Mails\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Devis\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Plan de prévention\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Photos_Videos\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Facture pour garantie\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "PV de réception\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Notices\"
                MkDir (chemin_sous_dossier)
                
                chemin_sous_dossier = chemin_du_dossier & "Plan_Schéma\"
                MkDir (chemin_sous_dossier)
                
                'chemin_sous_dossier = chemin_du_dossier & "Formulaire de demande\"
                'MkDir (chemin_sous_dossier)
        
            End If
'    End If
    

Next

'message
MsgBox ("Le dossier a été créé dans le serveur ''M'' ... Youpi !!!")

End Sub