Code texte par defaut dans cellules fusionnees

[Ilino]

Forum bonsoir
j'ai trouvé ce code

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Range("A8:A30"), Target) Is Nothing And Target.Count = 1 Then
  If Target.Value = "" Then Target.Value = "En cours."
End If
End Sub

je souhaite l4appliquer sur des cellules fusionnées A8 = (A8:C8)

 

[Ilino]

Re : Code texte par defaut dans cellules fusionnees

Forum Bonjour
ci joint la solution a mon souci

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'----TEXT PAR DEFAUT DANS LA CELLULE
    If Target.Address = "$A$8" Then
        If Target.Value = "En cours." Then Target.Value = ""
    ElseIf Range("A8").Value = "" Then
        Range("A8").Value = "En cours."
    End If
'----
End Sub

GRAZIE

 

[job75]

Re : Code texte par defaut dans cellules fusionnees

Bonjour Ilino,

Avec une SelectionChange, si A8:C8 sont fusionnées, Target.Address n'est jamais égal à "$A$8".

A+

 

[Ilino]

Re : Code texte par defaut dans cellules fusionnees

BONJOUR jOB
MERCI POUR LA REMARQUE
MAIS LE CODE IL EST FONCTIONNEL DANS MON CLASSEUR😕😕

 

[job75]

Re : Code texte par defaut dans cellules fusionnees

Re,

Ton code est "fonctionnel" bien sûr mais il ne fait rien d'autre que ce que fait cette macro :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If [A8] = "" Then [A8] = "En cours."
End Sub

puisque l'instruction qui suit If Target.Address = "$A$8" Then n'est jamais exécutée.

A+