Bonjour
Ah cela ne va pas être possible
Les contrôles sont en texte, il ne te reste plus qu'à convertir ce texte en numérique
Ce que je ferai (mais je ne connais pas tout)
Dans la procédure Userform_Initialize
Private Sub UserForm_Initialize()
Dim J As Long
Dim I As Integer
For I = 4 To 34
Me.Controls("TextBox" & I).Tag = "X" ' Repère les TextBox numériques
Next I
For I = 75 To 87
Me.Controls("TextBox" & I).Tag = "X" ' Repère les TextBox numériques
Next I
Set Ws = Sheets("FICHIER DE BASE") 'Attention ce nom doit correspondre au nom de votre ONGLET
Ensuite tes boucles de recopie peuvent ressembler à ça
Private Sub CommandButton2_Click()
Dim Ligne As Long
Dim I As Integer
If MsgBox("Etes-vous certain de vouloir modifier ce produit ?", vbYesNo, "Demande de confirmation") = vbYes Then
If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
For I = 1 To 87
If Me.Controls("TextBox" & I).Visible = True Then
If Me.Controls("TextBox" & I).Tag = "X" Then
Ws.Cells(Ligne, I + 22) = Val(Replace(Me.Controls("TextBox" & I), ",", "."))
Else
Ws.Cells(Ligne, I + 22) = Me.Controls("TextBox" & I)
End If
End If
Next I
End If
End Sub