VBA Texte en fond de cellule

Version imprimable

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:

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

06/03/2020, 04h50
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.:weird:
le système semble opérationnel, mais ne pas fonctionner selon vos souhaits ou du moins vos explications.
Cordialement 8-)
06/03/2020, 08h28
Menhir

Citation:

Envoyé par Bri12345

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.
06/03/2020, 14h17
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.
06/03/2020, 14h55
Transitoire

Re bonjour, vous dites:

Citation:

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.

Citation:

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 8-)
06/03/2020, 15h02
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.
06/03/2020, 15h14
Transitoire

Citation:

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 8-)
06/03/2020, 16h18
Bri12345

Oui c'est exactement cela.

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.
06/03/2020, 17h07
jean_2940

moi je définirais une plage nommée avec les cellules d4, d8 et d13 que tu nommes comme tu veux.
Pour l'exemple je l'appelle "MaPlage" et dans ton code tu remplace "d4:d4" par le nom de cette plage

Code:

If Not Application.Intersect(Range("MaPlage"), Target) Is Nothing Then

essayez donc celà:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And Target.Row = 4 Or Target.Row = 18 Or Target.Row = 19 Then
     If Application.Intersect(Range("d4"), Range("d18"), Range("d19")) Is Nothing Then
        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
    Else
    End If
End Sub

Cordialement 8-)

06/03/2020, 17h25
Bri12345

Désolé mais cela bloque à

Code:

If Target = "" Then

et fonctionne seulement en d4 comme avant.
06/03/2020, 17h32
Bri12345

Wow merci!

J'ai juste perdu la couleur par contre qui étais là avant ?

Citation:

Envoyé par jean_2940

moi je définirais une plage nommée avec les cellules d4, d8 et d13 que tu nommes comme tu veux.
Pour l'exemple je l'appelle "MaPlage" et dans ton code tu remplace "d4:d4" par le nom de cette plage

Code:

If Not Application.Intersect(Range("MaPlage"), Target) Is Nothing Then
06/03/2020, 17h35
Transitoire

C'est très étrange, chez moi cela fonctionne impeccablement:weird: