Probleme ajout dans liste box

Bonjour

afin de simplifier le problème, j'ai refais très simplement le tableau que j'utilise.

mon problème est que si je veux ajouter une ligne dans l'une des listebox j'ai un plantage.

je veux ajouter une personne avec 2 notes (1,2,3,4, au pif)

j'utilise ce genre d'insertion à quelque chose près dans un autre user et je n'ai pas d'erreur donc là je ne comprend pas.

merci d'avance pour pour votre aide.

Bonjour,

Est ce que ta feuille se nomme "alpha" ou Alpha" ce n'est pas pareil

oh punaise, maudite majuscule (apparemment)

merci (<- honteux)

Alors après avoir corriger cette erreur car j'avais mis des majuscules sur le nom des feuilles.

j'ai toujours une erreur mais sur mon fichier réel, le fichier test marche pourtant, lui.

donc je me permets de mettre le vrai fichier qui n'a rien de sorcier mais j'ai toujours cette erreur de range quand je veux ajouter.

malgré que les valeurs dans les variables sont les bonnes.

pour tester j'ai restreins l'ajout à seulement la marque.

mon code de ajout :

Private Sub boutton_ajout_Click()

Dim feuille As Worksheet

If combo_ajout.Value = "voiture" Then
Set feuille = ThisWorkbook.Worksheets("voiture")

 With feuille
    ligne_insertion = Sheets("voiture").Range("A456541").End(xlUp).Row + 1
'        .Cells(ligne_insertion, 0) = txt_immat_nv.Value
'        .Cells(ligne_insertion, 1) = txt_type_nv.Value
        .Cells(ligne_insertion, 2) = txt_marque_nv.Value
'        .Cells(ligne_insertion, 3) = txt_de_nv.Value
'        .Cells(ligne_insertion, 4) = txt_ds_nv.Value
'        .Cells(ligne_insertion, 7) = txt_duree_mois_nv.Value
'        .Cells(ligne_insertion, 8) = txt_km_contrat_nv.Value
'        .Cells(ligne_insertion, 8) = combo_loueur.Value

End With

ElseIf combo_ajout.Value = "camion" Then
Set feuille = ThisWorkbook.Worksheets("camion")

 With feuille
    ligne_insertion = Sheets("camion").Range("A456541").End(xlUp).Row + 1
'        .Cells(ligne_insertion, 0) = tx_immat_nv.Value
'        .Cells(ligne_insertion, 1) = txt_type_nv.Value
        .Cells(ligne_insertion, 2) = txt_marque_nv.Value
'        .Cells(ligne_insertion, 3) = txt_de_nv.Value
'        .Cells(ligne_insertion, 4) = txt_ds_nv.Value
'        .Cells(ligne_insertion, 7) = txt_duree_mois_nv.Value
'        .Cells(ligne_insertion, 8) = txt_km_contrat_nv.Value
'        .Cells(ligne_insertion, 8) = combo_loueur.Value

End With

End If
End Sub

si quelqu'un voit la raison de ce problème et si c'est encore une question de majuscule ou erreur de frappe je vais devenir fou...

merci d'avance

Bonjour,

Ton Userform modifié :

Option Explicit
Private Sub boutton_ajout_Click()
Dim feuille As Worksheet, sNom$, iLR&
sNom = combo_ajout.Text
Set feuille = ThisWorkbook.Worksheets(sNom)
With feuille
    iLR = .Range("A" & .Rows.Count).End(xlUp).Row + 1
        .Cells(iLR, 3) = txt_marque_nv
End With
End Sub

A+

ah ouais ça simplifie le code, merci, on apprend toujours avec vous.

mais j'ai toujours le même plantage donc ça viens d'autre part.

je vais reprendre depuis le début pour trouver.

vu que cela marche dans le petit fichier test, y'a pas de raison que ça ne marche pas là.

encore merci