Discussion :

[Bri12345]

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

[Transitoire]

Bonjour, il faudrait mieux expliquer ce que vous voulez, car je n'ai pas bien compris et c'est difficile de vous aider dans de telles conditions.
le système semble opérationnel, mais ne pas fonctionner selon vos souhaits ou du moins vos explications.
Cordialement

[Menhir]

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

Quand tu dis "plus rien ne fonctionne", est-ce que ça veut dire "la macro ne produit plus l'effet voulu" ?

Parce que ta première ligne de code (celle avec Intersect) commence par vérifier si la cellule concernée est la D4 et, si ce n'est pas le cas, ne fait rien.
Il est donc normal que ça ne fonctionne que pour une seule cellule.

[Bri12345]

Bonjour,

Ma VBA doit inscrire idéalement "Écrire ici" dans les cellulles D4, D18 et D19 de mon formulaire.

Alors aussitôt que je met une autre variable tel que "D4" or "d18" et bien même la cellule D4 ne fonctionne plus.

Donc je veux que ma VBA fonctionne sur 3 cellules sans aucun lien entre elle.

[Transitoire]

Re bonjour, vous dites:

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.

Ma VBA doit inscrire idéalement "Écrire ici" dans les cellulles D4, D18 et D19 de mon formulaire.
Alors aussitôt que je met une autre variable tel que "D4" or "d18" et bien même la cellule D4 ne fonctionne plus.
Donc je veux que ma VBA fonctionne sur 3 cellules sans aucun lien entre elle.

Déjà vous devriez nous dire quelle est l'évènement précis qui doit déclencher l'écriture des trois cellules. Ensuite j'imagine que l'utilisateur doit venir écrire quelque chose dans les trois cellules et que celles-ci doivent redevenir normales puisque remplies?
Sinon nous ne pourrons pas vous aider, si vous n'êtes pas plus précise.
Cordialement

[Bri12345]

Donc ma cellule serait vide avec l'inscription "Écrire ici" et un surligner de couleur.

À l'ouverture du fichier, le libellé "écrire ici" est là.

Lorsqu'on écrit quelque chose dans la cellule disons D4 le libellé disparaît pour ce que j'inscrit.

Si on efface notre texte le "Écrire ici" doit réapparaître.

Ma VBA fonctionne si j'ai une seule cellule soit le D4 dans mon exemple.

J'ai essayé avec des "call" et d'autres formulation et je n'arrive pas à avoir ce même résultat mais reproduit à 3 endroits différent de mon formulaire et je précise aucun lien entre eux. C'est vraiment 3 choses indépendantes.

[Transitoire]

Donc ma cellule serait vide avec l'inscription "Écrire ici" et un surligner de couleur.
À l'ouverture du fichier, le libellé "écrire ici" est là.
Lorsqu'on écrit quelque chose dans la cellule disons D4 le libellé disparaît pour ce que j'inscrit.
Si on efface notre texte le "Écrire ici" doit réapparaître.
Ma VBA fonctionne si j'ai une seule cellule soit le D4 dans mon exemple.
J'ai essayé avec des "call" et d'autres formulation et je n'arrive pas à avoir ce même résultat mais reproduit à 3 endroits différent de mon formulaire et je précise aucun lien entre eux. C'est vraiment 3 choses indépendantes.

Voyons si j'ai bien compris:
Vous ouvrez le fichier, les cellules D4;D18 et D19 sont en format spécial avec écris le texte "Écrire ici" dedans et vous voudriez que l'utilisateur écrive quelque chose dedans et que sans doute le format redevienne neutre.
Si jamais vous effacez le texte écris, on retourne au format spécial.
Est-ce bien cela?
Cordialement