Créer une vu de synthèse en VBA

Tony1711 -  
 Tony1711 -
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

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2254 Statut Membre 339
 
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
0
Tony1711
 
Merci beaucoup.

Cordialement
0