Planning avec mfc

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
Regueiro

Regueiro

XLDnaute Impliqué
Bonsoir le Forum.
Petite question :
Est-il possible de rupérer la valeur d'une cellule par MFC.
Exemple :
Code: 
=SI(MOIS(J$19)<>MOIS(K$19);K$19;"")
En J19 = 31.10.2012
En K19 = 01.11.2012
S'applique à = =$K$15:$BG$15
Format MFC = Janvier 2012.
Merci de votre Aide.

PS : Je peux vous joindre mon fichier, je dois le purger et enlever pas mal de données confidentielle.
 
Trier par date Trier par votes
Re : Planning avec mfc

Bonjour Regueiro, camarchepas,

1) MFC (rouge) sur la plage M26:BI87 :

Code: 
=ET(MOD(LIGNE();3)=2;M$19>=$G26;M$19<=$H26)

2) Macro dans le code de la feuille :

Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A26:A200,F26:G200])
If Target Is Nothing Then Exit Sub
Dim plage As Range, col As Variant
Set plage = Range("M19", Cells(19, Columns.Count).End(xlToLeft))
Set Target = Intersect(Target.EntireRow, [H:H])
For Each Target In Target
  Intersect(Target.EntireRow, plage.EntireColumn).ClearComments
  col = Application.Match(Target, plage, 0)
  If IsNumeric(col) Then
    With Target(1, 5 + col)
      .AddComment Cells(Target.Row, 1).Text
      .Comment.Shape.TextFrame.AutoSize = True
      .Comment.Visible = True
    End With
  End If
Next
End Sub
J'ai effacé toute formule de la plage M26:BI87 et supprimé toutes les autres macros.

Fichier .xls joint.

A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Planning avec mfc

Re,

Sans doute faut-il 2 conditions pour la MFC, la 1ère rouge, la 2ème noire :

Code: 
=ET(MOD(LIGNE();3)=2;$F26<>"";M$19>=$G26;M$19<=$H26)

=ET(MOD(LIGNE();3)=2;$F26="";M$19>=$G26;M$19<=$H26)
C'est la colonne F ($F26) qui fait la différence.

Fichier (2).

Edit : j'en profite pour proposer une amélioration de la formule en H29 :

Code: 
=SERIE.JOUR.OUVRE(G29;MAX(F29-1;);Férié)
A+
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : Planning avec mfc

Re,

Pour peaufiner (et pinailler) un peu.

Avec le fichier précédent (où F32 est effacée), T32 est colorée en noir par la MFC.

Alors avec 3 conditions pour la MFC :

Code: 
=ET(MOD(LIGNE();3)=2;$F26<>"";M$19>=$G26;M$19<=$H26)

=ET(MOD(LIGNE();3)=2;$F26="";$G26<$H26;M$19>=$G26;M$19<=$H26)

=ET(MOD(LIGNE();3)=2;$F26="";$G26=$H26;M$19>=$G26;M$19<=$H26)
Sur Excel 2003 on ne pourra plus ajouter d'autres conditions.

Fichier (3).

