VBA Fermé

Question

merci de bien m'aider d'obtenir une macro qui fait la séquence, d'autre façon qui fait la comparaison entre deux colonnes(A,B) pour faire trier ce tableau.
exemple:
colonne A:      colonne B:                                                 colonne A:     
230                 16                                                                 231             16
270                  20                                                                231             16
231                  15                 solution souhaitable               231             17
230                  19                                                                230             19
231                   16                                                               230             16
231                   17                                                               270             20

c'est-à dire on classe la valeur la plus répétée ainsi de suit

smitsh · Answer

pardon, voilà l'exemple :
colonne A:  230   270  231  230  231  231
colonne B:     16        20         15         19      16        17  
la solution souhaitable:
colonne A:  231  231  231  230  230  270
colonne B:   16     16    17    19     16    20
c'est-à dire on classe premièrement  la valeur la plus répétée ainsi de suit

skk201 · Answer

Bonjour,

Vous voulez le faire vous-même avec des explication ou vous voulez qu'on le fasse ?

Merci

smitsh · Answer

merci, je peux le comprendre sans explication car je veux juste des guides donc vous pouvez m'aidez comme vous voulez.
merci encore

smitsh · Answer

merci à ceux qui peuvent me guider  de trouver la macro de l'exemple précédent

skk201 · Answer

Juste pour être sur il n'y a aucune liaison entre les données de la colonne A et celles de la colonne B ?

smitsh · Answer

l'exemple comme il est, c'est-à- dire on prends une colonne (A ou B) et on classe premièrement la valeur la plus répétée et l'autre colonne sera changé automatiquement
Merci

skk201 · Answer

Donc :

Colonne A : 1 // 2 // 2 // 3 // 3 // 3
Colonne B : A // B // C // D // E // F

Deviendra :

Colonne A : 3 // 3 // 3 // 2 // 2 // 1
Colonne B : D // E // F // B // C // A 

C'est bien ça ?

smitsh · Answer

oui c bien pour cette exemple mais si on aura :
Colonne A:  1 // 2 // 2 // 3 // 3 // 3
Colonne B: D // E // F // C // B// C
 
 on veut que notre liste deviendra:

Colonne A:   3 // 3 // 3 // 2 // 2 // 1 
Colonne B:  C // C // B // E // F // D
c'est-à-dire on classe  le nombre 3 de la colonne A premièrement automatiquement les lettres répétées liées à 3 seront classées premièrement ainsi de suit.
Merci de me comprendre si non je suis à votre disposition .

skk201 · Answer

Donc la Colonne A et B sont liées ? L'ordre de la colonne A à un impact sur la colonne B car les valeur de la colonne A et B sont liées ?

Est-ce que vous voulez que je vous donne des indices pour faire ce code ou est-ce que vous voulez direct une solution ?

smitsh · Answer

merci bcp pour le suivi.
les colonnes sont liées donc je vous remercier de me donner la macro (solution directe) si j'ai pas compris je vous demande de m'aider autre fois.
Cordialement

skk201 · Answer

Haha le truc c'est que j'ai pas forcéement le temps de écrire tout le code. 

Est-ce que c'est urgent où ça peux attendre un moment ?

smitsh · Answer

Bonjour,
SVP c'set urgent car je suis en stage de fin d'étude en YAZAKI Tanger et j'ai besoin de faire cette application et ne reste que peu de temps
Merci

skk201 · Answer

Excel 2003 // 2007 // 2010 // 2013 ?

smitsh · Answer

Exel 2013
Merci

smitsh · Answer

si non vous pouvez prendre Exel 2010 merci

skk201 · Answer

Oui, ça reste une macro compliquée 

Est-ce que je pourrai avoir un exemple de document dans lesquels cette macro va être appliquée ?

smitsh · Answer

j'ai envoyé le fichier excel et je sais pas est-ce que vous avez le reçu ?

skk201 · Answer

Euh c'est impossible que vous ayez envoyé le fichier excel mais je vous invite à le télécharger sur cjoint.com et me copier le lien

smitsh · Answer

voilà le lien https://www.cjoint.com/?DEwrDneChoh

skk201 · Answer

Les nombres en couleur au fond de la liste n'ont pas d'importance ?

smitsh · Answer

Bonjour,
oui ne sont pas importants mercii

smitsh · Answer

Désolé pour le dérangement et merci par avance de me dire est-ce que vous pouvez le faire

skk201 · Answer

Oui j'ai bientot Fini :)

Mais enfaite ce qui vous interesse c'est la macro ou juste le résultat ?

smitsh · Answer

la macro qui donne le bon résultat car je vais l'utiliser pour d'autre liste :) 
Cordialement

skk201 · Answer

Le problème c'est que c'est une macro difficile à adapter :)

C'est toujours les les colonnes A et B qui sont concernée ?

Combient de valeur au maximum dans la colonnes A tu as ?

smitsh · Answer

tu peux prendre 500 comme valeur maximal
merci

skk201 · Answer

Et donc les colonnes a ordoner sont toujours A et B ?

smitsh · Answer

Oui je vais les faire dans deux colonnes constantes (A et  B)

skk201 · Answer

A la ligne 337 une des valeur de la colonne A = 0 Est-ce normal ?

Je le demande car ça crée une erreur, donc ci c'est normal je fait un manipulation pour éviter l'erreur, si non je laisse comme ça et je change la valeur

Et une dernière question :

Si un nombre X de la colonne A est lié au nombres : 1,2,3 dans la colonnes B

Est- ce que le résultat doit être :

Colonne A : X // X // X
Colonne B : 1 // 2 // 3

ou 

Colonne A : X // X // X
Colonne B : 3 //2 // 1

ou peut importe ?

Colonne A : X // X // X
Colonne B : 2 // 3 // 1

smitsh · Answer

oui c'est normal et pour le dernier question n'est pas important le classement c'est-à-dire soit 1//2//3  soit 3//2//1 soit 2//3//1 
merci

smitsh · Answer

Bonjour skk201
avez vous de nouveau pour la macro ?
Merci

smitsh · Answer

Salut,
avez vous des idées??

eriiic · Answer

Bonjour,

Pourquoi par macro ?
Il suffit d'ajouter une colonne nb en C avec : =NB.SI(A:A;A2)
Puis de trier par nb décroissant puis par CON_A

eric

smitsh · Answer

Bonjour
la société m'obligé de faire une application sous macro
Merci

eriiic · Answer

Bonjour,

Regarde si ça va :
Sub tri()
    Dim derlig As Long
    [C:C].Insert Shift:=xlToRight
    derlig = Cells(Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False
    [C1] = "Nb"
    [C2].Resize(derlig - 1).FormulaLocal = "=NB.SI(A:A;A2)"
    [A:C].Sort Key1:=Range("C2"), Order1:=xlDescending, _
                   Key2:=Range("A2"), Order2:=xlAscending, _
                   Key3:=Range("B2"), Order3:=xlAscending, Header:=xlYes
    [C:C].Delete Shift:=xlToLeft
    [A1].Select
End Sub
https://www.cjoint.com/?DEAnPYksLyL

eric

smitsh · Answer

Bonjour 
attends je vais le tester 
Merci

smitsh · Answer

lors de l'exécution du programme un erreur dans l'instruction suivante                   " [C2].Resize(derlig - 1).FormulaLocal = "=NB.SI(A:A;A2)" est affiché

VBA

37 réponses

Discussions similaires