Report donnees planning

Créer une discussion
Répondre

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
MISTERJUNGLE

MISTERJUNGLE

XLDnaute Occasionnel
Re_Bonjour,

je pense mettre mal expliqué
sur mon planning se trouve une période de "CP" que j’insère manuellement,serait il possible de faire le report sur la feuille de la personne concerne (LUC....) ,avec la date en colonne "A" et le texte "CP" dans la colonne "F"
merci de votre aide pour me mettre sur la piste (macro)

bonne et heureuse année 2014
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : Report donnees planning

Merci néné06,
cela fonctionne très bien sur la page que j'ai simplifié, par contre je n'arrive pas a l’intégrer sur ma page qui contient déjà plusieurs petites macros. car je commande les "AT,MAL,CP.." par bouton et je sélectionne le mois en cours pour réduire ma page
je te met un les quelques macros.merci

Option Explicit
Private Sub AT_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 9 Else If Selection.Interior.ColorIndex = 9 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "AT"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CFO_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 12 Else If Selection.Interior.ColorIndex = 12 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "CFO"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CMP_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 7 Else If Selection.Interior.ColorIndex = 7 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "CMP"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CommandButton10_Click()
UserForm1.Show
End Sub

Private Sub CommandButton11_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "STD+N"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CommandButton15_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "NUIT"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CommandButton2_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 3 Else If Selection.Interior.ColorIndex = 3 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "SAM+N"
ActiveCell.Offset(0, 1).Select
End Sub

Private Sub CP_Click()
If Selection.Interior.ColorIndex = xlNone Then Selection.Interior.ColorIndex = 4 Else If Selection.Interior.ColorIndex = 4 Then Selection.Interior.ColorIndex = xlNone
ActiveCell.FormulaR1C1 = "CP"
ActiveCell.Offset(0, 1).Select
End Sub



Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address <> "$A$4" Then Exit Sub

Application.ScreenUpdating = False
Columns("B:NB").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NB").Hidden = False
Case "Janvier"
Columns("B:AF").Hidden = False
Case "Février"
Columns("AG:BH").Hidden = False
Case "Mars"
Columns("BI:CM").Hidden = False
Case "Avril"
Columns("CN😀Q").Hidden = False
Case "Mai"
Columns("DR:EV").Hidden = False
Case "Juin"
Columns("EW:FZ").Hidden = False
Case "Juillet"
Columns("GA:HE").Hidden = False
Case "Août"
Columns("HF:IJ").Hidden = False
Case "Septembre"
Columns("IK:JN").Hidden = False
Case "Octobre"
Columns("JO:KS").Hidden = False
Case "Novembre"
Columns("KT:LW").Hidden = False
Case "Décembre"
Columns("LX:NB").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub

Private Sub choix_mois_Click()
 
Vote positif 0 Vote négatif
Re : Report donnees planning

Bonsoir le Forum, bonsoir MisterJungle.

Si tu pouvais nous faire parvenir une PJ avec les codes que tu as placés, mais sans donnée confidentielle, perso, pour moi , se serait plus facile et je pense aussi pour les autres Xld.
Le fait de placer tes codes, m'incite à trop "me creuser la tête" pour découvrir exactement ce que tu souhaites.
Une PJ, même qui plante, est beaucoup plus parlante pour moi .

A te relire

René
 
Vote positif 0 Vote négatif
Re : Report donnees planning

Bonsoir MISTERJUNGLE,

Lorsque j'ouvre ton fichier, il plante, car tu as deux fois "Private Sub Worksheet_Change"


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:AF50")) Is Nothing Then
onglet = Cells(x, 1)
lejour = Format(Cells(4, y), "dd/mmmm/yyyy")
Sheets(onglet).Cells(y + 2, 6) = Cells(x, y)
Sheets(onglet).Cells(y + 2, 1) = lejour
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$4" Then Exit Sub
Application.ScreenUpdating = False
Columns("B:NB").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NB").Hidden = False
Case "Janvier"
Columns("B:AF").Hidden = False
Case "Février"
Columns("AG:BH").Hidden = False
Case "Mars"
Columns("BI:CM").Hidden = False
Case "Avril"
Columns("CN😀Q").Hidden = False
Case "Mai"
Columns("DR:EV").Hidden = False
Case "Juin"
Columns("EW:FZ").Hidden = False
Case "Juillet"
Columns("GA:HE").Hidden = False
Case "Août"
Columns("HF:IJ").Hidden = False
Case "Septembre"
Columns("IK:JN").Hidden = False
Case "Octobre"
Columns("JO:KS").Hidden = False
Case "Novembre"
Columns("KT:LW").Hidden = False
Case "Décembre"
Columns("LX:NB").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub


