Récupérer des libellés à partir de OK saisis dans un tableau

Bonjour,

J'aimerais vous poser une question qui me permettrai de gagner beaucoup de temps.

Mon objectif est de récupérer un libellé de colonne et des données en lignes à partir de "OK" qui sont saisis dans un tableau :

Plus clairement (voir le tableau ci-joint)

• A partir des "OK SEMaine x" saisis dans le tableau
• Récupérer le libellé de la colonne
• Récupérer des cellules sur la ligne
• pour faire un tableau qui présentera les données que je pourrai intégrer dans MS PROJECT

Pour information,ce tableau est utilisé dans plusieurs onglets. Si, en plus, je pouvais avoir une solution pour tous les onglets ...!

Merci d'avance

Bonsoir à tous,

Il est préférable de laisser vide le dessous du 1er tableau

à tester sur un vrai fichier !

Sub Tableau()
'Macro par Claude Dubois pour "PECHEURD'ISLANDE" E-P le 26/03/11
Dim Lg1%, Lg%, Lig%, cL%
Dim Cel As Range
    Application.ScreenUpdating = False
    Range("k3:n" & [k65000].End(xlUp).Row).ClearContents
    Lg1 = Range("c65536").End(xlUp).Row
    For Each Cel In Range("g3:i" & Lg1)
        If UCase(Left(Cel, 2)) = "OK" Then
            Lg = Range("m65536").End(xlUp).Row + 1
            cL = Cel.Column
            Lig = Cel.Row
            Cells(Lg, "m") = Cells(Lig, cL)
            Cells(Lg, "k") = Cells(Lig, "c")
            Cells(Lg, "L") = Cells(Lig, "d")
            Cells(Lg, "n") = Cells(2, cL)
        End If
    Next Cel
End Sub

Amicalement

Claude

Je te remercie chaleureusement Claude pour ta réponse, car çà va me faire gagner beaucoup de temps.

Cependant, j'ai un petit souci car quand je lance la macro, je ne sais pas où elle va commencer et même en "PAS A PAS" je ne peux pas la suivre Et comme mon vrai fichier est plus gros celui que j'ai fourni, la marco commence dans les colonnes qu'elle est chargée d'analyser !

J'imagine qu'il y a une solution pour voir la cellule se déplacer dans le fichier et pour l'obliger à commencer à une adresse prédéfinie. Est-ce que tu peux me donner encore un petit coup de main !

Merci d'avance

Cordialement

Bonjour,

La macro balaye la plage G3:i(jusqu'au bas du tableau)

Si difficulté pour adapter, envoie ton fichier réel

(pas besoin de toutes les lignes)

Amicalement

Claude

Merci Claude,

j'ai adapté et j'ai réussi à faire à faire ce que je voulais.

Impac..

Bonjour,