comment inserer le contenu de textbox dans cellule

[jaushua]

bonjour a toutes et tous

voila mon probleme ,je suis tres debutant dans ce domaine .
j'ai creer un userform
dans cette userform j'ai un textbox et un bouton valider
je voudrai qu'a chaque fois que je clique sur "valider" la donnée du textbox va sur la premiere cellule vide de ma colonne A de ma feuille "feuil1"
j'espere que je suis assez claire dans mes propos et qu'une âme charitable pourra m'aider encore merci

 

[Pierrot93]

Re : comment inserer le contenu de textbox dans cellule

Bonjour Jaushua

regarde le code ci dessous :

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End With
End Sub

bonne soirée
@+

 

[jaushua]

Re : comment inserer le contenu de textbox dans cellule

merci cela fonctionne bien

 

[aliabakar]

Re : comment inserer le contenu de textbox dans cellule

Bonjour Jaushua

regarde le code ci dessous :

Private Sub CommandButton1_Click()
With Sheets("Feuil1")
    .Range("A65536").End(xlUp).Offset(1, 0).Value = TextBox1.Value
End With
End Sub

bonne soirée
@+

Bonjour, par contre j'ai un soucis avec ce code, quel sera l'évent du textbox en question : change, afterupdate, ouuuu ????

 

[mapomme]

Bonsoir @aliabakar ,

Vous avez écrit :

et un bouton valider
je voudrai qu'a chaque fois que je clique sur "valider" la donnée du textbox va sur la première cellule vide de ma colonne A de ma feuille "feuil1"

Vous transférez quand vous cliquez sur le bouton "Valider".

Le code est donc à mettre dans la procédure évènementielle : CommandButton1_Click() de votre bouton "Valider" (et pas du textbox).

-> Adapter le nom "CommandButton1" avec le véritable nom de votre contrôle "Valider".

 

[job75]

Bonjour aliabakar, mapomme, le forum,

aliabakar n'est pas jaushua.

Alors placez dans le code de la feuille ou de l'UserForm :

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then Cells(Rows.Count, 1).End(xlUp)(2) = TextBox1.Value: TextBox1 = "" 'touche Entrée
End Sub

S'exécute quand dans la TextBox on appuie sur l'une des 2 touches Entrée.

A+