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

Claudy · 23 Août 2018

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 · 23 Août 2018

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

VB:

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 · 23 Août 2018

Bonjour Claudy, bonjour le forum,

Essaie comme ça :

VB:

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 · 23 Août 2018

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 · 23 Août 2018

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 · 23 Août 2018

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 · 23 Août 2018

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

Jacky67 · 23 Août 2018

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 · 23 Août 2018

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 · 24 Août 2018

Claudy à dit:
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 · 24 Août 2018

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

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

Claudy

XLDnaute Accro

Pièces jointes

Lone-wolf

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Lone-wolf

XLDnaute Barbatruc

Claudy

XLDnaute Accro

Lone-wolf

XLDnaute Barbatruc

Claudy

XLDnaute Accro

Pièces jointes

Jacky67

XLDnaute Barbatruc

Pièces jointes

Claudy

XLDnaute Accro

Jacky67

XLDnaute Barbatruc

Pièces jointes

Claudy

XLDnaute Accro

Discussions similaires