1. Ce site utilise des "témoins de connexion" (cookies) conformes aux textes de l'Union Européenne. Continuer à naviguer sur nos pages vaut acceptation de notre règlement en la matière. En savoir plus.

Toutes versions dissocier nombre

Discussion dans 'Forum Excel' démarrée par MASSJIPE, 9 Janvier 2019.

  1. MASSJIPE

    MASSJIPE XLDnaute Impliqué

    Inscrit depuis le :
    15 Février 2008
    Messages :
    514
    "J'aime" reçus :
    1
    Habite à:
    Lambres lez douai
    Utilise:
    Excel 2010 (PC)
    Bonjour à tous
    Voila ma problématique dans une colonne j'ai une série de 4 chiffres par cellule, dans certaine cellule j'ai 4 séries et + de chiffres comment dissocier ces séries dans une autre colonne
    D'avance merci
     

    Pièces jointes:

  2. Chargement...

    Discussions similaires - dissocier nombre Forum Date
    Grouper/Dissocier via Macro selon condition Forum Excel 27 Avril 2018
    Différencier/Dissocier des doublons Excel dans un TCD Forum Excel 10 Février 2017
    XL 2007 formule ou macro pour dissocier 2 listes Forum Excel 11 Décembre 2016
    Protection Excel - Grouper Dissocier Forum Excel 12 Juin 2016
    TCD - dissocier une date : année en colonne et mois en lignes Forum Excel 8 Mai 2016

  3. vgendron

    vgendron XLDnaute Barbatruc

    Inscrit depuis le :
    24 Février 2009
    Messages :
    5051
    "J'aime" reçus :
    515
    Utilise:
    Excel 2007 (PC)
    Hello

    Avec ce code
    Code (Visual Basic):

    Sub test()
    Dim tabIni() As Variant
    Dim tabFin() As Variant
    With ActiveSheet
        .Range("E:E").ClearContents
        fin = .Range("A" & .Rows.Count).End(xlUp).Row
        tabIni = .Range("A1:A" & fin).Value
    End With
    For i = LBound(tabIni, 1) To UBound(tabIni, 1)
        TabTemp = Split(tabIni(i, 1), Chr(10))
        taille = taille + UBound(TabTemp) + 1
    Next i
       ReDim tabFin(1 To taille, 1 To 1)
    k = 1
    For i = LBound(tabIni, 1) To UBound(tabIni, 1)
        TabTemp = Split(tabIni(i, 1), Chr(10))
        For j = LBound(TabTemp) To UBound(TabTemp)
           
             tabFin(k, 1) = TabTemp(j)
             k = k + 1
        Next j
    Next i
    ActiveSheet.Range("E1").Resize(UBound(tabFin, 1), UBound(tabFin, 2)) = tabFin
    End Sub
     
     
  4. MASSJIPE

    MASSJIPE XLDnaute Impliqué

    Inscrit depuis le :
    15 Février 2008
    Messages :
    514
    "J'aime" reçus :
    1
    Habite à:
    Lambres lez douai
    Utilise:
    Excel 2010 (PC)
    Bonjour
    Merci d'avoir résolu mon problème
     

Partager cette page