Sub planning()
Set Huit1 = Sheets("Semplanning").Range("B4:I16")
Set Huit2 = Sheets("Semplanning").Range("L4:S16")
For Each jour In Huit1.Rows(1).Cells
If Not jour Like ("SEM*") Then
Set c = Range("AnneeComplete").Find(jour)
If Not c Is Nothing Then
colonne = c.Column - 7
For Each fonction In Huit1.Columns(1).Cells
If Not fonction Like ("SEM*") Then
'recherche de l'affectation correspondant à la fonction en première colonne
affectation = Range("ListAffectations").Rows(WorksheetFunction.Match(fonction, Range("ListFonctions"), 0))
Set ici = Range("TabData").Columns(colonne).Find(affectation)
If Not ici Is Nothing Then
If Range("ListeEquipes").Rows(ici.Row - 3) = "HUIT1" Then
Final = Range("ListeNoms").Rows(ici.Row - 3)
Huit1.Cells(fonction.Row - 3, jour.Column - 1) = Final
End If
End If
End If
Next fonction
End If
End If
Next jour
For Each jour In Huit2.Rows(1).Cells
If Not jour Like ("SEM*") Then
Set c = Range("AnneeComplete").Find(jour)
If Not c Is Nothing Then
colonne = c.Column - 7
For Each fonction In Huit2.Columns(1).Cells
If Not fonction Like ("SEM*") Then
'recherche de l'affectation correspondant à la fonction en première colonne
affectation = Range("ListAffectations").Rows(WorksheetFunction.Match(fonction, Range("ListFonctions"), 0))
Set ici = Range("TabData").Columns(colonne).Find(affectation, lookat:=xlWhole)
If Not ici Is Nothing Then
If Range("ListeEquipes").Rows(ici.Row - 3) = "HUIT2" Then
Final = Range("ListeNoms").Rows(ici.Row - 3)
Huit2.Cells(fonction.Row - 3, jour.Column - 11) = Final
End If
End If
End If
Next fonction
End If
End If
Next jour
End Sub