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

Hasco

XLDnaute Barbatruc

Repose en paix

• 9 Mai 2019

• #2

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:

VB:

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2019

• #3

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 ?

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Mai 2019

• #4

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é.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2019

• #5

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"

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 9 Mai 2019

• #6

Re @bapt0201

Allez, j'envoie malgré tout:

VB:

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 :

VB:

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é.

 

Dernière édition: 9 Mai 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Mai 2019

• #7

Bonsoir le fil,

nota: ne fonctionne qu'avec un tableau structuré

VB:

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

 

Vote positif 0 Vote négatif

B

bapt0201

XLDnaute Nouveau

• 13 Mai 2019

• #8

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,

 

Pièces jointes

• Test_macro.xlsm

  19.4 KB · Affichages: 38

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 13 Mai 2019

• #9

Bonjour @bapt0201,

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

 

Vote positif 0 Vote négatif

B

bapt0201

XLDnaute Nouveau

• 13 Mai 2019

• #10

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

Bonne journée

 

Vote positif 0 Vote négatif