MFC avec saisie automatique

Bonjour, tout le monde

J'ai un soucis que je présente sur le forum comme suit:

Je souhaite affecter automatiquement une lettre "R" aux cellules ayant une mise en forme conditionnelle.

Merci d'avance.

bonjour,

voici

Désolé de ne pas joindre le classeur par omission.

h2so4 a écrit :

bonjour,

Message reçu, merci.

bonjour,

une proposition

Sub Remplissage_Repos()
    Dim ma_range, cell As Range
    Set ma_range = Range("D11:AF18")
    For Each cell In ma_range
        If cell.DisplayFormat.Interior.Color = 9359529 Then
            cell.Value = "R"
        End If
    Next
End Sub

tu peux aussi simplement utiliser la formule de mise en forme conditionnelle dans les cellules de ton tableau

par exemple pour E11

=SI(JOURSEM(E$9)=1;"R";"")

h2so4 a écrit :

bonjour,

une proposition

Sub Remplissage_Repos()
    Dim ma_range, cell As Range
    Set ma_range = Range("D11:AF18")
    For Each cell In ma_range
        If cell.DisplayFormat.Interior.Color = 9359529 Then
            cell.Value = "R"
        End If
    Next
End Sub

C'est magique, merci.

Bonjour

Pour tester une couleur obtenue par MFC

cellule.DisplayFormat.Interior.Color

Mais je trouve extrêmement curieuse ta façon de colorer les cellules avec 7 MFC donc l'utilisation que tu en fais n'apporte rien par rapport à du manuel...

Edit Sorry, j'avais oublié de valider d'où mon retard à l'allumage !

78chris a écrit :

Mais je trouve extrêmement curieuse ta façon de colorer les cellules avec 7 MFC donc l'utilisation que tu en fais n'apporte rien par rapport à du manuel...

Si tu peux apporter des modifications aux 7 MFC ça sera génial de ta part.

cordiallement.

78chris a écrit :

Mais je trouve extrêmement curieuse ta façon de colorer les cellules avec 7 MFC donc l'utilisation que tu en fais n'apporte rien par rapport à du manuel...

tu m'as inspiré une idée et j'ai modifié la MFC pour toute la zone en une seule ligne et c'est fonctionnel.

J'ai saisi le rang du jour de repos dans la colonne C et le tour est joué.

Encore une fois, Merci.