Problème de transfert useform vers excel

Bonjour,

J'ai créé un useform pour faciliter l'entrée des données dans un tableur excel. Seulement cela ne rempli pas la ligne souhaitée. en effet, mon tableur contient 4 lignes d'en-têtes avant les données brutes. et je voudrais que les valeurs entrées dans le formulaire se mettent à la suite des données brutes.

Voici mon codage VBA :
Private Sub UserForm_Click()
End Sub

Private Sub ButFermer_Click()
Unload Me
End Sub

Private Sub ButSaisie_Click()
Dim L As Integer

If IsError(Range("B13").End(xlUp).Row) Then
NLign = 14
Else
NLign = Range("B13").End(xlUp).Row + 1
End If
Range("B" & L) = TextCode_dechet
Range("E" & L) = TextPCI
Range("F" & L) = TextMM
Range("G" & L) = TextMS
Range("H" & L) = TextCl
Range("I" & L) = TextS
Range("J" & L) = TextCd
Range("K" & L) = TextCr
Range("L" & L) = TextHg
Range("M" & L) = TextPb
Range("N" & L) = TextNa
Range("O" & L) = TextCa
Range("P" & L) = TextP
Unload UserForm1
End Sub

Merci d'avance

cdlt,
Alizée

1 réponse

  1. Bonjour,

    Vous cherchez la premiere cellule vide avec NLign

    et

    vous prenez une variable L pour
    Range("B" & L) = TextCode_dechet