salut tous le monde forum
j'ai un code vba mais a l’enregistrement les cellules marque nombre stocker en forma texte
voila le code
je souhaite que qq le corrige
et merci d'avance
j'ai un code vba mais a l’enregistrement les cellules marque nombre stocker en forma texte
voila le code
je souhaite que qq le corrige
Code:
Private Sub Bt1_Click()
Dim lig&, i&, num
If C2.ListIndex = -1 Then
If Not Opt1 And Not Opt2 And Not Opt3 And Not Opt4 And Not Opt5 And Not Opt6 Then MsgBox "Vous devez choisir une classe", , "Choisir une Classe SVP": Exit Sub
lig = Sheets(c23.Text).Range("B" & lign).End(xlUp).Row + 1
Else
lig = C2.List(C2.ListIndex, 22)
End If
With Sheets(c23.Text)
For i = 2 To 22
.Cells(lig, i) = Controls("C" & i)
Next i
End With
Unload Me
UserForm18.Show 0
End Sub
et merci d'avance
Dernière édition: