Renseigner un tableau grâce à une macro

job75 à dit:

Bonjour KTM,

Il aurait été bien de joindre le fichier avec le formulaire et la macro existante.

En son absence voyez celui-ci et le code de l'UserForm :

Code:

Private Sub CommandButton1_Click()
Dim ncol%, col%, i&, lig&
ncol = 3 'nombre de colonnes à renseigner
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 'si la feuille est filtrée
For col = 1 To ncol
    i = Cells(Rows.Count, col).End(xlUp).Row + 1
    If i > lig Then lig = i
Next
For col = 1 To ncol
    Cells(lig, col) = Me("TextBox" & col)
    Me("TextBox" & col) = ""
Next
End Sub

A+

Cliquez pour agrandir...