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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Ralf94
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
R

Ralf94

XLDnaute Nouveau
Bonjour,

Je suis novice en Excel, et je galère depuis quelques jours sur mon fichier.
Je vais joindre à ma demande, le fichier comme ça, ça sera plus parlant, avec une photo du résultat escompté.

Je voudrais savoir comment faire pour marquer sur ma feuille "planning case" un numéro, qui correspondra à l'une des prestations qui sont sur la feuille "Avancement" ex: faïence=1 ; élec=2;..., en fonction de la personne qui se trouve dans la feuille "avancement" et de la date inscrite à coter et par rapport au travail.

Je vous remercie pour votre aide.
 

Pièces jointes

  • aide.xlsx
    aide.xlsx
    188 KB · Affichages: 91
  • resultat escompte.png
    resultat escompte.png
    119.1 KB · Affichages: 45
Trier par date Trier par votes
Hello

un essai avec ce code
PS: j'ai déjà pris en compte le cas ou la personne est sur un atelier pendant une période complète (avec colonne FIN renseignée..

VB: 
Sub planning()

NbPersonnes = Range("A" & Rows.Count).End(xlUp).Row - 3

For i = 1 To NbPersonnes
    Employé = Range("A" & i + 3)
    With Sheets("Planning case")
        Set ici = .Range("A8").Resize(NbPersonnes).Find(Employé, lookat:=xlWhole)
        If Not ici Is Nothing Then
            Ligne = ici.Row
        End If
    End With
    For j = 3 To 9 Step 2
        Atelier = Cells(1, j)
        Debut = Cells(i + 3, j)
        Fin = Cells(i + 3, j + 1)
        With Sheets("Planning case")
       
            If Debut <> "" Then
                Set Dela = .Rows(7).Find(Debut, LookIn:=xlValues)
                If Not Dela Is Nothing Then
                    ColDebut = Dela.Column
                End If
            End If
            If Fin <> "" Then
                Set ALa = .Rows(7).Find(Fin, LookIn:=xlValues)
                If Not ALa Is Nothing Then
                    ColFin = ALa.Column
                End If
            Else: ColFin = ColDebut
            End If
            If Debut <> "" Then
                .Cells(Ligne, ColDebut) = Atelier
            End If
            If ColDebut <> ColFin Then
                .Range(.Cells(Ligne, ColDebut), .Cells(Ligne, ColFin)).FillRight
            End If
        End With
    Next j
Next i

End Sub
 
Vote positif 0 Vote négatif
Hello
en fait ca fonctionne bien pour peu que le bouton "Go" soit placé dans la bonne feuille... "Avancement"
je m'a gourré :-D
j'ai donc remis le bouton Go dans la feuille Avancement, et corrigé le code pour que sa place n'ait finalement pas d'importance..

donc.
1) soit tu changes le bouton de place et tu laisses le code comme il est
2) soit tu laisses le bouton dans la feuille Planning Case et tu remplaces le code par celui ci:
VB: 
Sub planning()

NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3

For i = 1 To NbPersonnes
    Employé = Sheets("Avancement").Range("A" & i + 3)
    With Sheets("Planning case")
        Set ici = .Range("A8").Resize(NbPersonnes).Find(Employé, lookat:=xlWhole)
        If Not ici Is Nothing Then
            Ligne = ici.Row
        End If
    End With
    For j = 3 To 9 Step 2
        Atelier = Sheets("Avancement").Cells(1, j)
        couleur = Sheets("Avancement").Cells(1, j).Interior.ColorIndex
        Debut = Sheets("Avancement").Cells(i + 3, j)
        Fin = Sheets("Avancement").Cells(i + 3, j + 1)
        With Sheets("Planning case")
       
            If Debut <> "" Then
                Set Dela = .Rows(7).Find(Debut, LookIn:=xlValues)
                If Not Dela Is Nothing Then
                    ColDebut = Dela.Column
                Else: Exit For
                End If
            End If
            If Fin <> "" Then
                Set ALa = .Rows(7).Find(Fin, LookIn:=xlValues)
                If Not ALa Is Nothing Then
                    ColFin = ALa.Column
                Else: Exit For
                End If
            Else: ColFin = ColDebut
            End If
            If Debut <> "" Then
                .Cells(Ligne, ColDebut) = Atelier
                .Cells(Ligne, ColDebut).Interior.ColorIndex = couleur
            End If
            If ColDebut <> ColFin Then
                .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

[/cdoe]
 
Vote positif 0 Vote négatif
vgendron à dit:
Hello
en fait ca fonctionne bien pour peu que le bouton "Go" soit placé dans la bonne feuille... "Avancement"
je m'a gourré :-D
j'ai donc remis le bouton Go dans la feuille Avancement, et corrigé le code pour que sa place n'ait finalement pas d'importance..

