Copier donnée userform vers tableau Excel

Bonjour,

Mon soucis est le suivant:

J'ai un userform ou dans mon textbox, j'encode un nom.

Avec mon commandbutton, ce nom va dans mon tableau "Donnée" de mon onglet "Donnée"

Pour cela, j'utilise ce code:

insmot = Worksheets("Donnée").Range("A65536").End(xlUp).Row + 1
With Worksheets("Donnée")
If Application.CountIf(.Range("A1:A" & insmot), TextBox1.Value) > 0 Then
MsgBox "Client déjà existant", vbCritical, "ATTENTION !!!"

Else
.Range("A" & insmot) = TextBox1.Value
End If
End With

Ce code marche super bien, sauf que quand mon tableau n'a encore pas de donnée, ma prière donnée envoyé à mon tableau, au lieu de s'afficher en A2, s'affiche en A3

Merci de votre aide

Bonjour,

Ci-dessous un début de proposition :

Sheets("Donnée").Activate '''''''''Va chercher la sheet désirée
    Range("A2").Select
    Selection.End(xlDown).Select '''''''''''Va sur la derniere ligne remplie
    Selection.Offset(1, 0).Select '''''''''''''Se décale d'une ligne par rapport à la derniere, et reste sur la meme colone

Bonjour à tous,

Étant donné que tu utilises un tableau structuré ...

Supposons que l'entête de la colonne A est : "Clients" ...

Une suggestion ...

Private Sub CommandButton1_Click()

        If Application.CountIf(Range("Donnée[Clients]"), TextBox1.Value) > 0 Then
            MsgBox "Client déjà existant", vbCritical, "ATTENTION !!!"
        Else
            Range("Donnée").ListObject.ListRows.Add AlwaysInsert:=True    ' insérer une ligne
            Range("Donnée[Clients]")(Range("Donnée[Clients]").Count) = Me.TextBox1.Value    ' écrire en colonne A (Clients) sur la dernière ligne qui vient d'être ajoutée
        End If
End Sub

ric

Bonjour,

A tester :

Sub test()
    insmot = Worksheets("Donnée").Range("A" & Rows.Count).End(xlUp).Row
    With Worksheets("Donnée")
        If Application.CountIf(.Range("A1:A" & insmot), TextBox1) > 0 Then
            MsgBox "Client déjà existant", vbCritical, "ATTENTION !!!"
        Else
            .Range("A" & insmot + 1) = TextBox1
        End If
    End With
End Sub

Bonsoir Ric et Raja,

Je vous remercie tous les deux de votre aide

Ric comme d'habitude c'est parfait

Encore merci