XL 2016 Pb planning lors demande de congés sur 2 mois différents

younik · 8 Août 2023

Bonjour,

Je n'arrive pas a résoudre un problème sur une feuille de planning qui utilise un code VBA pour remplir les cellules avec le motif d'absence d'un salarié.
Tout fonctionne correctement quand les date sont sur un mois .

Par contre il me rajoute toujours un congé en fin du mois suivant qui n'a pas lieu d'être..

Je ne vois pas comment éviter cela.

Je vous met le fichier en copie .

Younik

sousou · 8 Août 2023

bonjour
Modifie comme ceci et fait des tests
Sub ddeConge()
' ne pas ajouter d'autres onglets avant le premier mois ou changer la valeur suivante
origineOnglet = 1
For Each cel In Sheets("Congés").Range("F5:F500")
If cel.Value <> "" Then

For quand = cel.Offset(0, -2) To cel.Offset(0, -1)
onglet = Month(quand) + origineOnglet
Sheets(onglet).Select
nom = Sheets("congés").Range("B4")
If TYPEJOUR(CDate(quand)) = 0 Then 'Lundi à vendredi ou jours feries
jour = Day(CDate(quand))
' MsgBox jour
'Else
' Debug.Print quand

' End If
Set colJour = Sheets(onglet).Rows(12).Find(Format(jour, "00"), LookIn:=xlValues)
Set ligneNom = Sheets(onglet).Columns(1).Find(nom, LookIn:=xlValues)
If colJour Is Nothing Or ligneNom Is Nothing Then
MsgBox "Erreur demande sur ligne " & cel.Row
Else

Debug.Print onglet, Sheets(onglet).Name, jour, nom, colJour.Column, ligneNom.Row
Sheets(onglet).Cells(ligneNom.Row, colJour.Column).Offset(0, 0) = cel.Value

End If
End If
Next
End If
Next

vgendron · 8 Août 2023

Hello

une proposition de code corrigé

1) utiliser les tables structurées: t_Congés dans ta feuille congés
pS: les colonnes à droite pour lister les jours de congés, servent vraiment à quelque chose ??

j'ai pas creusé, mais dans ton code initial,
-tu prends toujours le nom en B4 de la feuille Congés
==> si tu as plusieurs employés à traiter, les congés seront toujours affectés au meme employé.
il me semble que lorsque tu determines l'onglet, tu le fais sur la date de début. au lieu de la date en cours de traitement "Quand"

vgendron · 8 Août 2023

Re
en fait, ton problème vient de la partie "Set ColJour....set LigneNom et...) que tu fais MEME si le jour est férié..
ce n'est donc pas placé au bon endroit

younik · 8 Août 2023

Merci Vgendron

Oui dans premier temps je voulais faire le test sur un employé je n'avais pas fini mon script.

Mais je vois que tu as adapté merci en tout cas tout est fonctionnel.

Pour les colonnes à droite c'était un test que j'avais fait à l'origine mais effectivement ça ne sert pas

Merci beaucoup
Je suis débutant donc j'avance à petit pas.

younik · 14 Août 2023

Bonjour,
Je sollicite à nouveau votre aide en VBA j'ai bien avancé dans mon fichier .

Je voudrais permettre dans mon tableau de données que je puisse faire une mise à jour ou suppression .

Sois sous forme de bouton ou lorsque le tableau est mise à jour.

Merci d'avance pour vos idées
Yannick

vgendron · 14 Août 2023

bonjour

