Discussion :

[maximob]

Bonjour à tous

je sollicite votre aide pour obtenir le mois courant dans la cellule E6 si C6 est en jaune. 'AVRIL'
si j'ouvre ce fichier en mois de MAI et que je colorie la cellule C7 je dois avoir le mois de MAI en C7. et ainsi de suite....


voici mon fichier exemple :

[joe.levrai]

Bonjour,

le VBA n'est pas nécessaire, ça dépend de ce qui est ensuite fait avec cette cellule

voici une exemple trivial :

- j'ai écris cette formule : =MOIS(AUJOURDHUI()) , elle donne le mois en cours au format chiffres
- j'ai appliqué un format personnalisé : "mmmm" , elle affiche le mois en cours en toute lettre
- j'ai mis la couleur de caractère en blanc, ce qui donne l'impression que la cellule est vide

dès que tu vas colorier ta cellule, tu verras apparaître le mois

[eric4459]

Bonsoir,
tu peux essayer ceci en VBA:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
If Range("C6").Font.ColorIndex <> 2 Then
Range("E6") = Month(Now)
End If
End Sub

Eric

[maximob]

merci les amis , mais moi je cherche à ce que j’obtienne le résultat en E6 pour la ligne 6, en E7 pour la ligne 7 et ainsi de suite...

[joe.levrai]

Bonjour,

n'ayant toujours pas le contexte d'utilisation de cette fonctionnalité, voici une autre proposition.

Le code est à coller directement dans le module de la feuille où tu veux que ça s'applique
Le déclenchement s'effectue par un double-clic n'importe où dans la feuille

Si une cellule de la colonne C est coloriée, la cellule en E reçoit le mois en toutes lettres
Sinon, la cellule en E est effacée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Cell As Range
 
    For Each Cell In UsedRange.Columns(3).Cells
        If Cell.Interior.ColorIndex <> -4142 Then
            Cell.Offset(0, 2) = Format("01/" & Month(Now), "mmmm")
        Else
            Cell.Offset(0, 2) = ""
        End If
    Next Cell
 
    ' désactive l'action du double-clic
    Cancel = True
 
End Sub

[maximob]

merci c'est résolu mais partiellement , car une fois je fais double clic ça me donne AVRIL (mois courant ) mais quand j'ai changé de mois pour tester les cellules ayant le mois AVRIL ont changé aussi, je cherche à ce qu'elles gardent le premier mois déclenché par le le premier double clic, c'est à dire en mai je dois avoir les cellules qui ont le mois d'avril + celles qui seront générés par le nouveau double clic pour avoir MAI. ET merci encore...