Planning avec mfc

[Regueiro]

Bonsoir le Forum.
Petite question :
Est-il possible de rupérer la valeur d'une cellule par MFC.
Exemple :

=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.

 

[job75]

Re : Planning avec mfc

Bonjour Regueiro,

Ajoutez la 3ème et 5ème ligne :

Set Cell = Range("K12")
li = Cell.Row: Col = Cell.Column
Range(Cells(li - 1, Col), Cells(li, Columns.Count)).ClearContents 'RAZ
For i = Début To Fin
  Cells(li - 1, Col) = Application.Proper(Left(Format(i, "ddd"), 2))
  Cells(li, Col) = i
  '----
Next

A+

 

[Regueiro]

Re : Planning avec mfc

Bonjour à Tous
Bonjour JOB75
Je te remercie pour ton aide:
Je vous joint mon fichier pour voir l'avancement de mon programme.
J'ai encore quelque soucis.
Par exemple en K9 = Insérer le mois en cours le centrer sur plusiseur colonne ou fusionnée ?
En K10 Le N° de la semaine OK
Mais j'aimerais que la couleur de fond se fasse par MFC à mettre en VBA
Par exemple avec cette formule qui marche.

 =MOD(ENT((COLONNE()+3)/7);2)<>1

Merci de votre contribution.
Chez moi le remplissage du planning est très lent.
Peut-on l'améliorer pour augmenter la vitesse ?
A+

 

[Regueiro]

Re : Planning avec mfc

Bonsoir à Tous.
Concernant la fusion des mois en K9, j'ai trouver la parade
en lançant une SUB FUSION.
Code :

Sub FUSION()
'Fusionner les Cellules en "K9"
    Dim ColFin, Début, Fin
    Application.DisplayAlerts = False
   
    ColFin = Range("K9").End(xlToRight).Column 'Numéro de la dernière colonne remplie en ligne 1
   Fin = 2
    
    For c = 1 To ColFin
        Début = c
        
        Do While Cells(9, Début).Value = Cells(9, Fin).Value
           Fin = Fin + 1
            If Fin > ColFin Then Exit Do
       Loop

        Range(Cells(9, Début), Cells(9, Fin - 1)).Merge 'Fusionne
       Range(Cells(9, Début), Cells(9, Fin - 1)).HorizontalAlignment = xlCenter
        c = Fin - 1 'Pour repartir à la prochaine valeur après la fusion et pas faire 1, 2, 3, etc. mais si fusion de 1 à 3 alors ensuite on passe à 4
       'Je mets -1 car le Next fait ensuite +1 on se retrouve bien en Fin donc 1ère colonne de la nouvelle valeur à fusionner
   Next
End Sub

Par contre je ne trouve pas encore la solution pour que la fusion commence en K9.
Il me reste encore quelques codes à améliorer.
Par exemple le code pour la MAZ, pour enlever les fusions de cellules, etc.
Mon fichier n'est plus lent j'ai rajouter.
Code :

Au Début
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With

Et à la Fin
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    End With

Et encore un petit problème en K10 à la fin le Resize ne marche pas.
MErci de votre contribution.
A+

 

[Regueiro]

Re : Planning avec mfc

Bonsoir à Tous.
Et hop une petite relance sur mon Post N°33 😡
Il vont dire il est Ch.... celui-là.
Encore Merci de vous arrêtez 5 minutes.
A+
Salutations

 

[Regueiro]

Re : Planning avec mfc

Bonsoir à tous.
Problème rėsolu.
Merci de votre contribution.
Spėcialement à Job75
À+
Le fichier sur demande ? ??
Ainsi je pourrais voir les vrais intéressé

 

[Regueiro]

Re : Planning avec mfc

Bonsoir à Tous
Je reviens sur mon Planning automatique.
J'arrive gentillement à mes fins.

Dans mon code ci-dessous, je veux affecter une formule à une plage ZonePlanning
uniquement Si dans la plage correspondante = Code
il y a la valeur P1

Car j'aimerais ensuite si valeur = P2
Lui affecter également une autre formule.

For Each Cell In Range("Code")
If Cell.Value Like "P1" Then
'ZonePlanning.Select
With Selection
.FormulaLocal = "=SI(ET($H13=""P1"";K$12=$I13);""q"";" & _
"SI(ET($H13=""P1"";K$12=$J13);""q"";" & _
"SI(ET($H13=""P1"";K$12>$I13;K$12<$J13);""´´"";"""")))"


For Each o In Selection
If o Like "q" Then
o.Font.Name = "Wingdings 3"
o.Font.Size = 10
o.Font.ColorIndex = 3
End If

If o Like "´´" Then
o.Font.Name = "Wingdings 3"
o.Font.Size = 11
o.Font.ColorIndex = 1
End If
Next o
End With
End If


Next

Petit Appel à

Pour Daniel1949
Bonjour,
Je me disais en regardant le jalon : "Tiens tiens un petit air de déjà vu (ou plutôt déjà fait) !!!". Maintenant, j'attends les réponses à votre demande MFC pour les adapter à "l'original".;o)

Je vous joint mon fichier.
Pour lancer le Planning = Click bouton bleu
Merci
A+

 

[Regueiro]

Re : Planning avec mfc

Bonjour à Tous.
J'ai modifier mon fichier de la façon Suivante :
Le coloriage du planning se fait automatiquement avec une procédure évenementielle du type

Private Sub Worksheet_Change(ByVal Target As Range)

Que j'ai mis dans la feuille " PLANNING AUTO "
Celle-ci se déclenche lors d'une modification dans la plage nommée "Code"
Cette procécure marche bien.
Mais lorsque je tape sur une autre cellule en dehors de ma zone nommée,
la procédure se déclenche, également.
Comment puis-je régler ce problème.
Je vous joint le fichier.
Merci
A+

 

[Regueiro]

Re : Planning avec mfc

Re bonsoir à tous
J'ai résolu le problème.
Je continue dans mes pérégrinations pour la suite de mon programme.
Je vais certainement revenir vous consulter 😉
Apparamment beaucoup de consultation, mais très peu d'aide.
A+
Je vous joint quand même le fichier.
Et si une personne aurait des idées ou améliorations, je suis preneur.