XL 2013 (RESOLU) Gestion automatique des indications de saisie dans les cellules

chaelie2015 · 29 Janvier 2024

Bonsoir Forum
J'ai une plage de cellules de B5 à B14. Mon objectif est d'afficher automatiquement un texte de fond gris dans ces cellules pour informer l'utilisateur qu'il doit renseigner ces cellules. Lorsque je saisis du texte dans une cellule, le texte de fond gris disparaît. En cas de suppression du texte saisi, le texte de fond gris réapparaît automatiquement.
Ci joint le fichier exemple.
Merci

job75 · 29 Janvier 2024

Bonsoir chaelie2015,

Les textes sont mémorisés en colonne C (masquée) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With [B5:B14] 'à adapter
    .Font.ColorIndex = xlAutomatic
    For Each c In .Cells
        If c.Text = "" Or c.Text = c(1, 2) Then c(1, 2).Copy c
    Next
End With
Application.EnableEvents = True
End Sub

A+

job75 · 29 Janvier 2024

Bonsoir chaelie2015,

Les textes sont mémorisés en colonne C (masquée) :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
Application.ScreenUpdating = False
Application.EnableEvents = False
With [B5:B14] 'à adapter
    .Font.ColorIndex = xlAutomatic
    For Each c In .Cells
        If c.Text = "" Or c.Text = c(1, 2) Then c(1, 2).Copy c
    Next
End With
Application.EnableEvents = True
End Sub

A+

chaelie2015 · 30 Janvier 2024

Bonjour Job
Il vaut mieux tard que jamais. Merci pour votre réponse, elle est parfaite.
A+

XL 2013 (RESOLU) Gestion automatique des indications de saisie dans les cellules

chaelie2015

XLDnaute Accro

Pièces jointes

job75

job75

XLDnaute Barbatruc

Pièces jointes

chaelie2015

XLDnaute Accro

Discussions similaires