Tu peux essayer comme ceci.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:AF50")) Is Nothing Then
onglet = Cells(x, 1)
lejour = Format(Cells(4, y), "dd/mmmm/yyyy")
Sheets(onglet).Cells(y + 2, 6) = Cells(x, y)
Sheets(onglet).Cells(y + 2, 1) = lejour
End If
If Target.Address <> "$A$4" Then Exit Sub
Application.ScreenUpdating = False
Columns("B:NB").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NB").Hidden = False
Case "Janvier"
Columns("B:AF").Hidden = False
Case "Février"
Columns("AG:BH").Hidden = False
Case "Mars"
Columns("BI:CM").Hidden = False
Case "Avril"
Columns("CN😀Q").Hidden = False
Case "Mai"
Columns("DR:EV").Hidden = False
Case "Juin"
Columns("EW:FZ").Hidden = False
Case "Juillet"
Columns("GA:HE").Hidden = False
Case "Août"
Columns("HF:IJ").Hidden = False
Case "Septembre"
Columns("IK:JN").Hidden = False
Case "Octobre"
Columns("JO:KS").Hidden = False
Case "Novembre"
Columns("KT:LW").Hidden = False
Case "Décembre"
Columns("LX:NB").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub

Je n'arrive pas à tester car tu as des références que je n'ai pas installées sur mon Excel.

Testes et dis-nous

A+

René
 
Vote positif 0 Vote négatif
Re : Report donnees planning

Re,


As tu bien laissé les déclarations "Public" et le "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" ??

Public x, y As Long
Public onglet As String
Public lejour As Date

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
End Sub


Le "Private Sub Worksheet_SelectionChange(ByVal Target As Range)" te donnes la position de la ligne et de la colonne selectionnée .
Si tu l'as enlevé, X=0 donc ligne = 0 et provoque une erreur !

A+

René
 
Vote positif 0 Vote négatif
Re : Report donnees planning

Re_néné06,
oui j'ai bien mis les déclarations "public"
Public x, y As Long
Public onglet As String
Public lejour As Date

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
x = ActiveCell.Row
y = ActiveCell.Column
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:AF50")) Is Nothing Then
onglet = Cells(x, 1)
lejour = Format(Cells(4, y), "dd/mmmm/yyyy")
Sheets(onglet).Cells(y + 2, 6) = Cells(x, y)
Sheets(onglet).Cells(y + 2, 1) = lejour
End If
If Target.Address <> "$A$4" Then Exit Sub
Application.ScreenUpdating = False
Columns("B:NB").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NB").Hidden = False
Case "Janvier"
Columns("B:AF").Hidden = False
Case "Février"
Columns("AG:BH").Hidden = False
Case "Mars"
Columns("BI:CM").Hidden = False
Case "Avril"
Columns("CN😀Q").Hidden = False
Case "Mai"
Columns("DR:EV").Hidden = False
Case "Juin"
Columns("EW:FZ").Hidden = False
Case "Juillet"
Columns("GA:HE").Hidden = False
Case "Août"
Columns("HF:IJ").Hidden = False
Case "Septembre"
Columns("IK:JN").Hidden = False
Case "Octobre"
Columns("JO:KS").Hidden = False
Case "Novembre"
Columns("KT:LW").Hidden = False
Case "Décembre"
Columns("LX:NB").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub

mais il me bloque sur "Private Sub Worksheet_SelectionChange"
ci joint une capture
merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Report donnees planning

Re_néné06,
me voila, ta formule marche bien.elle s'enregistre bien sur la feuille concernée,par contre lorsque je supprime un"CP" créer auparavant,il me conserve la date sur la feuille horaire? Comment faire pour quelle soit supprimé automatiquement
PJ_merci
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Report donnees planning

