XL 2013 RESOLU Récupérer les données sur une feuille de calcul à l'identique de la fenêtre d'exécution

dss à dit:

Bonjour,

J'ai une chaine que je souhaite scinder en plusieurs lignes. Le résultat est correct dans la fenêtre d'exécution mais je ne parviens pas à inscrire l'ensemble des lignes sur une feuille de calcul : seule la dernière ligne apparaît.

Je vous joins le fichier avec le code.

Merci de votre aide

Cordialement

Cliquez pour agrandir...

mapomme à dit:

Bonjour dss, jacky67 😉,

ou bien avec la macro :

VB:

Sub Extract_Mots()
Dim tableau
   Application.ScreenUpdating = False
   tableau = Split(Sheets("Feuil1").Range("A1"), "@")
   With Sheets("Feuil2").Range("A1").Resize(UBound(tableau) + 1)
      .EntireColumn.Clear
      .NumberFormat = "@"
      .Value = Application.Transpose(tableau)
   End With
End Sub

Cliquez pour agrandir...