déjà, pourquoi n'as tu pas utilisé le code que je t'ai fourni? (peut etre t'es tu trompé de fichier?)

et.. comme je ne vois pas vraiment l'évolution du fichier.. je ne vois pas vraiment ce que tu veux faire.
supprimer ou modifier une ligne de quel tableau (quelle feuille?)

younik · 14 Août 2023

vgendron à dit:
bonjour

déjà, pourquoi n'as tu pas utilisé le code que je t'ai fourni? (peut etre t'es tu trompé de fichier?)

et.. comme je ne vois pas vraiment l'évolution du fichier.. je ne vois pas vraiment ce que tu veux faire.
supprimer ou modifier une ligne de quel tableau (quelle feuille?)

Pourtant j'ai bien utilisé ton code
Oui pardon je n'ai pas assez détaillé
sur la feuille congés je voudrais que les mise à jour du tableau soit reporté sur les mois concernés et supprime les dates de celle qui ont été supprimés.

Je sais pas si c'est claire

younik · 14 Août 2023

Oui pardon vieux fichier envoyé
voici la bonne version

vgendron · 14 Août 2023

Je pense que tu t'es encore trompé

pas grave.. j'ai réalisé la macro pour supprimer la ligne qui est selectionnée dans la table

sur le meme principe que la première macro: au lieu de mettre le congé, on met ..rien.. = on efface

VB:

Sub SupprimerCongé()

    If ActiveCell.ListObject Is Nothing Then
        MsgBox "Cliquez sur la ligne à supprimer"
        Exit Sub
    End If
    
    With Sheets("Congés").ListObjects("t_Congés") 'avec la table strucuturée "t_Congés" de la feuille "Congés"
        LigToSup = ActiveCell.Row - .Range.Row
        TypeCongés = .DataBodyRange(LigToSup, 4) 'on récupère le type de congés
        Nom = .DataBodyRange(LigToSup, 1) 'on récupère le nom
        deb = .DataBodyRange(LigToSup, 2) 'la date de début de congés
        fin = .DataBodyRange(LigToSup, 3) ' date de fin de congés
        .ListRows(LigToSup).Delete
    End With
    
    For quand = deb To fin 'pour chaque jour de congés
        onglet = Format(Month(quand), "00") 'on récupère l'onglet sur lequel enregistrer le jour
        If TYPEJOUR(CDate(quand)) = 0 Then '
            With Sheets(onglet) 'avec l'onglet
                Set ColJour = .Rows(12).Find(Format(Day(quand), "00"), LookIn:=xlValues) 'on cherche la colonne du jour
                Set LigneNom = .Columns(1).Find(Nom, lookat:=xlWhole) 'on cherche la ligne du nom
                If ColJour Is Nothing Or LigneNom Is Nothing Then
                    MsgBox "Erreur demande sur ligne " & i
                Else
                    .Cells(LigneNom.Row, ColJour.Column).Offset(0, 0) = "" 'on efface le congé
                End If
            End With
        End If
    Next quand

End Sub

younik · 14 Août 2023

Merci beaucoup c'est ce que je voulais

vgendron · 14 Août 2023

pour modifier.. par contre...
en l'état, ca correspond à supprimer d'abord la ligne et la recréer..

sinon pour modifier il faudrait
1) effacer les congés déjà enregistrés (= macro supprimer MAIS SANS la supression de la ligne dans la table)
2) macro enregistrer les congés..: 1ere macro déjà faite

vgendron · 14 Août 2023

ca donnerait "simplement" ceci

VB:

Sub SupprimerModifierCongé()
    
    If ActiveCell.ListObject Is Nothing Then
        MsgBox "Cliquez sur la ligne à modifier/supprimer"
        Exit Sub
    End If
    Supprimer = MsgBox("Souhaitez vous Supprimer la ligne (OUI) ou Modifier la ligne(NON)", vbYesNo) = vbYes
    With Sheets("Congés").ListObjects("t_Congés") 'avec la table strucuturée "t_Congés" de la feuille "Congés"
        LigToSup = ActiveCell.Row - .Range.Row
        TypeCongés = .DataBodyRange(LigToSup, 4) 'on récupère le type de congés
        Nom = .DataBodyRange(LigToSup, 1) 'on récupère le nom
        deb = .DataBodyRange(LigToSup, 2) 'la date de début de congés
        fin = .DataBodyRange(LigToSup, 3) ' date de fin de congés
        If Supprimer Then
            .ListRows(LigToSup).Delete
        End If
    End With
    
    
    For quand = deb To fin 'pour chaque jour de congés
        onglet = Format(Month(quand), "00") 'on récupère l'onglet sur lequel enregistrer le jour
        If TYPEJOUR(CDate(quand)) = 0 Then '
            With Sheets(onglet) 'avec l'onglet
                Set ColJour = .Rows(12).Find(Format(Day(quand), "00"), LookIn:=xlValues) 'on cherche la colonne du jour
                Set LigneNom = .Columns(1).Find(Nom, lookat:=xlWhole) 'on cherche la ligne du nom
                If ColJour Is Nothing Or LigneNom Is Nothing Then
                    MsgBox "Erreur demande sur ligne " & i
                Else
                    .Cells(LigneNom.Row, ColJour.Column).Offset(0, 0) = "" 'on efface le congé
                End If
            End With
        End If
    Next quand
    If Not Supprimer Then ddeConge 'comme il s'agit d'une modif, on relance la macro pour enregistrer les nouveaux congés
End Sub

ChTi160 · 15 Août 2023

Bonjour le Fil
question à @vgendron
Pourquoi mettre :

VB:

.Cells(LigneNom.Row, ColJour.Column).Offset(0, 0) = ""

a quoi sert le : .Offset(0, 0) ?
merci par avance
Bonne journée
Jean marie

vgendron · 15 Août 2023

Hello @ChTi160

euh.. j'en sais rien.. à rien..
j'ai du recopier le code initial sans y faire attention..

XL 2016 Pb planning lors demande de congés sur 2 mois différents

younik

XLDnaute Nouveau

Pièces jointes

sousou

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Pièces jointes

vgendron

XLDnaute Barbatruc

younik

XLDnaute Nouveau

younik

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

younik

XLDnaute Nouveau

younik

XLDnaute Nouveau

Pièces jointes

vgendron

XLDnaute Barbatruc

younik

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

ChTi160

XLDnaute Barbatruc

vgendron

XLDnaute Barbatruc

Discussions similaires