XL 2016 Convertir/Résumer une colonne dans une cellule

[Claudy]

Bonjour,
une colonne avec des numéros (de factures) , les numéros sont triés du plus petit au plus grand, mais ne se suivent pas, pas d'incrémentation.Exemple:

Comment retrouver cette liste dans une seule et même cellule résumant la colonne, exemple:

Remarque: le 480 à 482 et 486 à 487.

La colonne d'origine pourrait contenir des dizaines de lignes.

Merci d'avance,
Claudy

 

[Lone-wolf]

Bonjour Claudy

@Claudy

Je ne c'est pas si c'est possible, seuls les experts nous le dirons. Moi pour l'instant j'obtiens ceci

369,465,470,472,474,480 à 481 à 482,486 à 487,497,503,546,550,652,

Voici la macro

Sub test()
Dim fin&, i&, temp

    fin = Cells(Rows.Count, 1).End(xlUp).Row
    Range("c2").ClearContents
    On Error Resume Next
    x = 2
    For i = 2 To fin
        x = x + 1
        If Cells(i, 1) = Cells(x, 1) - 1 Then
            temp = temp & Cells(x - 1, 1) & " à "
        Else
            temp = temp & Cells(i, 1) & ","
        End If
    Next i
    Range("c2") = temp
End Sub

EDIT: Bonjour Robert 😉

 

[Robert]

Bonjour Claudy, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim COL As Integer 'déclare la variable COL (COLonne)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)

Set O = Worksheets("Feuil1") 'définit l'onglet O (à adapter à ton cas)
COL = 1 'définit la colonne COL (à adapter à ton cas)
DL = Cells(Application.Rows.Count, COL).End(xlUp).Row 'défiit la dernière ligne éditiée DL de la colonnne COL de l'onglet O
TV = Application.Transpose(O.Range(O.Cells(1, COL), O.Cells(DL, COL))) 'définit la tableau des valeurs TV (en le transposant)
O.Range("C1").Value = "Numéros : " & Join(TV, ", ") 'renvoi e le résultat danns C1 (à adapter à ton cas) de l'onglet O
End Sub

[Édition]
Bonjour Loup Solitaire, Je navet pas lu tout l'énoncé...

 

[Lone-wolf]

Re

@Robert : il manque le à dans la macro 480 à 482 - 486 à 487. Je ne sais pas comment enlever les numéros qui vont de 1 à 9. Ici le 481 n'est pas inscrit. Admettons que il aie ceci: 480-481-482-483-484-485-486-487-489-490, comment enlever les numéro entre 480 et 490 pour obtenir 480 à 490 ou 482-483-484-485-486 pour obtenir 482 à 486?? 🙄

 

[Claudy]

Ok, merci à vous deux, mais, c'est quand il y a une série incrémentée ( dans mon exemple le 480 à 482 et 486 à 487)
Chez Lone Wolf, j'ai: 480, 481, 482,
et chez Robert, j'ai 480 à 481 à 482
au lieu de 480 à 482

Sachant que je pourrais avoir des séries de 100 numéros incrémentés...

Merci pour votre aide et A+
Claudy

 

[Lone-wolf]

Re Claudy

Chez Lone Wolf, j'ai: 480, 481, 482,
et chez Robert, j'ai 480 à 481 à 482

@Claudy: Chef, tu t'es trompé! C'est le contraire. 😉

 

[Claudy]

Bonsoir....
et en passant par un petit tableau?
Voir classeur
Merci

 

[Jacky67]

Bonsoir à tous

Autre proposition en PJ
Les numéros en A2:An
Résultat en H1 et msgbox

**Sauf erreur, il me semble que la facturation doit se faire par numéro unique avec séquence chronologique et continue.
Excel ne sera plus autorisé en terme de facturation.
https://axonaut.com/blog/2017/06/08/la-facturation-nouvelles-regles-au-1-janvier-2018/

 

[Claudy]

Bonsoir Jacky... et super boulot, ça correspond tout à fait à ce que je voulais.
Je n'oublie pas évidemment Robert et Lone Wolf pour leur contribution, merci aux deux.
Pour la numérotation des factures, évidemment , règle essentielle en comptabilité.
Mais cette suite de numéro, provient d'un logiciel comptable, et dans une colonne, les factures impayées et dans une autre colonne les factures payées, à archiver, d'où mon idée de résumer sur une étiquette de boite d'archives les factures payées.
Bonne soirée à tous,
Claudy

 

[Jacky67]

d'où mon idée de résumer sur une étiquette de boite d'archives les factures payées.
Claudy

Re..
Si c'est pour imprimer une étiquette, la version en Pj est peut-être plus adaptée 🙂

*Pj modifiée

 

[Claudy]

Pas mal...pas mal, en effet....
T'es trop bon Jacky.
Merci et bon Week end