Problème de transfert useform vers excel
Orikantamila
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Problème de transfert useform vers excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Fiche de pointage excel - Télécharger - Tableur