A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonsoir à Tous.
Ton code pour les commentaires marche très bien.
Par contre j'aimerais mettre mes Case à la suite de ton code mais je n'arrive pas ?
Code :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, [A26:A200,F26:G200])
If Target Is Nothing Then Exit Sub
Dim plage As Range, col As Variant
Set plage = Range("M19", Cells(19, Columns.Count).End(xlToLeft))
Set Target = Intersect(Target.EntireRow, [H:H])
    For Each Target In Target
        Intersect(Target.EntireRow, plage.EntireColumn).ClearComments
        col = Application.Match(Target, plage, 0)
    If IsNumeric(col) And Target(1, 0) <= Target Then
        With Target(1, 5 + col)
        .AddComment Cells(Target.Row, 1).Text
        .Comment.Shape.TextFrame.AutoSize = True
        .Comment.Visible = True
        End With
    End If
    Next
    
    'Valeur en C26:C200
    'If Not Target Is Nothing And Target.Count = 1 Then
        Select Case Target.Value
        Case Is = "P1", "P2"
            Target.Offset(, -1).Resize(1, 4).Interior.ColorIndex = 1
            Target.Offset(, -1).Resize(1, 4).Font.ColorIndex = 2
            Target.Offset(, 2).IndentLevel = 0
        Case Is = "S1"
            Target.Offset(, 1).Value = "t"
            Target.Offset(, 1).Font.Name = "Wingdings"
            Target.Offset(, 2).IndentLevel = 1
            Target.Offset(, 1).Font.ColorIndex = 5          'Bleu Police Bleu
            Target.Offset(, -1).Font.ColorIndex = 2         'Police Blanc
            Target.Offset(, -1).Interior.ColorIndex = 5      'Bleu
        Case Is = "S2"
            Target.Offset(, 1).Value = "t"
            Target.Offset(, 1).Font.Name = "Wingdings"
            Target.Offset(, 2).IndentLevel = 1
            Target.Offset(, 1).Font.ColorIndex = 3      'Rouge
            Target.Offset(, -1).Interior.ColorIndex = 5      'Bleu

        Case Is = ""
            Target.Offset(, -1).Resize(1, 4).Value = ""
            Target.Offset(, -1).Resize(1, 4).Interior.ColorIndex = 0              'Blanc
            Target.Offset(, -1).Resize(1, 4).Font.ColorIndex = 1     'Rouge
            Target.Offset(, 2).IndentLevel = 0
        Case Else
            'Target.Interior.ColorIndex = 38 ' xlNone
        End Select
    
    'End If
    
    
End Sub
Merci pour votre Aide
A+
 
Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonjour Regueiro, le forum,

J'ai intégré votre code (basé sur la colonne C) dans le fichier (5) joint.

Il ne me paraît pas bien au point, mais là c'est à vous de voir.

J'ai ajouté "P1" et "P2" dans les listes de validation en C29:C41, juste pour voir...

Nota : ne pas oublier d'intégrer la plage C26:C200 dans cette ligne au début :

Code: 
Set Target = Intersect(Target, [A26:A200,C26:C200,F26:G200])
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonsoir à tous.
Job75 Merci pour ton aide.
Je l'ai rajouter sur mon fichier.
J'ai également rajouter un USF calendrier en colonne F mon insérer mes dates de début.

J'aurais encore besoin de votre aide pour quelques mises au point de mes MFC.
Premier :
En L17😛17, la date du 1er jour de la semaine
En Q17:R17, le N° de la semaine.
J'ai cette MFC pour colorier 2 cellules avec un pas de 2, mais je n'arrive pas à colorier les 2 premières cellules:
Code: 
=MOD(ENT((COLONNE()+7)/7);2)<>1
Deuxième :
Sur la ligne L15 à BH15
MFC pour trouver le 1er jour du mois :
Code: 
=SI(MOIS(K$19)<>MOIS(L$19);L$19;"")
J'aimerais qu'il colorie le mois et insérer également NOVEMBRE et fusionner jq dernier jour du mois.

Je vous joint mon fichier.
Merci.
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonjour Regueiro, le forum,

Pour colorer 29 OCT 2012, 05 NOV 2012... MFC sur L17:BH17 => =MOD(COLONNE()-12;7)=0

Pour la ligne 15 je passe, il faut encore faire du bricolage par macro.

Si vous voulez juste colorer novembre => =MOIS(L$19)=$F$14+1

Nota : pour le reste, le fichier ne correspond pas à celui que je vous ai fourni...