Re,

J'ai rajouté "If Cells(x, y) = "" Then Sheets(onglet).Cells(y + 2, 1) = "" " dans le Private Sub Worksheet_Change(ByVal Target As Range), qui efface la date.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:AF50")) Is Nothing Then

onglet = Cells(x, 1)
lejour = Format(Cells(4, y), "dd/mmmm/yyyy")
Sheets(onglet).Cells(y + 2, 6) = Cells(x, y)
Sheets(onglet).Cells(y + 2, 1) = lejour
If Cells(x, y) = "" Then Sheets(onglet).Cells(y + 2, 1) = ""

End If
End Sub


Regardes si c'est OK ?

A+

René
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Report donnees planning

Bonsoir néné06,
voila de retour a la maison, c'est encore super.
par contre comment ce fait il que sur mon planning, quand je le prévois par "cycle" il n'en tient pas compte, même si les cellules
changent ? il faut que je réinscrive par dessus pour la prise en compte
 
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

A
  • Question Question
XL 2013 Création de planning en 3x8 pour 11 agents
Réponses
0
Affichages
184
Atexide
A
A
  • Question Question
XL 2013 Création d'un planning en 3x8 sur l'année 2026
2
Réponses
29
Affichages
1 K
Atexide
A
M
  • Question Question
Google Sheets Formule à rallonge avec conditions
Réponses
13
Affichages
370
Moreno076
M
A
  • Question Question
XL pour MAC Formatage de fichiers de coordonnées
Réponses
10
Affichages
492
agnesd
A
S
  • Question Question
XL 2013 Copier automatiquement des données dans plusieurs onglets
Réponses
4
Affichages
683
Phil69970
Phil69970
Wayat
  • Question Question
XL 2019 Date et mise en forme conditionnelle
Réponses
5
Affichages
914
fanfan38
fanfan38
D
  • Question Question
XL 2021 report automatique de donnees
Réponses
3
Affichages
435
DomL
D
A
  • Question Question
Microsoft 365 Tri sur feuille protégée +Aide protection de données déjà saisies
Réponses
2
Affichages
528
TooFatBoy
TooFatBoy
W
  • Question Question
XL 2016 Joindre par mail un fichier.pdf personnalité selon le prénom trouvé dans le titre du pdf
Réponses
10
Affichages
1 K
TooFatBoy
TooFatBoy
jeff1494
  • Question Question
XL 2021 Besoin de conseils pour une sélection de multiples éléments
2
Réponses
18
Affichages
2 K
jeff1494
jeff1494
L
  • Résolu(e)
XL 2019 planning periodique / employe
2 3
Réponses
32
Affichages
2 K
Lionel69890
L
P
  • Résolu(e)
XL 2016 Planning...Total heures semaine
Réponses
10
Affichages
959
Hubert1959
H
T
  • Question Question
Microsoft 365 Vérifications et simplifications de Macro
Réponses
2
Affichages
644
TAL
T
S
  • Question Question
XL 2013 planning : récupérer le nom de la feuille pour l'inclure dans une formule
Réponses
6
Affichages
1 K
shushen
S
A
  • Question Question
XL 2019 Fonction "Rang" avec des cellules vides
Réponses
7
Affichages
1 K
Astyanax
A
P
  • Question Question
XL 2016 comptage de cases contigües selon critères
2
Réponses
25
Affichages
2 K
PiLVaLK
P
jeff1494
  • Question Question
XL 2021 Orientation d'une image dans le commentaire d'une cellule
2 3
Réponses
42
Affichages
3 K
AtTheOne
AtTheOne
C
  • Question Question
XL 2016 rapatrier des informations en "scannant" les onglets d'un fichier excel vers les cellules d'un autre onglet
Réponses
6
Affichages
882
job75
job75
D
  • Question Question
XL 2019 Vue d'ensemble (planning) de l'activité d'une équipe sur l'année
Réponses
12
Affichages
1 K
Doublenico79
D
C
  • Résolu(e)
XL 2021 Liste dans liste
2 3
Réponses
36
Affichages
3 K
TooFatBoy
TooFatBoy
Retour