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

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-re-re-bonsoir,

Tu ne sais donc pas bien lire ?

Il te suffit de comparer les 2 codes et tu verras les différences...

J'ai rajouté (1) à Target, ce qui donne Target(1) et qui ne prend en compte que la 1° cellule de la plage sélectionnée (dans les cellules fusionnées, le curseur est sur plusieurs cellules à la fois). C'est pour cette raison que tu avais l'erreur 13.

Ensuite, j'ai rajouté le Exit Sub car si Target vérifie une condition, elle ne vérifiera pas les suivantes et pour éviter tout conflit, il vaut mieux terminer la macro après traitement de la condition vérifiée.

A+

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Salut
Merci pour les éclaircissements, si vous permettez dernière question ;😱
J’ai protège la feuille mais sans verrouiller ces cellules j’ai un message d’erreur « erreur d’exécution « 1004 » que dois je faire dans ce code ???
Bug au niveau : Target(1).Font.Color = RGB(216, 216, 216)

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-bonsoir,

Lorsque tu protèges ta feuille, il te faut cocher la case "Format de cellule".

A+

 

[Ilino]

Re : rappel du texte dans cellules fusionnées

Re salut
SUPER ...... OUFFFFFFFFFF en fin
Bonne nuit et un good week end my friend FREDOO
Grazie

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Dis-moi Fred0o, si on voulait que le texte redevienne noir dès qu'on tape la première lettre d'un nom, prénom ou fonction.

Est-ce possible avec cette construction de code ??


G

 

[Fred0o]

Re : rappel du texte dans cellules fusionnées

Re-bonsoir

@Gelinotte : A ma connaissance, avec les procédures évènementielles de Worksheet, ce n'est pas possible. Pour faire cela, il faudrait passer par un USF et des TextBox.

A+

 

[Gelinotte]

Re : rappel du texte dans cellules fusionnées

Bonsoir,

Ça aurait été intéressant dans ce projet.

Merci


G