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.

Trier et Ranger des données

Discussion dans 'Forum Excel' démarrée par Valoche54000, 9 Août 2018.

  1. Valoche54000

    Valoche54000 XLDnaute Nouveau

    Inscrit depuis le :
    7 Août 2018
    Messages :
    23
    "J'aime" reçus :
    0
    Bonjour la communauté,

    Dans la poursuite de mon projet, j'ai une nouvelle fois besoin de vos lumières, car j'ai bien fouiller le forum.

    Dans le fichier téléchargé, il y a 2 onglets.

    Le premier '' ACAjaccio '' contient des matches aller/retour colonnes A B et C, obtenu après divers manip.

    Le second le résultat que je devrais obtenir.

    Je n'ai pas réussi à exploiter rechercheh ou V.

    Donc je me suis dis que vous serez d'une grande aide là-dessus.

    Merci d'avance
     
  2. Chargement...

    Discussions similaires - Trier Ranger données Forum Date
    Excel : trier ranger des données des des colonnes/lignes Forum Excel 9 Novembre 2014
    Ranger / trier spécifiquement des données sur excel (VBA) Forum Excel 9 Mai 2012
    Trier et ranger des données grace à des couleures Forum Excel 15 Décembre 2009
    trier une colonne et ranger dans un autre fichier Forum Excel 9 Juin 2010
    Ranger, trier et mettre dans l'ordre Forum Excel 26 Avril 2010

  3. djidji59430

    djidji59430 XLDnaute Accro

    Inscrit depuis le :
    3 Février 2014
    Messages :
    1306
    "J'aime" reçus :
    105
    Sexe :
    Masculin
    Habite à:
    Fort-Mardyck
    Utilise:
    Excel 2016 (PC)
    Oui ? Où ?

    Crdlmt
     
  4. Valoche54000

    Valoche54000 XLDnaute Nouveau

    Inscrit depuis le :
    7 Août 2018
    Messages :
    23
    "J'aime" reçus :
    0
    désolé djidji59430

    Voilà ci-joint.
     

    Pièces jointes:

  5. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24769
    "J'aime" reçus :
    1972
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Bonjour Valoche54000, djidji54000, [Edit] pardon djidji59430,

    Si vous voulez récupérer les couleurs (appliquées par MFC) des formules ne suffisent pas.

    Il faut faire des copier-coller, et bien sûr en VBA.

    Sur un autre fil je vous ai montré comment faire.

    A+
     
    Dernière édition: 10 Août 2018 à 19:10
  6. djidji59430

    djidji59430 XLDnaute Accro

    Inscrit depuis le :
    3 Février 2014
    Messages :
    1306
    "J'aime" reçus :
    105
    Sexe :
    Masculin
    Habite à:
    Fort-Mardyck
    Utilise:
    Excel 2016 (PC)
    et que veux tu exactement ?
    les resultats en face des matches ? (un copier/coler avec liaison suffit)
    Le tableau complet, avec les couleur sans savoir pourquoi ? En VBA, donc sans moi ...

    Crdlmt
    ps bonjour a vous deux
    on s'est croisé.
    JOB, j'habite dans le Nord, pas dans la Meurthe et Moselle (quoique j'ai mon service militaire a la musique du 26ème RI, qui était un des régiments de Nancy, si ça compte ....)
     
  7. Valoche54000

    Valoche54000 XLDnaute Nouveau

    Inscrit depuis le :
    7 Août 2018
    Messages :
    23
    "J'aime" reçus :
    0
    Bonjour Job75,

    effectivement tu a réussi à à réaliser les matches aller/retour sauf que les données ne me sont pas exploitables dans l'état.

    J'ai besoin que la cellule soit bien reconnue '' colorée '' par excel or suite à la MFC il n'y a pas de reconnaissance.
     
  8. Valoche54000

    Valoche54000 XLDnaute Nouveau

    Inscrit depuis le :
    7 Août 2018
    Messages :
    23
    "J'aime" reçus :
    0
    On s'est certainement croisé je suis une St Poloise :) donc je connais ton code postal ainsi que le cheval blanc après la Passerelle :) avec de la chance tu as été à Deconinck !

    Sinon, oui j'ai besoin des couleurs car j'ai préparé la suite de mon projet là dessus.

    Si un pro en VBA pouvait se pencher dessus je serai contente ! car je fais tout à la main elle cela me prend du temps...
     
  9. job75

    job75 XLDnaute Barbatruc

    Inscrit depuis le :
    15 Mai 2008
    Messages :
    24769
    "J'aime" reçus :
    1972
    Sexe :
    Masculin
    Habite à:
    Paris
    Utilise:
    Excel 2013 (PC)
    Re,
    Vous êtes complètement à côté de la plaque :rolleyes:

    Sachez que depuis Excel 2007 il existe la propriété DisplayFormat, testez cette macro sur une cellule avec MFC :
    Code (Text):
    Sub Test()
    MsgBox ActiveCell.DisplayFormat.Interior.ColorIndex
    End Sub
    Donc vous pouvez facilement exploiter ce que je vous ai déjà fourni ici :

    https://www.excel-downloads.com/thr...vec-cellules-colorées.20025869/#post-20196304

    Mais si vous tenez absolument à disposer les résultats sur 2 lignes voyez le fichier joint et cette macro :
    Code (Text):
    Sub AllerRetour()
    'se lance par Ctrl+R
    Dim t, ub&, i&, x$, j&, n%
    Application.ScreenUpdating = False
    Range("J:J", Columns(Columns.Count)).Delete 'RAZ
    With Range("G1", Range("I" & Rows.Count).End(xlUp))
        .Copy .Offset(, 3) 'copier-coller
        .Columns(7) = "=G1&H1" 'colonne M auxiliaire
        .Columns(8) = "=H1&G1" 'colonne N auxiliaire
        t = .Columns(7).Resize(, 2) 'matrice, plus rapide
    End With
    ub = UBound(t)
    For i = 1 To ub - 1
        x = t(i, 1)
        For j = i + 1 To ub
            If t(j, 2) = x Then
                Cells(i, "J").Resize(, 3).Cut Range("O1").Offset(, n) 'couper-coller
                Cells(j, "J").Resize(, 3).Cut Range("O2").Offset(, n) 'couper-coller
                n = n + 3
                Exit For
            End If
    Next j, i
    [J:N].Delete
    Range("J:J", Columns(Columns.Count)).Columns.AutoFit 'ajustement largeur
    Range("J1", Cells(1, Columns.Count)).SpecialCells(xlCellTypeConstants, 1).ColumnWidth = 4
    With ActiveSheet.UsedRange: End With 'actualise la barre de défilement horizontale
    End Sub
    A+
     

    Pièces jointes:

    Valoche54000 aime votre message.
  10. Valoche54000

    Valoche54000 XLDnaute Nouveau

    Inscrit depuis le :
    7 Août 2018
    Messages :
    23
    "J'aime" reçus :
    0
    Bonsoir job75,

    Je ne voulais pas te froisser ;(

    C'est exactement ce que je voulais !
     
    Dernière édition: 10 Août 2018 à 21:39

Partager cette page