XL 2010 remplir un tableau

roro69 · 25 Octobre 2017

Bonjour et merci d’avance pour le temps consacré et l’aide apporté.

Voilà mon problème :

Dans la boucle ci-dessous je récupère des informations que j’exporte dans ma feuille ; ceci ligne par ligne.

Code:

 Dim col As Integer = 2
        Dim ligne As Integer = 3
        For i As Integer = 1 To folds.Length - 1
            If folds(i).a = folds(i - 1).a Then
                col = col + 2
            Else
                col = 2
                ligne += 1
            End If
            worksheet.Cells(ligne, 1) = i
            worksheet.Cells(ligne, col) = folds(i).b
            worksheet.Cells(ligne, col + 1) = folds(i).c
        Next

Le problème que j’ai et que ceci est fort long.

J’aimerais savoir si il est possible de passer par un tableau et le transposer dans la feuille.

Un grand merci pour vos réponses

Yurperqod · 25 Octobre 2017

Bonjour à tous

roro69
"For i As Integer = 1 To folds.Length - 1"
C'est quoi folds?
Un contrôle?

roro69 · 25 Octobre 2017

Bonjours yuperqods
fold est un tableau à une dimension
Merci pour ton interêt

gosselien · 25 Octobre 2017

Bonjour,

et avec un fichier ça ne serait pas plus facile ?

P.

roro69 · 25 Octobre 2017

bonsoir
je ne pense pas qu'un fichier soit utile ; je souhaiterais simplement mettre dans un tableau à deux dimensions les données suivantes

Code:

            worksheet.Cells(ligne, 1) = i
            worksheet.Cells(ligne, col) = folds(i).b
            worksheet.Cells(ligne, col + 1) = folds(i).c

les données en colonnes sont variantes
je connais le nombre de ligne à extraire
en rediimensionnant les colonnes du tableau
Merci pour votre aide

Staple1600 · 25 Octobre 2017

Bonsoir le fil, le forum

@roro69
Tout comme gosselien, je pense qu'un fichier serait utile car je n'ai jamais lu dans du VBA natif, ce genre de code:
For i As Integer = 1 To folds.Length - 1
If folds(i).a = folds(i - 1).a Then
col = col + 2
Else

roro69 · 27 Octobre 2017

Bonjour
voici mon fichier
Merci de votre aide et du temps consacré

Yurperqod · 27 Octobre 2017

Bonjour à tous

roro69
Le code dans ton classeur n'est pas celui que tu as mis dans le premier message.
Tu peux mettre les données en seule fois dans le tableau

VB:

Sub MacroTableau()
Dim montablo
montablo = Range("A1").CurrentRegion.Value
MsgBox montablo(2, 1)
MsgBox montablo(2, 2)
MsgBox montablo(3, 3)
End Sub

roro69 · 27 Octobre 2017

Bonjour yuperqod
Merci pour ta réponse ; pour montablo pas de problème mais ma question porte plus sur cette pArti du code:

VB:

  F4.Cells(ligne, 1) = lignec 'F4 CORRESPOND AU NOM DE FEUILLE
            F4.Cells(ligne, col) = montablo(i, 2)
            F4.Cells(ligne, col + 1) = montablo(i, 3)

Serait -t'il possible de passer par un autre tableau au lieu d'écrire cellule par cellule car dans le classeur ci joint la réalisation est rapide ; mais dans le classeur réel ou beaucoup plus de ligne le temps de réalisations est un peu long.

Merci pour votre aide et le temps consacré.

mapomme · 27 Octobre 2017

Bonjour roro69, à tous,

Je ne suis pas certain du tout d'avoir bien compris la demande.
Un essai avec l'aide d'un Dictionary.

mapomme · 27 Octobre 2017

Re,

Le même fichier V1 avec le code un peu commenté

roro69 · 27 Octobre 2017

Bonjour MaPomme :
Eh bien merci beaucoup pour ce code très bien commenté qui me satisfait.
Merci pour l'aide

XL 2010 remplir un tableau

roro69

XLDnaute Impliqué

Yurperqod

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

gosselien

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Staple1600

XLDnaute Barbatruc

roro69

XLDnaute Impliqué

Pièces jointes

Yurperqod

XLDnaute Occasionnel

roro69

XLDnaute Impliqué

mapomme

XLDnaute Barbatruc

Pièces jointes

mapomme

XLDnaute Barbatruc

Pièces jointes

roro69

XLDnaute Impliqué

Discussions similaires