donc.
1) soit tu changes le bouton de place et tu laisses le code comme il est
2) soit tu laisses le bouton dans la feuille Planning Case et tu remplaces le code par celui ci:
VB: 
Sub planning()

NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3

For i = 1 To NbPersonnes
    Employé = Sheets("Avancement").Range("A" & i + 3)
    With Sheets("Planning case")
        Set ici = .Range("A8").Resize(NbPersonnes).Find(Employé, lookat:=xlWhole)
        If Not ici Is Nothing Then
            Ligne = ici.Row
        End If
    End With
    For j = 3 To 9 Step 2
        Atelier = Sheets("Avancement").Cells(1, j)
        couleur = Sheets("Avancement").Cells(1, j).Interior.ColorIndex
        Debut = Sheets("Avancement").Cells(i + 3, j)
        Fin = Sheets("Avancement").Cells(i + 3, j + 1)
        With Sheets("Planning case")
     
            If Debut <> "" Then
                Set Dela = .Rows(7).Find(Debut, LookIn:=xlValues)
                If Not Dela Is Nothing Then
                    ColDebut = Dela.Column
                Else: Exit For
                End If
            End If
            If Fin <> "" Then
                Set ALa = .Rows(7).Find(Fin, LookIn:=xlValues)
                If Not ALa Is Nothing Then
                    ColFin = ALa.Column
                Else: Exit For
                End If
            Else: ColFin = ColDebut
            End If
            If Debut <> "" Then
                .Cells(Ligne, ColDebut) = Atelier
                .Cells(Ligne, ColDebut).Interior.ColorIndex = couleur
            End If
            If ColDebut <> ColFin Then
                .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

[/cdoe]
Cliquez pour agrandir...

Merci beaucoup pour votre aide
🙂
 
Vote positif 0 Vote négatif
vgendron à dit:
Hello
en fait ca fonctionne bien pour peu que le bouton "Go" soit placé dans la bonne feuille... "Avancement"
je m'a gourré :-D
j'ai donc remis le bouton Go dans la feuille Avancement, et corrigé le code pour que sa place n'ait finalement pas d'importance..

donc.
1) soit tu changes le bouton de place et tu laisses le code comme il est
2) soit tu laisses le bouton dans la feuille Planning Case et tu remplaces le code par celui ci:
VB: 
Sub planning()

NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3

For i = 1 To NbPersonnes
    Employé = Sheets("Avancement").Range("A" & i + 3)
    With Sheets("Planning case")
        Set ici = .Range("A8").Resize(NbPersonnes).Find(Employé, lookat:=xlWhole)
        If Not ici Is Nothing Then
            Ligne = ici.Row
        End If
    End With
    For j = 3 To 9 Step 2
        Atelier = Sheets("Avancement").Cells(1, j)
        couleur = Sheets("Avancement").Cells(1, j).Interior.ColorIndex
        Debut = Sheets("Avancement").Cells(i + 3, j)
        Fin = Sheets("Avancement").Cells(i + 3, j + 1)
        With Sheets("Planning case")
    
            If Debut <> "" Then
                Set Dela = .Rows(7).Find(Debut, LookIn:=xlValues)
                If Not Dela Is Nothing Then
                    ColDebut = Dela.Column
                Else: Exit For
                End If
            End If
            If Fin <> "" Then
                Set ALa = .Rows(7).Find(Fin, LookIn:=xlValues)
                If Not ALa Is Nothing Then
                    ColFin = ALa.Column
                Else: Exit For
                End If
            Else: ColFin = ColDebut
            End If
            If Debut <> "" Then
                .Cells(Ligne, ColDebut) = Atelier
                .Cells(Ligne, ColDebut).Interior.ColorIndex = couleur
            End If
            If ColDebut <> ColFin Then
                .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

[/cdoe]
Cliquez pour agrandir...

Je viens de voir quand je change une date et que je rappuies sur go sa ne retire pas la couleur et le numéro.
Par exemple dans la 1er ligne il y a le 27/11 en début et 30/11 en fin, ca va me remplir les 4 cases mais si je modifie et que je met du 27 au 28 ca ne va pas retirer les 2 cases en trop dans le planning.
 
Vote positif 0 Vote négatif
Normal, la macro n'efface pas ce qui a été fait précédemment,
il faut ajouter une ligne en début de macro pour effacer
VB: 
NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3
Sheets("Planning case").Range("B8").Resize(NbPersonnes, 125).Clear
 
Vote positif 0 Vote négatif
et comme tu vas me dire que tu souhaites garder le quadrillage..
mets ceci à la place
VB: 
NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3
With Sheets("Planning case").Range("B8").Resize(NbPersonnes, 125)
    .ClearContents
    With .Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End With
 
