Trier des montants dans deux tableaux différents Code VBA

Question

Bonjour ,

Je suis encore novice en VBA, j'apprends au fur et à mesure des cas et je remercie  ce forum de m'avoir appris plein d'astuces .  j'ai recours une nouvelle fois à votre aide précieuse : 

 J'ai un tableau initial avec 3 colonnes. La 3eme colonne contient les montants .

J'ai essayé de créer un code qui me permet de trier les montants > 0 des montants <0 et les mettre dans deux tableaux différents avec leur libellé et compte .

Je suis coincé dans la première étape, quand je compile mon programme j'ai que des zéro ..
et j'avoue que je sais trop comment faire pour prendre les libellé et compte correspondant .

vous trouverez ci joint ma tentative avec le tableau en question .

	https://www.cjoint.com/?DDjrbCzhECk

Merci d'avance

michel_m · Answer

Bonjour,

Le problème est que il n'y a pas de tableau initial dans la feuille1

donc, cela ne relève plus du VBA mais de la boule de cristal

foo · Answer

Bonjour

modification de ta macro

Sub testB()
Sheets("TEST").Select
   Range("A7:H25").ClearContents
Dernligne = Range("j" & Rows.Count).End(xlUp).Row
A = 7
B = A
C = A
   For i = A To Dernligne
      Select Case Cells(i, 12).Value
         Case Is > 0
            Cells(B, 3).Value = Cells(i, 12)
            Cells(B, 2).Value = Cells(i, 11)
            B = B + 1
         Case Is < 0
            Cells(C, 8).Value = Cells(i, 12)
            Cells(C, 7).Value = Cells(i, 11)
            C = C + 1
      End Select
   Next
End Sub

A+

Maurice

foo · Answer

Re

avec le fichier XLS

http://cjoint.com/?3Dju6Y63Mbx

A+

Maurice

Trier des montants dans deux tableaux différents Code VBA

3 réponses

Newsletters