Alors si quelqu'un veut m'aider, je suis pas très loin de réussir, j'ai juste un petit souci.
J'ai le code suivant :
[code]Sub recap()
Sheets("recap").Select
Rows("2:451").Select
Selection.ClearContents
ligne = 2
With Sheets("Feuille temps")
For i = 3 To 32
'For j = 3 To 32 Step 5
'For j = 1 To 6
For k = 12 To 34
If .Cells(k, i) <> "" And .Cells(k, i) <> 0 Then
'Cells(ligne, 1) = .Cells(10, j)
'Cells(ligne, 1) = .Cells(10, i + 5 * (j - 1))
Cells(ligne, 2) = .Cells(4, 25)
Cells(ligne, 3) = .Cells(4, 32)
Cells(ligne, 4) = .Cells(11, i)
Cells(ligne, 5) = .Cells(k, 1)
Cells(ligne, 6) = .Cells(k, i)
ligne = ligne + 1
End If
Next k
Next i
Next j
End With
Sheets("Feuille temps").Select
End Sub
[/code]
En commentaire deux façon différentes pour trouver le résultat mais aucunes de marche pleinement...
Le but de cette partie est de récupérer les Nom des travailleur dans le tableau ci dessus malheureusement dans un cas il ne prend que le premier nom et dans l'autre il les prends tous même si ils n'ont pas travaillés...
Une idée ?