Vote positif 0 Vote négatif
vgendron à dit:
et comme tu vas me dire que tu souhaites garder le quadrillage..
mets ceci à la place
VB: 
NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3
With Sheets("Planning case").Range("B8").Resize(NbPersonnes, 125)
    .ClearContents
    With .Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End With
Cliquez pour agrandir...

LOL je n'ai que 4 mots à dire:
TU ES UNE MACHINE!!!
 
Vote positif 0 Vote négatif
Ralf94 à dit:
LOL je n'ai que 4 mots à dire:
TU ES UNE MACHINE!!!
Cliquez pour agrandir...

Bonjour,

Je reviens vers vous afin de savoir si vous pourriez m'expliquer quelques lignes afin que je puisse comprendre ce quelles veulent dire afin de pouvoir m'adapter au cas ou je dois modifier mon tableau?
par exemple la partie:

For j = 3 To 9 Step 2 <--
Set Dela = .Rows(7).Find(Debut, LookIn:=xlValues) <--

Merci pour votre aide
 
Vote positif 0 Vote négatif
Hello
Revoici le code complet commenté
VB: 
Sub planning()


NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3 '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("B8").Resize(NbPersonnes, 125) '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 + 3) '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("A8").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(7).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(7).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
 
Vote positif 0 Vote négatif
vgendron à dit:
Hello
Revoici le code complet commenté
VB: 
Sub planning()


NbPersonnes = Sheets("Avancement").Range("A" & Rows.Count).End(xlUp).Row - 3 '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("B8").Resize(NbPersonnes, 125) '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 + 3) '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("A8").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(7).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(7).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
Cliquez pour agrandir...

et que veut dire le +3 dans :
Employé = Sheets("Avancement").Range("A" & i + 3) 'on récupère le nom de l'employé
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

F
  • Question Question
Microsoft 365 Remontée de données en fonction de deux dates et selon un matricule
Réponses
2
Affichages
678
Hasco
Hasco
L
  • Résolu(e)
Microsoft 365 Recherche dans un tableau en fonction de 2 critères et fonction compter valeur texte en nombre
Réponses
4
Affichages
1 K
AC045364
A
M
  • Résolu(e)
XL 2016 pour un planning mensuel masquer les dernières colonnes en fonction de l'année
2
Réponses
24
Affichages
4 K
MomoooHHH
M
Menibelus
  • Question Question
Microsoft 365 Création d'un planning à partir d'une base de données pour un centre de vaccination
Réponses
0
Affichages
1 K
Menibelus
Menibelus
J
  • Question Question
XL 2010 Alimentation planning en fonction de données sur une feuille
Réponses
13
Affichages
1 K
Joponta
J
koewin
  • Question Question
Microsoft 365 Remplir automatiquement des cellules suivant de dates et un planning
Réponses
5
Affichages
2 K
chris
chris
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
J
  • Question Question
Excel -VBA : Envoie plusieurs partie du même tableau dans un corps mail en fonction de certaines conditions
Réponses
0
Affichages
2 K
JBIK
J
T
  • Résolu(e)
XL 2016 Liste de course en fonction de recettes
Réponses
3
Affichages
4 K
Tapouc
T
S
  • Question Question
XL 2019 Masquage de ligne en fonction de données d'une colonne spécifiée
Réponses
10
Affichages
1 K
stephanegattoni
S
M
  • Question Question
Créer un TCD en vba dont le fichier source de données est variable
Réponses
1
Affichages
3 K
chris
chris
S
  • Question Question
XL 2010 Saisie automatique de données Planning Formation
Réponses
0
Affichages
1 K
Serious E
S
R
  • Résolu(e)
XL 2016 Créer une feuille excel qui s'auto-rempli en fonction de données
Réponses
8
Affichages
1 K
Robinho8991
R
F
  • Question Question
XL 2016 Remplir en automatique une colonne en fonction d'une autre sur un autre onglet
Réponses
10
Affichages
2 K
xUpsilon
xUpsilon
T
  • Résolu(e)
Autres Indication de 2 données en fonction d'une recherche dans un tableau
Réponses
8
Affichages
914
thejackyshow
T
N
  • Question Question
reporter automatiquement sur un planning de production
Réponses
4
Affichages
2 K
neim
N
G
  • Question Question
Soucis de mise en forme conditionnel
Réponses
11
Affichages
1 K
djidji59430
djidji59430
yannickty
  • Question Question
XL 2013 Renseigner cellule en fonction d un planning
Réponses
5
Affichages
1 K
yannickty
yannickty
E
  • Question Question
XL 2019 Comment appliquer un pourcentage différent en fonction d'une intervalle de valeurs
Réponses
5
Affichages
2 K
Elmarabout
E
I
  • Question Question
XL 2016 Extraire données d'une colonne en fonction de la ligne du dessous
2
Réponses
23
Affichages
3 K
Staple1600
Staple1600
Retour