Problème de transfert useform vers excel

Fermé
Orikantamila - 16 juin 2014 à 13:50
f894009 Messages postés 17234 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 février 2025 - 16 juin 2014 à 15:17
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 17234 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 2 février 2025 1 712
16 juin 2014 à 15:17
Bonjour,

Vous cherchez la premiere cellule vide avec NLign

et

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