Renvoi de données

akramenergie · 9 Mai 2012

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 · 9 Mai 2012

Re : Renvoi de données

Bonsoir akramenergie,

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

Code:

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 · 10 Mai 2012

Re : Renvoi de données

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

Renvoi de données

akramenergie

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

akramenergie

XLDnaute Occasionnel

Discussions similaires

Renvoi de données

akramenergie

XLDnaute Occasionnel

mapomme

XLDnaute Barbatruc

Pièces jointes

akramenergie

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency