Inserer les données d'un formulaire de saisie a la dernière ligne non vide

[bibbip35]

Bonjour à tous

Je viens vers vous car je rencontre 1 problème qd j'insere les données issu d'un formulaire de saisie VBA
Ca s'insere toujours a la première ligne alors que je voudrais inserer a la dernière ligne non vide d'un tableau
Voici le code qui me pose problème

Dim Ctrl As Control
Dim L As Integer
L = Sheets("Config. ligne").Range("a65536").End(xlUp).Row + 1
Dim ColonneModif As Byte
With Sheets("Config. ligne")
For Each Ctrl In FORM_AJOUTER.Controls
If Ctrl.Tag <> "" Then
ColonneModif = Split(Ctrl.Tag, " ")(0)
Unité = Split(Ctrl.Tag, " ")(1)
If Unité = "Cstr" Then
.Cells(1, ColonneModif) = CStr(Ctrl)
ElseIf Unité = "Cdbl" Then
If IsNumeric(Ctrl) Then
.Cells(1, ColonneModif) = CDbl(Ctrl)
Else
MsgBox "Valeur non numérique " & Ctrl.Name
End If
ElseIf Unité = "Date" Then
If IsNumeric(Ctrl) Then
.Cells(1, ColonneModif) = CDate(Ctrl)
Else
MsgBox Ctrl.Name & " n'est pas une date"
End If
End If
End If
Next
End With

Avez vous une idée?

Merci d'avance

Bibbip35

 

[bibbip35]

Re : Inserer les données d'un formulaire de saisie a la dernière ligne non vide

1 GRAND MERCI A TOUS ( Staple1600 / Jean-Marcel / Geli )

Ca fonctionne parfaitement!!!!

Merci Jean-Marcel pour le code ( Il faut rendre a Cesar...)

C'est a été vraiment très sympa de votre part de prendre autant de temps pour mon pb

A+