[VBA] : Contrôle de la présence d'une valeur dans une textbox

Private Sub CommandButton1_Click()
  Dim Cont As Control
  'Boucle sur UF
  For Each Cont In Me.Controls
    'Test si Objet TextBox et vide
    If TypeOf Cont Is MSForms.TextBox And Cont.Object.Value = "" Then
      MsgBox "Attention! Manque Info" & Cont.Name
    End If
  Next Cont
End Sub

For i = 1 To n
        Set Obj = Me.Controls.Add("forms.Textbox.1")    'Créé n textbox
            With Obj
         .Left = 90                 'Position des textbox à partir du bord gauche de l'userform
          .Top = 25 * i + 10          'Espacement entre chaque textbox
          .Width = 100                'Longueur de la textbox
          .Height = 18               'Hauteur de la textbox
         '.BackColor = &HC0FFFF      'Couleur du fond
          .BorderStyle = 0            'Style de bordure (0 ou 1)
          .FontName = "calibri"       'Police de l'écriture
          .FontBold = False           'Ecriture en gras
          .FontSize = 10              'Taille de la police
          .Enabled = True             'Possibilité d'écrire dans la case
            End With
Next i

Dim Bouton As MSForms.CommandButton             'Ajout d'un bouton valider
Dim Cl As ClasBT

Set Collect = New Collection
Set CollectBT = New Collection

            Set Bouton = Me.Controls.Add("Forms.CommandButton.1", "Bt1", True)
            CollectBT.Add Bouton, "1"           'Ajouter à la collection d'objet
            Set Cl = New ClasBT                 'Ajouter à la collection de classe
            Set Cl.GroupBoutons = Bouton
            Collect.Add Cl

Public Sub ControlClick(nom As String, num As Long)     'Controle du bouton valider

Dim Ctrl As Control
Dim CtrlName As String
Dim CtrlIndex As Integer
Dim ctrlText As String

   For Each Ctrl In Me.Controls
          CtrlName = Ctrl.Name
          If InStr(CtrlName, "TextBox") = 1 Then
                'recuperation du numero du Textbox
              CtrlIndex = Val(Mid(CtrlName, 8))
               'MsgBox CtrlIndex
              Worksheets("trimestre 1").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text           'Positionnement des textbox dans une feuille (cells(ligne,colonne))
              Worksheets("trimestre 2").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text           'Positionnement des textbox dans une feuille (cells(ligne,colonne))
              Worksheets("trimestre 3").Cells(CtrlIndex + 9, 1).Value = Ctrl.Text           'Positionnement des textbox dans une feuille (cells(ligne,colonne))
         Else
        
         End If
  Next
         
      For i = 1 To n
    If Worksheets("trimestre 1").Cells(i + 9, 1).Value = "" Then       'Controle des valeurs rentrées dans les textbox
     
    Reponse = MsgBox("Merci de compléter chaque case." & Chr(10) & Chr(10) & "Pour complèter votre liste cliquez sur OK." & Chr(10) & "Pour revenir a la page d'accueil cliquez sur Annuler.", vbExclamation + vbOKCancel, "Erreur")
        If Reponse = vbCancel Then   'Si on clique sur Cancel
            Unload UserForm1
            demarrage.Show
         Else
        
        End If
    
    End If
    Next i
 

Option Explicit

Public WithEvents GroupBoutons As MSForms.CommandButton

Private Sub GroupBoutons_Click()       
    
    Call UserForm1.ControlClick(GroupBoutons.Caption, GroupBoutons.Tag)
   
End Sub