Créer une vu de synthèse en VBA

Question

Bonjour, 

Je voudrais a partir d'un tableau de bord sur Excel créer un tableau de synthèse des tâche encore à faire.

Ce tableau de synthèse ne devrait contenir que le contenu des colonnes A-B-C-F-L-M-T pour les lignes qui contiennent la valeurs "EUI" en colonne L.

Le fichier excel servant egalement pour historique je voudrais que ma boucle commence par la fin et qu'elle s'arrete lorsqu'elle rencontre un "OK" en ligne x et colonne T

Quelqu'un pourrait- il me donner des indication pour ma boucle je suis un peu perdu 

Merci d'avance

Cordialement

Configuration: Windows 7 / Internet Explorer 10.0

Frenchie83 · Answer

Bonjour
Une proposition, a adapter en fonction de vos données
Option Compare Text
Sub RecupDonnees()
    Application.ScreenUpdating = False
    Set F1 = Sheets("Synthese")
    Set F2 = Sheets("TableauDeBord")
    Derlig = F2.Cells.Find(what:="*", searchdirection:=xlPrevious).Row
    Lig = 2
    For i = Derlig To 2 Step -1
        If F2.Cells(i, "T") = "OK" Then End
        If F2.Cells(i, "L") = "EUI" Then
            F1.Cells(Lig, 1) = F2.Cells(i, "A")
            F1.Cells(Lig, 2) = F2.Cells(i, "B")
            F1.Cells(Lig, 3) = F2.Cells(i, "C")
            F1.Cells(Lig, 4) = F2.Cells(i, "F")
            F1.Cells(Lig, 5) = F2.Cells(i, "L")
            F1.Cells(Lig, 6) = F2.Cells(i, "M")
            F1.Cells(Lig, 7) = F2.Cells(i, "T")
            Lig = Lig + 1
        End If
    Next i
End Sub
Cdlt

Créer une vu de synthèse en VBA

1 réponse

Discussions similaires

Newsletters