Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ecriture d'un résultat en ligne

Ecriture d'un résultat en ligne

6 réponses
Avatar
bibi
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew
Avatar
bibi
Merci Michedenis

Je vais tester


"michdenis" a écrit dans le message de
news:
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de
discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors
que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew



Avatar
bibi
Re bonjour
la formule ne fonctionne pas comme je l'entends. Elle renvoie bien résultat
en ligne. Toutefois, elle renvoie le ràsultat du premier indice de l'array ,
mais x fois ! Exemple Lundi, lundi, lundi au lieu de lundi. matin. midi.
soir

Snif

Andrew


"michdenis" a écrit dans le message de
news:
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de
discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors
que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew



Avatar
michdenis
Un petit exemple :
'--------------------------
Sub tets()
Dim MyArr()
MyArr = Array("denis", "Diane", "Lise")
Range("A1").Resize(, UBound(MyArr) + 1) = MyArr
End Sub
'--------------------------

Range("B1").Resize(,UBound(MyArray) + 1) = MyArray


"bibi" a écrit dans le message de groupe de discussion :
4996e5c2$
Re bonjour
la formule ne fonctionne pas comme je l'entends. Elle renvoie bien résultat
en ligne. Toutefois, elle renvoie le ràsultat du premier indice de l'array ,
mais x fois ! Exemple Lundi, lundi, lundi au lieu de lundi. matin. midi.
soir

Snif

Andrew


"michdenis" a écrit dans le message de
news:
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de
discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors
que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew



Avatar
bibi
Re bonjour
la formule donnée ci dessous ne fonctionne pas comme je l'entends. Elle
renvoie bien le résultat
en ligne. Toutefois, elle ne renvoie que le résultat du premier indice de
l'array ,
mais répété x fois !
Exemple
Lundi, lundi, lundi, lundi
au lieu de
lundi, matin, midi, soir

Merci d'avance de votre aide


Andrew


"michdenis" a écrit dans le message de
news:
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de
discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un
tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) =
WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors
que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew






"michdenis" a écrit dans le message de
news:
Range("B1:B" & UBound(MyArray) + 1) = MyArray



"bibi" a écrit dans le message de groupe de
discussion :
4996c494$
bonjour à toutes et à tous

j'ai trouvé une fonction sur internet qui permet de trier dans un tableau
Array des données de type variant ou autre. Cette macro fonctionne
parfaitement et se termine par cette dernière instruction

Range("B1:B" & UBound(MyArray) + 1) = WorksheetFunction.Transpose(MyArray)

et j'obtiens un résultat " Vertical" c'est-à-dire dans une colonne alors
que
j'aimerais résultat s'écrive sur un ligne.

Je ne sais pas comment modifié mon code.

Avec mes remerciements

Andrew



Avatar
michdenis
Si ce qui est proposé ne fonctionne pas, publie ici
ta procédure ... voir un bout de fichier avec la procédure
problématique ! sur Cjoint.Com

As-tu vérifié ce que contenait ton tableau ?

Range("B1").Resize(,UBound(MyArray) + 1) = MyArray
'--------------------------
Sub tets()
Dim MyArr()
MyArr = Array("denis", "Diane", "Lise")
Range("A1").Resize(, UBound(MyArr) + 1) = MyArr
End Sub
'--------------------------