Bonjour à tous,
J'aurais besoin de vous pour me sortir d'un casse-tête
Dans un classeur , j'ai plusieurs onglets (étant variable) qui représente des noms de Stagiaire
Les feuilles sont identiques, seul les données changent
Bon, j'ai réussi jusque là à rappatrier mes données.
Le problème, c'est que si une fiche de stagiaire (Onglet) n'a pas de stage, la procèdure s'arrête et ne poursuit plus la recherche
Il y aurait-il une astuce pour lui dire que si dans la fiche sélectionné, la cellule D24 est vide, passer le chemin est continuer
Merci d'avance
Sub Stages()
Dim i As Integer, j As Integer, k As Integer, lr As Integer, derligne As Integer, MaPlage As Range
Sheets("Stage").Select
Range("a1").Select
Range("c6:L1000").ClearContents
For k = 5 To 100 Step 1
For j = 1 To Worksheets.Count
If Worksheets(j).Name = Cells(k, 2).Value Then
Sheets(j).Select
derligne = Range("d35").End(xlUp).Row
For i = 24 To derligne
Sheets(j).Select
Sheets(j).Unprotect
Set MaPlage = Range("d" & i & ":f" & i)
MaPlage.Select
Selection.Copy
Sheets("Stage").Select
lr = Range("c1000").End(xlUp).Row + 1
Cells(lr, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Cells(lr, 12).Select
Cells(lr, 12) = Cells(k, 2).Value
Next i
End If
Next j
Next k
Sheets("Stage").Select
Range("a1").Select
End Sub