Aide récupérer valeur Textbox dans première cellule vide

[bapt0201]

Bonjour le forum,

J'ai un problème concernant les Textbox de mon UserForm.

J'aimerais récupérer la valeur de la TextBox dans la première cellule vide de mon tableau dans la colonne A mais ma macro prend en compte la dernière cellule de mon tableau, de plus elle rajoute une ligne a chaque fois que je tape une lettre.

je vous remercie d'avance pour vos réponses.

Sub textbox1()

derligne = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("A" & derligne) = textbox1.Value

End Sub

 

[Hasco]

Bonjour,

1- IMPORTANT: Se trouver un tuto sur les contrôles de userForm et leurs évènements.

2 - A tout hasard puisqu'il n'y a pas de classeur joint. Sur perte du focus du textbox:

Private Sub TextBox1_LostFocus()
    Dim derligne As Long
    If Trim(TextBox1.Value) <> "" Then
        derligne = Range("A" & Rows.Count).End(xlUp).Row + 1
        Range("A" & derligne) = TextBox1.Value
    End If
End Sub

Bonne journée

 

[Staple1600]

Bonsoir le fil, bapt021, Roblochon

bapt021
Je suppose quand je lis ceci de plus elle rajoute une ligne a chaque fois que je tape une lettre.
que ton tableau est en fait un tableau structuré (ListObject)
Dans ce cas, c'est normal qu'une ligne s'ajoute automatiquement

Donc du coup, il te faut aussi un tuto sur comment piloter/manipuler les tableaux en VBA. 😉

PS: Dernière question
Le textbox1 est situé sur un Userform où directement sur la feuille ?

 

[mapomme]

Bonsoir @bapt0201, @Roblochon 🙂, @Staple1600 🙂,

C'est le même problème que sur le précédent fil de @bapt0201 -> trouver la première cellule non vide d'un tableau structuré.

 

[Staple1600]

Bonsoir ma pomme😉

Merci d'avoir revêtu ta panoplie de vigie.

Du coup, il faut en plus un tuto sur "Comment ne pas doublonner un fil sur XLD" 😉

 

[mapomme]

Re @bapt0201

Allez, j'envoie malgré tout:

Sub test()
Dim derlig&
  derlig = Cells(Rows.Count, "a").End(xlUp).Row
  derlig = IIf(Cells(derlig, "a") = "", Cells(derlig, "a").End(xlUp).Row + 1, derlig + 1)
  Cells(derlig, "a") = textbox1.Value
End Sub

Préferez :

Sub test()
Dim derlig&
  If Sheets("toto").FilterMode Then Sheets("toto").ShowAllData      'nom de la feuille à adapter
  derlig = Cells(Rows.Count, "a").End(xlUp).Row
  derlig = IIf(Cells(derlig, "a") = "", Cells(derlig, "a").End(xlUp).Row + 1, derlig + 1)
  Cells(derlig, "a") = textbox1.Value
End Sub

nota: fonctionne avec ou sans tableau structuré.

 

[Staple1600]

Bonsoir le fil,

nota: ne fonctionne qu'avec un tableau structuré 😉

Sub Test_ListObj()
ActiveSheet.ListObjects(1).ListRows.Add.Range.Item(1) = Format(InputBox("Date du jour", "Test", Date), "mm/dd/yyyy")
End Sub

NB: On mettra ce qu'on voudra après le signe =
(textbox1 par exemple)
Moi, j'ai eu la flemme de créer un userform, donc j'ai testé avec un InputBox 😉

 

[bapt0201]

Bonjour, merci pour vos réponses 🙂

Je viens de m'apercevoir que j'avais oublié de joindre mon fichier, désolé...

Effectivement, le fil précédent semble similaire mais il portait sur une macro pour étirer la formule à partir de la dernière cellule pleine c'est à dire la cellule que je cherche actuellement à remplir avec le textbox (première cellule vide de ma colonne).

J'ai essayé de l'adapter pour mon textbox mais je reste bloqué sur le même problème, la macro rajoute une ligne ou passe à la ligne suivante à chaque fois que je tape une lettre.

Cordialement,

 

[mapomme]

Bonjour @bapt0201,

Utilisez l'évènement Private Sub CommandButton1_Click() au lieu de Private Sub TextBox1_Change()

 

[bapt0201]

Merci beaucoup, ça marche, je n'y avais pas pensé...

Bonne journée