Compiler informations plusieurs onglets si valeur cellule >

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jukerr
Nouveau venu
Nouveau venu
Messages : 6
Inscrit le : 10 novembre 2014
Version d'Excel : 2013

Message par jukerr » 12 novembre 2014, 14:05

Parfait, je te remercie frangy.
Tout fonctionne parfaitement maintenant.
J'ai juste modifié au niveau de la suppression (supprimer la ligne pour ne plus avoir ni valeur ni format i.e. ligne de tableau) et le nombre de lignes copié (j'avais mis dlgi au lieu de dlgR).

Je poste le code final pour information:
Sub extraction()

Dim dlgR As Long, dlgi As Long, Ligne As Long
Dim i As Byte
    Application.Calculation = xlManual
    With Sheets("Extract") 'feuille recapitulative nettoyage
        dlgR = .Range("A" & Rows.Count).End(xlUp).Row
            If dlgR = 1 Then dlgR = 2
        .Range("A2:L" & dlgR).EntireRow.Delete
    End With
    
    Application.ScreenUpdating = False
    For i = 1 To 3 'les 3 premiers onglets seulement pris en compte
        dlgR = Sheets("Extract").Range("A" & Rows.Count).End(xlUp).Row + 1
        
        With Sheets(i) 'copier les donn_es des 3 premiers onglets
            dlgi = .Range("A" & Rows.Count).End(xlUp).Row
                For Ligne = 2 To dlgi
                    If .Range("L" & Ligne).Value > 100 Then
                        .Range("A" & Ligne & ":L" & Ligne).Copy Sheets("Extract").Range("A" & dlgR)
                        dlgR = dlgR + 1
                    End If
                Next Ligne
        End With
    Next i

    MsgBox "You copied " & dlgR - 2 & " lines.", , "Processing complete"
    Application.Calculation = xlAutomatic
End Sub
Encore merci frangy et à bientôt sur le forum.
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message