Bonjour
A partir du fichier exemple ci-joint, je sais mettre les données à traiter en tableau (tablo dans l'exemple)
J'apporte des modifications (bidon dans l'exemple) et j'écris l'ensemble dans un nouveau tableau tb2
A la fin, l'instruction suivante :
Sheets("Feuil2").Range("A1").Resize(UBound(tb2, 2), 1) = Application.Transpose(tb2)
inscrit le résultat en feuille 2 verticalement
Je cherche la solution pour reporter les informations en feuille 2 horizontalement sur la ligne 1
Merci à celles ou ceux qui pourront m'aider
Cordialement
Marc
A partir du fichier exemple ci-joint, je sais mettre les données à traiter en tableau (tablo dans l'exemple)
J'apporte des modifications (bidon dans l'exemple) et j'écris l'ensemble dans un nouveau tableau tb2
A la fin, l'instruction suivante :
Sheets("Feuil2").Range("A1").Resize(UBound(tb2, 2), 1) = Application.Transpose(tb2)
inscrit le résultat en feuille 2 verticalement
Je cherche la solution pour reporter les informations en feuille 2 horizontalement sur la ligne 1
Merci à celles ou ceux qui pourront m'aider
Cordialement
Marc