rappel du texte dans cellules fusionnées

[Ilino]

Bonsoir
Je voudrais savoir comment faire un rappel de texte dans des cellules fusionnées au lieu une cellule
Ci-dessous le code mais je n’arrive pas a le faire avec des cellules fusionnées

Private Sub Worksheet_Change(ByVal Target As Range)
'----------- Colonne C : Nom
If Not Intersect(Target, Range("c3")) Is Nothing Then
If Target = "" Then Target = "Nom"
If Target = "Nom" Then
Target.Font.Color = RGB(216, 216, 216)
Else
Target.Font.Color = RGB(0, 0, 0)
End If
End If

'----------- Colonne D : PréNom
If Not Intersect(Target, Range("d3")) Is Nothing Then
If Target = "" Then Target = "Prénom"
If Target = "Prénom" Then
Target.Font.Color = RGB(216, 216, 216)
Else
Target.Font.Color = RGB(0, 0, 0)
End If
End If

'----------- Colonne E : Fonction
If Not Intersect(Target, Range("e3")) Is Nothing Then
If Target = "" Then Target = "Fonction"
If Target = "Prénom" Then
Target.Font.Color = RGB(216, 216, 216)
Else
Target.Font.Color = RGB(0, 0, 0)
End If
End If

End Sub
NB : j'ai pris le fil de VALTER
merci

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Re Bonsoir Forum
je ne sais pas si ma demande est explisive ?😕 ou bien c'est le week end?😱

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

30 minutes, juste le temps de mijotter un peu à feu doux 🙄

Quelles cellules sont fusionnées ?


G

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

SORRY ;
voila la cellule ou je veux mettre le text (comme arriere plan exemple "veuillez tappez le Nom" ) est c3: h3 au lieu c3
est possible avec le code VBA ci dessus

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Bonsoir Ilino,

En fait, j'ai testé ton code, il fonctionne en C3, D3, E3 et même si on fusionne C3:C4, D3😀4, E3:E4.

Je ne vois donc pas où es le problème, ni ce que tu veux. Je pense d'ailleurs ne pas être le seul. D'ailleurs, qu'entends-tu exactement par : "Rappel du texte" ?

A+

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Bonsoir FREDOO
Chez moi ça fonctionne pas « j’ai une erreur d’execution13 ….incompatibilité de type »
RAPPEL DU TEXTE = text comme Arriere plan dans la ou les cellules
merci

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Peux-tu me joindre ton fichier avec juste la feuille en question et des données anonymisées juste sur la plage C3:E5 ?

Ainsi, je pourrais re-tester.

A+

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Re
ok sans faute ci joint le fichier de Valter

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Un fichier qui reproduit le problème, ce serait bien comme le mentionne Fred0o.

Aussi as-tu essayé au début de la macro : On Error Resume Next ?


G

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Désolé mais même avec le fichier, je ne vois pas où es le problème. Il n'y a pas de cellule fucionnée dans le dernier fichier posté.

A+

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Il n'y a pas de cellule fusionnée et ça fonctionne bien quand on efface le texte, la mention grisée revient.

Dans la section Fonction, il y a une erreur de frappe, tu as laissé Prénom.

G

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Re bonsoir tous le monde
oui je sais
Essayez de fusionner les cellules C3 , D3 et E3 ?
ci joint le meme exemple

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Aussi, pour que la colonne Fonction fonctionne bien, j'ai dû effacer les mises en forme conditionnelle


G

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Si j'ai bien compris, voici la macro corrigée :

Private Sub Worksheet_Change(ByVal Target As Range)
    '----------- Colonne C : Nom
    If Not Intersect(Target, Range("c3:c42")) Is Nothing Then
        If Target(1) = "" Then Target = "Nom"
            If Target(1) = "Nom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
    '----------- Colonne D : PréNom
    If Not Intersect(Target, Range("d3:d42")) Is Nothing Then
        If Target(1) = "" Then Target = "Prénom"
            If Target(1) = "Prénom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
    '----------- Colonne E : Fonction
    If Not Intersect(Target, Range("e3:e42")) Is Nothing Then
        If Target(1) = "" Then Target = "Fonction"
            If Target(1) = "Prénom" Then
                Target(1).Font.Color = RGB(216, 216, 216)
            Else
                Target(1).Font.Color = RGB(0, 0, 0)
        End If
        Exit Sub
    End If
End Sub

A+

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Re bonsoir
je suis désolé et je sais que c'est fatiguant mais je vous dis que ça fonctionne tres bien sauf je vous demande de bien vouloir m'explique la difference entre ces deux code ( patie Nom seulement si c'est possible 😱)
grazie