Private Sub CmdValideRA_Click()
'On teste la saisie du nom ...
If TextBoxRA.Text = "" Then
MsgBox "Vous devez entrer un nom."
TextBoxRA.SetFocus
Exit Sub
End If
'On appel de la fauille RA
With Worksheets("RA")
derligne = Sheets("RA").[A65000].End(xlUp).Row + 1
Feuil4.Cells(derligne, 1) = TextBoxRA.Value
End With
'Mise à jour de ta ListBoxRA
With Feuil4
derligne = Sheets("RA").[A65000].End(xlUp).Row
tableau = Range("RA!A1:A" & derligne)
ListBoxRA.List = tableau
End With
'Ajout de la nouvelle valeur du RA
Formulaire.ComboRA.AddItem TextBoxRA.Value
TextBoxRA = ""
Application.ScreenUpdating = True
Formulaire.Repaint
Application.ScreenUpdating = False
End Sub