Problème de transfert useform vers excel

Orikantamila -  
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
Bonjour,

Vous cherchez la premiere cellule vide avec NLign

et

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