Sujet Précédent Sujet Suivant

Trier des montants dans deux tableaux différents Code VBA

Fermé
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014 - Modifié par Momosenpai le 9/04/2014 à 17:06
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014 - 10 avril 2014 à 09:24
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
A voir également:

3 réponses

Réponse 1 / 3
foo
9 avril 2014 à 17:49
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
1
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014
9 avril 2014 à 18:38
Merci beaucoup :)
0
Réponse 2 / 3
foo
9 avril 2014 à 21:00
Re

avec le fichier XLS

http://cjoint.com/?3Dju6Y63Mbx

A+

Maurice
1
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014
10 avril 2014 à 09:24
Merci beaucoup !
0
Réponse 3 / 3
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 avril 2014 à 16:33
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
0
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014
9 avril 2014 à 16:38
c'est dans la feuille TEST , il n y a rien ?
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 avril 2014 à 16:48
Dans la feuille test j'ai vu 3 tableaux l'un positif l'autre négatif et en déplacant l'écran le tableau l'initial
et tu parles de 2 feuilles (cf ci dessous): pourquoi changer d'avis ?????

ton code 
Sheets("1").Activate
or dans sheets('"1"): il n'y a rien
0
Momosenpai Messages postés 24 Date d'inscription lundi 17 mars 2014 Statut Membre Dernière intervention 24 juillet 2014
9 avril 2014 à 17:08
Je suis désolé j'ai mis un mauvais fichier ( en adaptant le fichier j'ai fait n'importe quoi, je m'excuse )
j'ai réussi à mettre la premiere partie de mon programme mais pas la deuxieme (pour les libellés et compte )
je viens de mettre a jour le lien avec le bon fichier .

Merci d'avance
0
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
9 avril 2014 à 17:16
He bien, pourquoi au départ 2 feuilles, ce qui était logique et pratique pour l'utilisateur et sans problème pour VBA
décidément., déjà trop de temps passé pour rien àttendre

abandon du suivi
0

Discussions similaires

liste de noms par ordre alphabétique
alma -
alma13 -

23 réponses
Code de renvoi d'appel : Ooredo, Mobilis...
midoou07 -
Camille -

13 réponses