Bonjour Natacha,

Le problème se situe à la ligne « numLigneVide = ActiveSheet.Columns(1).Find(«  »).Row ». Cette ligne permet de renvoyer le numéro de la dernière ligne vide du tableau. Il y a beaucoup de façon de chercher la dernière ligne vide en VBA et celle-ci cause le problème que vous avez soulevé.

Pour le résoudre, supprimez cette ligne et remplacez la par le code suivant :
numLigneVide = ActiveSheet.Cells.Find("*", , , , xlByRows, xlPrevious).Row
numLigneVide = numLigneVide + 1

J’ai testé et la solution fonctionne.

Pour votre prochaine question ou si vous avez un autre problème et/ou des suggestions de tutoriels, veuillez vous inscrire gratuitement en cliquant sur le lien suivant : Inscription à Tutoriel-Video.com. Vous pourrez ainsi me contacter directement par une messagerie instantanée ou poster un message sur notre forum d’entraide.

Merci et bonne journée !

Très bon tutoriel, merci à toi ! Moi qui ne connait rien à ce type de codage, j’ai réuissi ! 🙂

J’ai juste un petit soucis : tout fonctionnait très bien jusqu’à ce que j’ai voulu, au-dessus de la ligne où se trouve le bouton « nouveau contact » insérer encore une autre ligne pour y placer un en-tête sympa. Mais maintenant, lorsque j’ajoute un contact, les données ne se mettent plus automatiquement dans le dernier champ du tableau, elles se mettent dans la ligne 2 (à savoir là où se trouve le bouton « nouveau contact ». Comment cela se fait-il … ?

Merci pour ta réponse !

J’ai copié/collé votre code sur Excel et je n’ai aucune erreur. Vous pouvez essayer de remplacer « ActiveWorkbook.Worksheets(« Carnet »). » par « ActiveWorkbook.ActiveSheet. »

Lorsque vous avez une erreur, veuillez me donner l’intitulé exact de l’erreur et pas votre code complet.

voici comment j ai programme

Private Sub cmdAjouter_Click()
Dim numLigneVide As Integer
‘on active la feuille « Carnet »
Worksheets(« Carnet »).Activate
‘on trouve la derniere ligne vide du tableau et on enregistre le numéro de ligne dans la variable numLigneVide
numLigneVide = ActiveSheet.Columns(2).Find(«  »).Row
‘on verifie que les champs obligatoire sont correctement remplis
If txtNom.Text = «  » Then
MsgBox « Veuillez remplir le nom de votre contact », vbCritical, « Champs manquant »
txtNom.SetFocus
ElseIf txtPrénom.Text = «  » Then
MsgBox « Veuillez remplir le prénom de votre contact », vbCritical, « Champs manquant »
txtPrénom.SetFocus
Else
‘on remplit les données dans notre tableau
ActiveSheet.Cells(numLigneVide, 1) = Civilite.Text
ActiveSheet.Cells(numLigneVide, 2) = UCase(txtNom.Text)
ActiveSheet.Cells(numLigneVide, 3) = Application.Proper(txtPrénom.Text)
ActiveSheet.Cells(numLigneVide, 4) = txtSurnom.Text
ActiveSheet.Cells(numLigneVide, 5) = txtPortable.Text
ActiveSheet.Cells(numLigneVide, 6) = txtFixe.Text
ActiveSheet.Cells(numLigneVide, 7) = txtBoulot.Text
ActiveSheet.Cells(numLigneVide, 8) = txtEmail1.Text
ActiveSheet.Cells(numLigneVide, 9) = txtEmail2.Text
ActiveSheet.Cells(numLigneVide, 10) = txtAdresse.Text
ActiveSheet.Cells(numLigneVide, 11) = txtCp.Text
ActiveSheet.Cells(numLigneVide, 12) = txtVille.Text
‘on efface le formulaire et on replace le curseur sur le premier champs (Civilite)
Civilite.Text = «  »
txtNom.Text = «  »
txtPrénom.Text = «  »
txtSurnom.Text = «  »
txtPortable.Text = «  »
txtFixe.Text = «  »
txtBoulot.Text = «  »
txtEmail1.Text = «  »
txtEmail2.Text = «  »
txtAdresse.Text = «  »
txtCp.Text = «  »
txtVille.Text = «  »
Civilite.SetFocus
End If
ActiveWorkbook.Worksheets(« Carnet »).AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets(« Carnet »).AutoFilter.Sort.SortFields.Add Key:=Range( _
« B2:B » & numLigneVide), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets(« Carnet »).AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

End Sub

cordialement

CBtypelicence.ListIndex = -1

End Sub
encore merci pour votre aide

Bonjour Michel,

Tout d’abord, l’erreur que vous avez commise se situe au niveau de la récupération des valeurs des combobox. On n’utilise pas la propriété « Text » mais « Value ». Cela donnerait donc cbsexe.value ou cbActif.value et non pas cbsexe.text

Ensuite, vous avez oublié le signe égal sur votre ligne d’effacement de la valeur du numéro de licence. Corrigez cela en tapant txtlicence.text = «  ».

Enfin, les combobox n’ont pas besoin d’être vidés donc vous pouvez supprimer les lignes cbsexe.text = «  », cbtypeLicencie.text = «  » et cbActif.Text. Si toutefois vous souhaitez vider une combobox dans le futur, veuillez utiliser la méthode Clear : cbActif.Clear par exemple.

En espérant avoir résolu votre problème !

J’aimerai approfondir ce tuto, pour mon travail j’aurai besoin ajouté une fonction locked après la saisie de mon formulaire. Tout en concervant mon tri auto croissant de ma colonne A. JE RECHERCHE DESESPEREMENT UNE SOLUTION si vous avez une solution se serait top! dans l’attente de lire vos commentaires merci beaucoup et bonne soirée