Famille de feuilles de calcul Microsoft avec des outils pour l’analyse, le graphique et la communication des données.
Bonjour,
La macro copie la valeur de Combobox4 en colonne C. Ce combobox n'existe pas. Il faut remplacer la macro CommandButton1_Click du userform ajoutpersonnel par celle-ci :
Private Sub CommandButton1_Click()
Dim L As Integer
If MsgBox("Confirmez-vous l’insertion ?", vbYesNo, "Confirmation d’insertion") = vbYes Then
L = Sheets("ANGLAIS").Range("a65536").End(xlUp).Row + 1
Sheets("ANGLAIS").Range("D" & L).Value = ComboBox1
Sheets("ANGLAIS").Range("A" & L).Value = ComboBox3
' Sheets("ANGLAIS").Range("C" & L).Value = ComboBox4
Sheets("ANGLAIS").Range("E" & L).Value = TextBox1
End If
ajoutpersonnel.Hide
End Sub
Voici le classeur modifié :
https://mon-partage.fr/f/8Bo7fliH/
Daniel