A+
 
Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonsoir Le Forum.
Bonsoir Job75, Merci pour ton aide.
Après quelques jour de repos, je reprends mon Planning.
J'ai récupérer sur le Web un fichier de Laurent Longre pour la création automatique d'un planning.
J'essaye de l'adapter pour mon utilisation.
Sur la Feuille 1 vous avez son exemple.
En feuille 2 mon adaptation.
J'aimerais copier en "C5" les valeurs de "A1" et "A2" pour créer automatiquement les dates.
Je récupère les dates de Début et de Fin par une MsgBox.
Je vous joint le fichier.
Pour info JOB75.
J'ai créer un nouveau fichier pour essayer de comprendre ce nouveau code,
que j'adapterais plus tard (après compréhension du code ) à mon fichier original.
Merci de votre Aide.
A+
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Planning avec mfc

Bonsoir le Forum
Je vous joint mon fichier :
Celui-ci crée automatiquement les dates comprises en début planning et fin de planning.
Ces dates sont renseignées en B2 et B3
Le planning prend en compte les dates en B8 = 1er jour de la semaine et B9 = dernier jour de la semaine.
Range de création du planning en K12
Voilà pour les explications.
Maintenant, petit problème :
J'aimerais créer en K11 vers la droite le JOUR.
Par exemple LU - MA - ME - etc.
Je ne sais plus quel code je dois faire.
Offset(-1,0) mais comment.
Egalement créer un bouton pour remise à zéro du planning.
C'est à dire effacement des valeurs, couleurs et largeur colonne à 10.
Merci de votre Aide
A+
Merci de votre Aide
 

Pièces jointes

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

Philarête
  • Question Question
XL pour MAC Mise en forme conditionnelle de cellules adjacentes en fonction du contenu d'une cellule
Réponses
8
Affichages
386
sylvanu
sylvanu
G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
903
GClaire
G
K
  • Question Question
XL 2013 MFC formule avec valeur cellule cible =aujourdhui()
Réponses
10
Affichages
588
kif
K
J
  • Question Question
XL 2021 Planning machine en fonction des équipes travaillées
Réponses
8
Affichages
1 K
Lolote83
L
oguruma
POWERQUERY :: LES DATES REMARQUABLES
Réponses
5
Affichages
659
oguruma
oguruma
T
  • Question Question
Microsoft 365 Planning de réservation de matériel (avec gestion des stocks) - Formules utiles ?
Réponses
7
Affichages
3 K
vgendron
vgendron
A
  • Résolu(e)
XL 2016 Décompte de valeurs précises avec bornage
Réponses
11
Affichages
2 K
albuqs
A
R
  • Question Question
XL 2019 Optimisation de longueur de barre en long multiple
Réponses
3
Affichages
4 K
Ryoken
R
E
  • Question Question
Microsoft 365 Jours de fermeture sur planning
Réponses
7
Affichages
2 K
ExcLnoob
E
K
  • Question Question
XL 2016 liee deux macro
Réponses
3
Affichages
1 K
Keran
K
M
  • Question Question
XL 2013 Somme par semaine
Réponses
5
Affichages
4 K
Mercenr
M
B
  • Question Question
Autres Réalisation d'un planning multicritères
Réponses
0
Affichages
862
babas
B
M
  • Question Question
MFC - Fonction min avec plusieurs critères.
Réponses
8
Affichages
2 K
Matt68524
M
S
  • Question Question
XL 2010 Filtre automatique par mois
Réponses
2
Affichages
2 K
BOISGONTIER
BOISGONTIER
D
  • Question Question
XL 2019 Fichier opérationnel, ou pas...
Réponses
11
Affichages
2 K
Dim.Reichart
D
P
  • Question Question
XL 2016 déplacer l'objet de ma recherche V
Réponses
10
Affichages
1 K
pburgos
P
L
  • Question Question
aide creation planning
Réponses
11
Affichages
2 K
le tophe
L
T
  • Question Question
XL 2016 Rechercher la bonnes données avec la même valeur présente .
Réponses
8
Affichages
1 K
Jocelyn
Jocelyn
O
  • Question Question
Planning - Durée auto fonction dates début et fin
2
Réponses
19
Affichages
5 K
Olivier44
O
S
  • Question Question
XL 2010 Moyenne de n cellule en décaler
Réponses
14
Affichages
3 K
saphya
S
Retour