Script VBA récupération de valeur

Bonjour

J'ai un petit script en VBA qui me récupère et me classe dans une feuille, ID des salariés et leurs heures de travail pour chaque activité. Ces données sont récupérer à partir d'un tableau d'une autre feuille

Voici mon script:

Sub tableau()
 k = 2
    Sheets("Feuil2").Cells.ClearContents
    With Sheets("Feuil1")
        For i = 5 To .Range("A" & .Rows.Count).End(xlUp).Row - 1
            For j = 3 To .Cells(3, .Columns.Count).End(xlToLeft).Column
                If .Cells(i, j) <> "" Then
                    Sheets("Feuil2").Cells(k, 1) = .Cells(i, 2)
                    Sheets("Feuil2").Cells(k, 2) = CDbl(Split(.Cells(i, j), ":")(0) & "," & Split(.Cells(i, j), ":")(1))
                    Sheets("Feuil2").Cells(k, 3) = .Cells(3, j)
                    k = k + 1
                End If
            Next j
        Next i
    End With
End Sub

Et mon fichier excel pour plus de compréhension

24projet-salarie.xlsx (10.93 Ko)

Merci d'avance pour votre aide

Bonjour

J'ai l'impression que tu as oublié de dire l'essentiel : qu'attends-tu du forum ?

A te relire.

Bye !

Ah je suis désolé, je me suis pas relu , une mauvaise habitude ^^

Je souhaiterais ne pas prendre en compte dans mon script la colonne Total des heures, car pour l'instant mon script récupère les heures de travail des salariés pour chaque activités ainsi que le total des heures

Je ne voudrais pas prendre en compte la colonne Total

Merci d'avance pour votre aide

Un essai. Te convient-il ?

21projet-salarie.xlsm (25.41 Ko)

Merci exactement ce que je recherchais ^^ *-* Merci mille fois

Rechercher des sujets similaires à "script vba recuperation valeur"