Bonjour le forum,
Je suis nouveau dans le monde du vba et je découvre cet outils très intéressant.
Je travail sur un fichier Excel ou je met des données des fournisseurs et le code me met le mail, le téléphone et le nom et prénom de la personne ( tout est dans le fichier joint).
le problème est que ce code marche pour 20 à 30 ligne mais il beug pour les 400 lignes que j'ai ( les lignes vides dans excel correspondent au cas ou j'ai pas de données sur le fournisseur{pour information}).
'
Option Explicit
Sub Couper()
Dim a(1 To 400, 1 To 4)
Dim Tableau
For Z = 2 To 400
Tableau = Split(Cells(Z, 1), Chr(10))
For i = 0 To UBound(Tableau)
a(Z, 1) = Tableau(0)
a(Z, 2) = Tableau(1)
a(Z, 3) = a(Z, 2) & Chr(10) & Tableau(2)
a(Z, 4) = Tableau(3)
Next i
Next Z
[B1].Resize(UBound(a), 4) = a
End Sub
Pourriez vous m'aidez svp ?
Cordialement