Afficher des cellules dans un autre classeur selon les critères demandés

Bonjour,

Je me demande si c'est possible d'afficher les cellules dans un autre classeur avec plusieurs feuilles selon les critères voulus afin de faciliter les échanges / ventes des cartes avec d'autres joueurs.

Pour être plus clair, je vous invite à vous rendre dans la feuille de Magic Origine.

Je voudrais, par exemple dans un nouveau classeur / fichier, afficher les cartes qu'ils me manquent (colonne B et C), c'est à dire où y'a le chiffre 0 dans la colonne D ou le OUI dans la colonne F.

Et juste à coté, afficher les cartes que j'ai en double (colonne H et I).

Pourquoi un autre classeur / fichier ? Tout simplement pour faciliter les recherches avec les autres joueurs.

Dans l'attente de votre réponse,

Cordialement

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

Bonjour,

Merci de ta réponse rapide. Je suis ébahie du résultat ! Comme c'est du macro, je m'y connais très peu.

Ça va sur une autre feuille /fichier comme je le voulais c'est super.

Juste une chose qui ne sera pas pratique, c'est qu'on ne connait pas le nom de feuille (ça correspond à un nom d'une extension) et comme j'en ai plusieurs onglets, est-il possible de tous regrouper dans le même fichier ? (J'appuie une fois extraire et tout se fait d'un coup au lieu de faire 1 par 1 par exemple ?) Si oui, le bouton extraire peut être placé à la page sommaire ?

Cordialement,

comme j'en ai plusieurs onglets, est-il possible de tous regrouper dans le même fichier ?

Désolé mais je ne comprends pas ce que tu veux dire...

Bye !

Si je copie le macro que tu as fait dans chaque onglet, à chaque fois ça va me donner un nouveau fichier.

Sachant que le nombre d'onglet va s’agrandir de fur à mesure.

Je sais pas si avec une formule sur excel sera plus simple que le macro ou pas.

Cordialement,

Bonjour

Nouvelle version.

Bye !

Bonjour !

C'est super, c'est que je voulais

Néanmoins, il me manque la colonne Foil à mettre à coté les doubles avec le style du tableau.

J'ai essayé de comprendre le code mais en vain.

Je te montre le code que j'ai fait, tu me diras où est l'erreur pour que je puisse comprendre un peu le système du macro

    
Option Explicit

Dim w As Workbook, wb As Workbook, f As Worksheet, fN As Worksheet, fb As Worksheet
Dim fv As Worksheet
Dim tablo, tabloR1(), tabloR2()
Dim i&, k1&, k2&

Sub ExtraireTousLesOnglets()

    'Set f = ActiveSheet
    'tablo = Range("B3:I" & Range("B" & Rows.Count).End(xlUp).Row)
    Application.ScreenUpdating = False
    Set w = ActiveWorkbook
    For Each wb In Workbooks
        If wb.Name <> ActiveWorkbook.Name Then
            For Each fb In wb.Worksheets
                If fb.Range("C2") = "Cartes manquantes" Then
                    wb.Close False
                    GoTo suite
                End If
            Next fb
        End If
    Next wb

suite:
    Workbooks.Add
    Set wb = ActiveWorkbook
    'Set fN = ActiveSheet
    For Each f In w.Worksheets
        If f.Name <> "Sommaire" Then
            tablo = f.Range("B3:I" & f.Range("B" & Rows.Count).End(xlUp).Row)
            wb.Sheets.Add before:=wb.Sheets(wb.Worksheets.Count)
            ActiveSheet.Name = f.Name
            Set fN = ActiveSheet

            f.Range("A:C").Copy: fN.Range("A1").PasteSpecial xlPasteFormats
            fN.Range("B2,E2") = "N°"
            fN.Range("C2") = "Cartes manquantes"
            f.Range("A:D").Copy: fN.Range("D1").PasteSpecial xlPasteFormats
            fN.Range("F2") = "Cartes en double"
            fN.Range("G2") = "Doubles"
            fN.Range("H2") = "Foil"

            k1 = 0: k2 = 0
            For i = 1 To UBound(tablo, 1)
                If tablo(i, 3) = 0 Then
                    ReDim Preserve tabloR1(1 To 2, 1 To k1 + 1)
                    tabloR1(1, k1 + 1) = tablo(i, 1)
                    tabloR1(2, k1 + 1) = tablo(i, 2)
                    k1 = k1 + 1
                End If

                 If tablo(i, 7) > 1 Then
                    ReDim Preserve tabloR2(1 To 3, 1 To k2 + 1)
                    tabloR2(1, k2 + 1) = tablo(i, 1)
                    tabloR2(2, k2 + 1) = tablo(i, 2)
                    tabloR2(3, k2 + 1) = tablo(i, 7)
                    k2 = k2 + 1
                End If

            Next i
            On Error Resume Next
            fN.Range("B3").Resize(UBound(tabloR1, 2), 2) = Application.Transpose(tabloR1)
            fN.Range("E3").Resize(UBound(tabloR2, 2), 3) = Application.Transpose(tabloR2)
            Range("A1").Select
        End If
    Next f
    Sheets(1).Activate
    Application.CutCopyMode = False
End Sub

Et si possible, ça serai un plus de mettre le nom de l'onglet juste au dessus du tableau pour mieux se repérer

Et je ne t'embête plus, promis !

Cordialement,

tu me diras où est l'erreur

Changer :

f.Range("A:D").Copy: fN.Range("D1").PasteSpecial xlPasteFormats

par :

f.Range("A:E").Copy: fN.Range("D1").PasteSpecial xlPasteFormats

Nouvelle version.

Bye !

Bonjour,

C'est super ! Mais en revanche pour la colonne foil, y'a rien qui s'affiche (le nombre 1 est considéré comme un doublon).

Tu pourrais me dire que c'est sur quelle partie qu'il faut modifier afin d'obtenir ce résultat ? J'ai envie de comprendre le code mais j'avoue qu'il y a une partie que je ne comprend pas trop ^^

Cordialement,

...pour la colonne foil, y'a rien qui s'affiche...

Ben non !

Pourquoi ? Parce que je ne sais pas ce qu'il faut y mettre...

Bye !

...pour la colonne foil, y'a rien qui s'affiche...

Ben non !

Pourquoi ? Parce que je ne sais pas ce qu'il faut y mettre...

Bye !

Comme pour la colonne cartes en doubles, il s'agit juste d'afficher les cartes en doublons qui sont en foil (cartes brillantes).

Pour t'expliquer, la colonne double correspond aux cartes classiques en double et la colonne Foil correspond aux cartes brillantes en double.

Exemple : Sur l'onglet Magic Origine, il y'a une carte en foil que je propose à l'échange (Carte n°28 et 29, il y a 1 de chaque). Donc, on l'affiche dans cartes en doubles sur la colonne Foil même si le nombre dans la colonne Double est à 0.

Cordialement,

Nouvelle version.

Bye !

Bonjour,

C'est parfait et merci beaucoup de ton aide précieuse !

Cordialement,

Rechercher des sujets similaires à "afficher classeur criteres demandes"