Ajouter des elements dans plusieurs feuilles a partir d'un userform

Bonjour,

J'au une petite bdd pour la gestion d'un stock des lames.

J'ai 4 modèles de lames M1 M2 M3 M4.

A partir d'un userform "UF_Ajout_Lames_Mx" je veux ajouter une lame controlee avce le bouton suivant:

J'ai rédigé ce code suivant pour ajouter la lame:

Private Sub CommandButton1_Click()
Dim ws As Worksheet
Dim fin_Liste_LamesC As Range
Feuille_Mx = UF_Ajout_Lame_Mx.TextBox1.Value ' Change d'un modele a un autre
Set ws = ActiveWorkbook.Worksheets(Feuille_Mx)
fin_Liste_LamesC = ws.Range("A65530").End(xlUp).Row
ws.Cells(fin_Liste_LamesC + 1, 3) = Me.ComboBox_Nom.Value
Unload Me
End Sub

J'ai une erreur au niveau de

fin_Liste_LamesC = ws.Range("A65530").End(xlUp).Row

il me dit variable objet non défini, j'arrive pas a corriger l'erreur merci pour votre aide.

Bonjour,

Dim fin_Liste_LamesC As Range > tu déclares la variable comme étant une cellule ou une plage de cellules ...

fin_Liste_LamesC = ws.Range("A65530").End(xlUp).Row > ici, dans la variable, tu veux y stocker le numéro de la ligne ...

fin_Liste_LamesC doit être integer (si tu as moins de 32000 lignes de données) ou long (si plus) ...

ric

Merc bcp, maintenant ca fonctionne.