Bonjour
je sollicite votre aide car la macro que j'ai écrite ne me renvoi rien.
J'ai bien mes données dans le fichier source (Secteur1)
il s'agit seulement d'une partie de la macro.
je synthétise un ensemble de feuilles sur un tableau.
Pouvez-vous me dire ce qu'il manque?
Merci
Option Explicit
Dim f, i, j, k, l, lgn
Sub nomsdepart2019()
'Range("d2").CurrentRegion.Offset(3, 0).ClearContents
For Each f In Worksheets
If f.Name = "Secteur1" And Range("AH4") = "poste à pourvoir" Then
For i = 16 To 33 'ligne 16 à 33
For j = 34 To 34 'colonne 34
If Cells(i, j).Value = 1 Then
lgn = Cells(5, j - 31).End(xlDown)(2).Row 'correspond ligne 5 colonne 3
Cells(lgn, j - 31) = Range("D" & i)
Cells(lgn, j - 30) = Range("A" & i) & " " & Range("B" & i)
Cells(lgn, j - 29) = ActiveSheet.Name
Cells(lgn, j - 28) = Range("AG" & i)
Cells(lgn, j - 27) = Range("AI" & i)
Cells(lgn, j - 26) = Range("AK" & i)
Exit For
End If
Next j
Next i
End If
Next f
Range("f61").Select
ActiveCell = Date
Range("d3").Select
End Sub