Renvoi de données

[akramenergie]

Bonsoir les amis

J'ai un Textbox ou je saisi des données (PC;télévision;téléphone;four;montre....) séparer avec des ";" et je voudrais savoir comment je peux renvoyer ces données dans des cellule excel à condition que l'un ce met en dessous de l'autre.


PC
télévision
téléphone
four
montre


Merci d'avance pour votre aide

 

[mapomme]

Re : Renvoi de données

Bonsoir akramenergie,

Un essai (fichier sous excel 2010 enregistré en 2003)

Private Sub TextBox1_Change()
Dim Mots
   Mots = Split(TextBox1, ";")
   Range(Range("A1"), Range("A1").End(xlDown)).ClearContents
   If UBound(Mots) >= LBound(Mots) Then Range("A1") _
      .Resize(UBound(Mots) - LBound(Mots) + 1) = _
      Application.WorksheetFunction.Transpose(Mots)
End Sub

 

[akramenergie]

Re : Renvoi de données

Merci mapomme exacte ce que je voulais bonne journée a toi 😉