XL 2016 Remplir un planning en fonction de 2 données

vgendron à dit:

c'est pour commencer à la ligne 4 de ton tableau
pour i=1 -->i+3=4

Cliquez pour agrandir...

vgendron à dit:

Hello
pour éviter ces problèmes d'indice à modifier un peu partout, j'en ai fait des variables qu'il te suffit d'initialiser à la bonne valeur en début de code

VB:

Sub planning()
PremiereLignePlanning = 7 '=ligne de titre
PremiereLigneAvancement = 3 '=ligne de titre
LastCol = 125 'Nombre de colonnes "Semaines" de la feuille "Planning Case" = colonne DV - Colonne A =126-1


NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - PremiereLigneAvancement 'dans la feuille avancement colonne A, récupère le numéro de la dernière ligne NON vide  et -3 (première ligne commence à 3) pour en déduire le nombre de personnes
With Sheets("Planning case").Range("B" & PremiereLignePlanning + 1).Resize(NbPersonnes, LastCol) 'dans la feuille Planning, on sélectionne le tablo qui commence en B8 - sur NbPersonnes lignes et 125 colonnes
    .ClearContents 'on efface le contenu
    With .Interior 'et on remet le remplissage de couleur à vide
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End With

For i = 1 To NbPersonnes 'pour chaque personne
    Employé = Sheets("Avancement").Range("A" & i + PremiereLigneAvancement) 'on récupère le nom de l'employé
    With Sheets("Planning case") 'on le cherche dans la colonne A du Planning (utile si les noms ne sont pas triés
        Set ici = .Range("A" & PremiereLignePlanning + 1).Resize(NbPersonnes).Find(Employé, lookat:=xlWhole)
        If Not ici Is Nothing Then
            Ligne = ici.Row 'on récupère son numéro de ligne
        End If
    End With
  
    For j = 3 To 9 Step 2 ' on est dans la feuille Avancement: on se déplace de la colonne 3 (C) à 9 (I) par pas de 2: C - E - G - I
        Atelier = Sheets("Avancement").Cells(1, j) 'on récupère le numéro de l'atelier sur la ligne 1
        couleur = Sheets("Avancement").Cells(1, j).Interior.ColorIndex 'on récupère la couleur
        Debut = Sheets("Avancement").Cells(i + 3, j) 'on récupère le début de l'activité
        Fin = Sheets("Avancement").Cells(i + 3, j + 1) 'on récupère la fin de l'activité
      
        With Sheets("Planning case") 'dans la feuille Planning
            If Debut <> "" Then 'si Debut n'est pas vide
                Set Dela = .Rows(PremiereLignePlanning).Find(Debut, LookIn:=xlValues) 'on cherche la date de début sur la ligne 7
                If Not Dela Is Nothing Then
                    ColDebut = Dela.Column 'on récupère la colonne
                Else: Exit For
                End If
            End If
            If Fin <> "" Then 'si Fin n'est pas vide
                Set ALa = .Rows(PremiereLignePlanning).Find(Fin, LookIn:=xlValues) 'on cherche la date de Fin sur la ligne 7
                If Not ALa Is Nothing Then
                    ColFin = ALa.Column 'on récupère la colonne
                Else: Exit For
                End If
            Else: ColFin = ColDebut 'si on avait une seule date, on met la fin = début
            End If
            If Debut <> "" Then
                .Cells(Ligne, ColDebut) = Atelier 'on place le numéro de l'atelier
                .Cells(Ligne, ColDebut).Interior.ColorIndex = couleur 'et sa couleur
            End If
            If ColDebut <> ColFin Then 'si on a une DUREE d'activité, on recopie sur toute la durée atelier et couleur
                .Range(.Cells(Ligne, ColDebut), .Cells(Ligne, ColFin)).FillRight
                .Range(.Cells(Ligne, ColDebut), .Cells(Ligne, ColFin)).Interior.ColorIndex = couleur
            End If
        End With
    Next j
Next i
End Sub

Donc si tu ajouttes 3 lignes dans la feuille Planning AU DESSUS du planning, la ligne de titre passe de 7 à 10: il te suffit de modifier uniquement cette valeur en début de code et tu lances

Cliquez pour agrandir...

vgendron à dit:

Alors.. de ce que je viens de lire ici et ailleurs.. la recherche de date avec la méthode Find.. c'est la m.....
1) il faut "transformer" les dates dans leur format natif (= standard) pour s'affranchir du format d'affichage
27/11/2017 --->43066

2) ensuite.. normalement, c'set facile. sauf que dans dans ton cas.. les dates de la feuille planning proviennent de formules SAUF la première en F10
et ca. ca n'aide pas. et pas trouvé la solution; à part de faire un copier collerspecial valeur de toute la ligne 10
cf PJ

Cliquez pour agrandir...