Remplir un Damier de résultat en utilisant le tabl VBA

Bonjour,

Débutant en vba et en création de formulaires, je viens vers des spécialistes car je rencontre des difficultes pour realiser ce que je désire. A savoir, je souhaite completer un damier fini (10 cellules / 10 cellules) à partir d'une base de donnée requêté de 100 sociétés classées selon leur CA.

Ce damier doit faire apparaitre la 1ere société dans la cellule la plus en haut a gauche et poursuivre l'ordre de gauche à droite sur la meme ligne, puis descendre et ainsi de suite jusqu'à ce que la dernière société apparaisse dans la cellule la plus en bas a droite.(Cf.fichier) faire test avec bouton rafraichir.

Le code avec tabl vba + boucle imbriqué me pose des problèmes. Il manque sans doute une transposition que je ne maitrise pas en vba; je sollicite votre aide ? Merci

cdlt,

Bonjour,

proposition de correction sur base de ce que j'ai compris.

adapte cette partie-ci du code

For i = 1 To 10
    For j = 1 To 10
        Sheets("Tableau_Récapitulatif").Cells(i + 1, j + 2) = Tabl((i - 1) * 10 + j + 1, 4)
    Next j
 Next i

bjr,

Comme d'habitude, c'est juste parfait.

Merci bcp.

Cas clos

Cordialement

Bon WE a vous

Bonjour,

Une possibilité en pièce jointe

A+

Bjr galopin01,

Je viens tout juste de constater ta réponse.

Merci pour ton travail sur mon fichier (Anticipation sur le formulaire)

Tu as eté plus loin que ma simple demande alors encore

merci bcp

Cordialement,

Bonjour,

merci pour le retour.

A+