Copier les premières lignes des données visibles après un filtre

Question

Je suis en train de créer un nouvel affichage pour communiquer les défauts observés lors du contrôle qualité. L'import des données est bon, le format d'affichage a été défini. La seule chose qu'il me manque c'est la copie des données de la base de données vers l'onglet affichage que j'imprime ensuite. Sheets("Interface").Select Nblignes = Range("F2").Value FiltreMachine = "C1:C" & Nblignes FiltreDate = "B1:B" & Nblignes FiltreHeure = "F1:F" & Nblignes Plage = "A1:O" & Nblignes 'Ces variables permettront de trier/filtrer l'ensemble du tableau Sheets("BDD").Select ActiveSheet.Range(Plage).AutoFilter Field:=7, Criteria1:=Array( _ "Comp gazeuse", "DL", "FC", "FD", "FP", "FST", "Prédécoupe", "SL", "SL PLI", "SL SD", "ST", "ST PLI", "ST SD", "ST/SL", "Zip", "Zip SD" _ , "="), Operator:=xlFilterValues ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Clear ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Add Key:=Range(FiltreMachine), _ SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:="F5", _ DataOption:=xlSortNormal ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Add Key:=Range(FiltreDate), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal ActiveWorkbook.Worksheets("BDD").Sort.SortFields.Add Key:=Range(FiltreHeure), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("BDD").Sort .SetRange Range(Plage) .Header = xlYes .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With 'Toujours le même problème : Si la ligne 5 est masquée car défaut non sélectionné, la ligne sera quand même copiée &nbsp;&nbsp;&nbsp;&nbsp;'Je voudrais sélectionner uniquement les 10 premières lignes Range("A1").Select ActiveCell.Offset(10, 0).Activate 'DLig = Cells.SpecialCells(xlCellTypeVisible).Row Nbrow = ActiveCell.Row Je cherche à copier les données des 10 premières lignes, colonne par colonne (l'ordre des colonnes n'est pas le même sur les deux onglets. Onglet source Onglet cible Voici le format. Derrière les carrés, j'ai mi l'image des produits pour identifier s'il y a des zones récurrentes (Supprimées sur cette photo dans un soucis de confidentialité). Les numéros sont affectés dans les carrés via formules et macro. Avez-vous une idée d'une ligne de code permettant de sélectionner uniquement les 10 premières données visibles ? J'ai trouvé des informations avec Array mais je n'arrive pas à l'appliquer. J'essaye de trouver une solution pour récupérer le numéro de ligne de la 10ème ligne visible, sans succès. Merci d'avance pour votre aide :) Quentin...

Arturo83 · Accepted Answer

Essayez ceci, sélectionne les 10 premières lignes filtrées et les recopies dans la feuille "Contrôle d'étanchéïté.

    Set f1 = Sheets("BDD") 'attribution de la variable f1 à la feuille "BDD"
    Set f2 = Sheets("Contrôle étanchéité") 'attribution de la variable f2 à la feuille "Contrôle étanchéité"
    DerLig_f1 = f1.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne de la feuille BDD non filtrée

    Prem_Ligne = 2 'première ligne du tableau, hors ligne des titres

    Cpt = 1 'initialisation d'un compteur de lignes visibles
    For l = 2 To DerLig_f1
        If Rows(l).Height > 0 And Cpt <= 10 Then 'si la ligne est visible et le compteur est égal à 10
            Lig = l 'on récupère le numéro des lignes visibles
            Cpt = Cpt + 1
        End If
    Next l
    Range(f1.Cells(Prem_Ligne, "A"), f1.Cells(Lig, "O")).SpecialCells(xlVisible).Copy
    f2.Range("A55").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Cdlt

Arturo83 · Answer

Avez-vous une idée d'une ligne de code permettant de sélectionner uniquement les 10 premières données visibles ? J'ai trouvé des informations avec Array mais je n'arrive pas à l'appliquer. J'essaye de trouver une solution pour r écupérer le numéro de ligne de la 10ème ligne visible , sans succès. Essayez ceci Set f1 = Sheets("BDD") DerLig_f1 = f1.Range("A" & Rows.Count).End(xlUp).Row 'dernière ligne de la feuille BDD non filtrée Prem_Ligne = 2 'première ligne du tableau, hors ligne des titres 'sélection et copie de la zone filtrée sans les titres Range(f1.Cells(Prem_Ligne, "A"), f1.Cells(DerLig_f1, "O")).SpecialCells(xlVisible).Copy 'indiquez ici la destination Cpt = 1 'initialisation d'un compteur de lignes visibles For l = 2 To DerLig_f1 If Rows(l).Height &gt; 0 And Cpt = 10 Then 'si la ligne est visible et le compteur est égal à 10 Lig = l 'on récupère le numéro de la 10ème ligne visible Exit For ElseIf Rows(l).Height &gt; 0 And Cpt &lt; 10 Then 'sinon, on incrémente le compteur Cpt = Cpt + 1 End If Next l A adapter à vos données Cdlt...

Arturo83 · Answer

Est-ce que je suis obligé de passer par l'étape "copier les données visibles dans un autre onglet" qui créé une étape supplémentaire (il faudra également que je supprime ces données après du coup) ?

Non mais, c'est bien ce que vous vouliez au départ , non?
La seule chose qu'il me manque c'est la copie des données de la base de données vers l'onglet affichage que j'imprime ensuite.

Mettre le nom de la feuille en variable, cela évite de répéter à chaque fois "Sheets("BDD")"
**************************************************************************************************************************************
Cdlt

gmb · Answer

Bonjour à tous Un essai à tester et adapter... Bye ...

Ordonc · Answer

Bonjour … Si vous avez dit Tableau … Pour voir mon beau Tableau , regarder dans le fichier joint ( garanti sans virus qui courent les rues ). Si c'est toi Quentin qui a mis en place le code donné, tu n'auras pas grand mal à analyser ma production...