XL pour MAC Comment répartir 10 nombres en face du nombre correspondant d'une colonne de 50 nombres

G

gluon1976

XLDnaute Nouveau

• 25 Août 2019

• #16

Rebonsoir à tous. Merci encore de votre réactivité et de votre espièglerie! ;0)
A lire vos réponses, je me suis insuffisamment ou mal exprimé (voire les deux). Je ne suis pas au clair avec les macros, mais ce que j'en ai compris concerne toujours le fait de reporter les chiffres triés dans une autre colonne. Or, je voudrais trier directement les chiffres dans la colonne, et plus encore, cela doit se répéter pour des colonnes adjacentes. Un mauvais dessin valant 100 bonnes explications (ou est-ce le contraire?), je vous joins une illustration que j'espère parlante.

 

Vote positif 0 Vote négatif

G

gluon1976

XLDnaute Nouveau

• 25 Août 2019

• #17

Je pense qu'il faut impérativement une macro...

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 25 Août 2019

• #18

Bonjour, gluon1976.
Je pense qu'il faut impérativement un exemple...

 

Vote positif 0 Vote négatif

G

gluon1976

XLDnaute Nouveau

• 25 Août 2019

• #19

Eh bien, j'avais uploadé 2 clichés d'écran qui se sont volatilisés apparemment. Je le mets dans ma réponse directement à nouveau.

 

Pièces jointes

• Résultat escompté.jpg

  97.2 KB · Affichages: 14
• Colonnes non triées.jpg

  89.1 KB · Affichages: 12

Vote positif 0 Vote négatif

G

gluon1976

XLDnaute Nouveau

• 25 Août 2019

• #20

Merci de votre aide, Patrick. D'être aidé j'ai besoin... LoL

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 25 Août 2019

• #21

Re,

Ce que fait la macro de @Robert :
Avant :

Après :

 

Vote positif 0 Vote négatif

G

gluon1976

XLDnaute Nouveau

• 25 Août 2019

• #22

Et ça marche pour incrémenter sur toutes les colonnes suivantes?

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 25 Août 2019

• #23

Re,

gluon1976 à dit:

Et ça marche pour incrémenter sur toutes les colonnes suivantes?

Cliquez pour agrandir...

TB = Range("B1:B10") 'définit le tableau TB
A votre avis ? (mais ce n'était pas dans le cahier des charges de votre premier message)
Il vous faudra boucler sur toutes les colonnes concernées. Mais sans moi : pas à l'aise avec les macros, je préfère m'en passer plutôt que me retrouver le "bec dans l'eau" le jour où "ça plante" et où "y'a person qui répond".

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 25 Août 2019

• #24

Bonjour à tous,

Fonctionnera que tu aies 9, 10 ou 50 nombres, de la colonne 2 à la colonne x
S'arrête à la colonne vide en ligne 1.
Pas de contrôle si nombre >50, ajouter un test si besoin pour éviter le plantage.

VB:

Sub repartir()
    Dim col As Long, lig As Long, tmp1, tmp2(1 To 50, 1 To 1), i As Long
    col = 2
    Do While Cells(1, col) > 0
        tmp1 = Range(Cells(1, col), (Cells(Rows.Count, col).End(xlUp))).Value
        Erase tmp2
        For i = 1 To UBound(tmp1)
            tmp2(tmp1(i, 1), 1) = tmp1(i, 1)
        Next i
        Cells(1, col).Resize(UBound(tmp2)) = tmp2
        col = col + 1
    Loop
End Sub

eric

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 25 Août 2019

• #25

Staple1600 à dit:

"La chenille du chiffre se nourrit sur les violettes."

Cliquez pour agrandir...

Je cherchais une contrepèterie alors que non, c'est bien un joli papillon. Comme quoi...

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 26 Août 2019

• #26

bonsoir
si tes liste de nombres commence bien en ligne 1 et que tu n'a pas de blanc entre 2
normalement ca va jusqu’à la dernière colonne avec un nombre
ca va jusqu'a la dernière ligne avec un nombre de chaque colonnes meme si le nombre de lignes diffère d'une colonne a l'autre

VB:

Sub TEST()
    Dim tabl, tabl2(), i&, c&
    c = 2
    Do While Sheets(1).Cells(1, c) <> ""
         With Sheets(1).Cells(1, c).Resize(Cells(Rows.Count, 1).End(xlUp), 1)
            tabl = .Value
            ReDim tabl2(1 To UBound(tabl), 1 To UBound(tabl, 2))
            i = 1
            Do While tabl(i, 1) <> ""
                tabl2(tabl(i, 1), 1) = tabl(i, 1): i = i + 1
            Loop
            .Value = tabl2
        End With
    c = c + 1
       Loop
End Sub

testé sur 2007

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 26 Août 2019

• #27

Bonjour,

quel est l'apport majeur par rapport à ma proposition ?
eric

 

Vote positif 0 Vote négatif

G

gluon1976

XLDnaute Nouveau

• 26 Août 2019

• #28

Bonjour à tous. Je vais tâcher d'injecter ces macros dans mon fichier. En tout cas, merci vivement!

 

Vote positif 0 Vote négatif