Bonjour,

Je cherche à reproduire une cellule de couleur avec l'inscription "Écrire ici" sur plusieurs cellule de ma page.

J'ai trouvé le code suivant , mais si je le reproduit pour une 2e cellule plus rien ne fonctionne.

Après tellement de recherche et d'essai sur internet , je fais appel à vos connaissances.

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
17
18
19
Private Sub Worksheet_Change(ByVal Target As Range)
    'Range("A1:A10") représente la zone où tu veux que le texte s'affiche
    If Not Application.Intersect(Range("d4:d4"), Target) Is Nothing Then                                 mon souhait est d'ajouter 3 autres cellules ailleurs dans la même feuille
        Application.EnableEvents = False
        If Target = "" Then
            With Target
                .Font.ColorIndex = 41
                .Interior.ColorIndex = 36
                .Value = "Écrire ici svp"
            End With
        Else
            With Target
                .Font.ColorIndex = 0
                .Interior.ColorIndex = 0
            End With
        End If
        Application.EnableEvents = True
    End If
End Sub