Affichage Excel des informations saisie via une textbox

Bonjour à tous,

Je dois réaliser un travail pratique en Finance à l'aide de vba et celui-ci me pose quelques soucis ...

Pouvez-vous m'aider concernant l'écriture d'un code vba me permettant de saisir des informations à travers une textbox de l'userform et que ces éléments s'affichent sur une colonne à partir de la cellule A2 (si j'en saisi 4, la première s'affiche en A2, la seconde en A3 et ainsi de suite).

Par exemple, si j'écris "feuille" dans la textbox1, je retrouverai ce mot à la cellule A2... vous l'aurez compris, si je saisi par la suite "excel", celui-ci figurera à la cellule A3

Il me faudrait également un code (boucle ?) me calculant le nombre de cellules remplies.

Par avance, je vous remercie de votre aide !

Student

Salut le Forum

Tu as mis la ficelle en [Résolu], merci de partager ta solution.

Mytå

Désolé,

Faute de frappe, je découvre ce forum ...

Ma question reste toujours d'actualité !

Salut,

Un début de fichier serait le bienvenu

Tes informations à saisir dans les cellules A2, A3, etc. (ce matin c’était A2, B2, etc. ) sont saisies en une seule fois dans un UserForm avec plusieurs Textbox ou l’une après l’autre au travers du même UserForm avec un seul Textbox ?

A te relire.

Oui, ca a changé: c'est effectivement a2, a3, ...

Pour l'instant j'ai fait ceci:

Private Sub CommandButton_saisir_Click()

'Placement des titres

If Cells(2, 1).Value = "" Then ' si la cellule est vide alors

Cells(2, 1) = TextBox_saisie.Value

Else

Cells(3, 1) = TextBox_saisie.Value

End If

'connaitre le nombre de titres sélectionnés

nbcells = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) - 1

Range("b1").Value = nbcells

Par contre, je n'arrive pas à faire la boucle pour continuer sur la cellule a4 et ainsi de suite...

Yvouille a écrit :

Un début de fichier serait le bienvenu

Un bout de code, c’est bien. Un bout de code dans un fichier, c’est mieux

Et puis merci de répondre à mes questions

Amicalement.

Le voici,

Merci beaucoup

l’une après l’autre au travers du même UserForm avec un seul Textbox

Salut le Forum

Comme ceci

Private Sub CommandButton_saisir_Click()
'Placement de la valeur sur dernière ligne vide
    Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, "A") = TextBox_saisie.Value
'Connaitre le nombre de titres sélectionnés
    Range("B1").Value = Application.WorksheetFunction.CountA(Feuil1.Range("$A:$A")) - 1
End Sub

Mytå

Wahouuu !

Super ton code Mytå, ça marche à merveille !!

Je vous remercie, Mytå et Yvouille, pour votre disponibilité !