boucles imbriquées

tben08 · 19 Janvier 2016

Bonsoir à tous,

j'en appelle à vos connaissances sur excel car je suis un peu perdu.

J'ai un fichier (ci-joint) avec en titre de colonne des numéros de sociétés, dans la colonne de gauche j'ai des numéros de compte et dans le tableau des valeurs. Je souhaite créer un nouveau tableau sur un nouvel onglet me reprenant le numero de societé, le numéro de compte et la valeur qui va avec et ainsi de suite.

j'ai un tableau avec 1500 lignes, et 80 colonne. ça va me donner un tableau de 150 000 ligne que je pourrais plus facilement retraiter.

dans le fichier joint j'ai laissé le début de ma macro donc n'hésitez pas à me dire si j'ai mal fait.

merci beaucoup pour votre aide.

gosselien · 19 Janvier 2016

Re : boucles imbriquées

Bonjour,

je ne comprends pas le but, mais as-tu essayé un tableau croisé dynamique ?

Cdlt

P.

tben08 · 19 Janvier 2016

Re : boucles imbriquées

Je précise que mes variables sont en dur pour le moment, je changerais après

tben08 · 19 Janvier 2016

Re : boucles imbriquées

gosselien à dit:
Bonjour,

je ne comprends pas le but, mais as-tu essayé un tableau croisé dynamique ?

Cdlt

P.

non je peux pas car le nombre de sociétés peut varier tout comme les numéros de compte

tben08 · 19 Janvier 2016

Re : boucles imbriquées

personne pour m'aider ? :-(

tben08 · 20 Janvier 2016

Re : boucles imbriquées

toujours personne pour m'aider?

Dranreb · 20 Janvier 2016

Re : boucles imbriquées

Re bonjour.
En relisant l'énoncé dans cette discussion je le comprend plutôt comme ça maintenant :

VB:

Sub For_X_to_Next_Colonne()
Dim TE(), LE&, CE&, TS(), LS&, CS&
TE() = Feuil1.[D5:M67].Value
ReDim TS(1 To 150000, 1 To 6)
For CE = 5 To UBound(TE, 2)
   For LE = 3 To UBound(TE, 1) - 1
      If TE(LE, CE) <> 0 Then
         LS = LS + 1
         TS(LS, 1) = TE(1, CE)
         For CS = 2 To 5: TS(LS, CS) = TE(LE, CS - 1): Next CS
         TS(LS, 6) = TE(LE, CE)
         End If: Next LE, CE
Feuil2.Cells.ClearContents
Feuil2.[B2].Resize(LS, 6).Value = TS
End Sub

boucles imbriquées

tben08

XLDnaute Occasionnel

Pièces jointes

gosselien

XLDnaute Barbatruc

tben08

XLDnaute Occasionnel

tben08

XLDnaute Occasionnel

tben08

XLDnaute Occasionnel

tben08

XLDnaute Occasionnel

Dranreb

XLDnaute Barbatruc

Discussions similaires