Somme de valeurs numériques issues d'une saisie grâce à un USF

Option Explicit  'Activation de la déclaration explicite des variables
Dim Ws As Worksheet


'Correspond au programme du bouton QUITTER
Private Sub CommandButton1_Click()
Unload Me
 End Sub



Private Sub CommandButton3_Click() 'LE BOUTON NOUVEAU CONTACT
Dim L As Integer
Dim x As Integer

If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
L = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

'COMBOBOX DATE
Range("A" & L).Value = ComboBox1 

Range("B" & L).Value = TextBox1

Range("C" & L).Value = TextBox2

Range("D" & L).Value = TextBox3

End If


Feuil1.Range("B" & L).Value = CInt(TextBox1)
Feuil1.Range("C" & L).Value = CInt(TextBox2)
Feuil1.Range("D" & L).Value = CInt(TextBox3)

'pour transformer la valeur de la ComboBox en Date
Feuil1.Range("A" & L).Value = CDate(ComboBox1)

' Affiche une boîte de message
MsgBox ("Produit inséré dans fichier sélectionné") 'Vous informant que le présent contact est insérer dans votre tableau Excel.

Unload Me ' Vide et ferme l'Userform ( formulaire)
UserForm1.Show 'Affiche le  formulaire
End Sub

Private Sub CommandButton4_Click() 'Correspond au bouton supprimer
'Supprimer la ligne sélectionnée
Dim L As Long

If Me.ComboBox1.ListIndex = -1 Then Exit Sub
 L = Me.ComboBox1.ListIndex + 2
Ws.Rows(L).Delete
End Sub

Private Sub CommandButton5_Click()
UserForm2.Show
End Sub


'Correspond au programme du FORULAIRE
'Cet évènement est important car il permet de définir les propriétés des objets et les valeurs par défaut des variables, lors du lancement du Userform.
Private Sub UserForm_Initialize() 'à l'initialisation de l'userform
' Déclaration des variables grâce à Dim
'    1° Choisir un nom
'    2° Choisir un TYPE (= définir la nature du contenu)
' --------------------------------------------------------
Dim J As Long 'déclare la variable J
Dim i As Integer






' Affecter une valeur à une variable (= fixer la valeur de la variable)
  Set Ws = Sheets("Feuil1") 'Attention ce nom doit correspondre au nom de votre ONGLET
'On stock le nom de la feuille "Feuil1" dans une variable nommée WS

  With Me.ComboBox1
  'Ici on indique la colonne voulue comme début du tableau, j'ai choisis ici la 1ère colonne soit A comme point de départ de mon tableau
    For J = 2 To Ws.Range("A" & Rows.Count).End(xlUp).Row
      .AddItem Ws.Range("A" & J)
    Next J
  End With

  For i = 1 To 184 'on lance une boucle de valeur mini 1 et maxi 8 c'est à dire qu'il y a 8 colonnes dans mon formulaire
    Me.Controls("TextBox" & i).Visible = True 'affiche les données dans les textbox
Next i




End Sub

'Correspond au programme du bouton MODIFIER
Private Sub CommandButton2_Click()
If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
Dim Ligne As Long
Dim i As Integer


  If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'On sort si pas de sélection
  Ligne = Me.ComboBox1.ListIndex + 2
  For i = 1 To 184 'parcqu'il y a 8 colonnes dans mon formulaire
    If Me.Controls("TextBox" & i).Visible = True Then
      Ws.Cells(Ligne, i + 1) = Me.Controls("TextBox" & i)
    End If
  Next i
    End If 'fin de la condition



End Sub

'Correspond au programme de la LISTE DEROULANTE
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim i As Integer
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub
  Ligne = Me.ComboBox1.ListIndex + 2
  For i = 1 To 184 'parcqu'il y a 8 colonnes dans mon formulaire
    Me.Controls("TextBox" & i) = Ws.Cells(Ligne, i + 1)
  Next i
 End Sub

Range("D" & L).Value = TextBox1

End If

Feuil1.Range("B" & L).Value = CInt(TextBox1)

      '---------------------Controle de saisie non vide Combobox--------------------
        If Me.Controls("Cbx_P" & Idx) = "" Then
            MultiPage1.Pages(Idx - 1).Value = 1
            Me.Controls("Cbx_P" & Idx).SetFocus
            MsgBox "Attention: erreur de saisie ou pas de saisie!"
            Exit Sub
        End If
    Next Idx
    '-----------

 MultiPage1.Pages(Idx - 1).Value = 1

   'POUR AFFICHER UN MSG AVERTISSANT DE L'OUBLI DE LA SAISIE DE LA QUALITE D'UN POSTE
    
    
    ' deux solutions pour gérer un oubli de saisie de la combobox
    ' ajouter un "InputBox" qui permettra de saisir directement la valeur oubliée.
    ' ajouter un "MsgBox" indiquant seulement l'oubli.
    
    'EXEMPLE AVEC INPUTBOX
  If Me.ComboBox00.Value = "" Then
     Me.ComboBox00.Value = InputBox("Indiquer la qualité du poste 1", "OUBLI POSTE 1")
End If
  
    'EXEMPLE AVEC %SGBOX
  ' Si la valeur de la ComboBox est vide alors...
  If Me.ComboBox00.Value = "" Then
  'insérer MsgBox      "TEXTE DU MSGBOX" / TRIANGLE PT EXCLAMATION / "TITRE DU MSGBOX"
  MsgBox "Indiquer la qualité du poste 1", vbExclamation, "OUBLI POSTE 1"
  Exit Sub
  End If