(RESOLUT)Valeur par défaut dans une colonne

[chaelie2015]

Bonjour Forum
ci dessous un code qui fait la valeur"Non" par défaut dans une cellule seulement; je souhaite le généraliser dans une colonne W81 - W111(la cellule W est fusionnée avec X)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$W$81" Then
        If Target.Value = "Non" Then Target.Value = ""
    ElseIf Range("W81").Value = "" Then
        Range("W81").Value = "Non"
    End If
End Sub

Salutations

 

[Paf]

Re : Valeur par défaut dans une colonne

Bonjour,

à tester

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("W81:W111")) Is Nothing And Target.Count = 1 Then _
   Target.Value = IIf(Target.Value = "", "Non", "")
End Sub

A+

Edit :
pour que ça fonctionne avec les cellules fusionnées:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("W81:W111")) Is Nothing Then _
   Target.Cells(1, 1) = IIf(Target.Cells(1, 1) = "", "Non", "")
End Sub

 

[chaelie2015]

Re : Valeur par défaut dans une colonne

Bonjour,

à tester

Edit :
pour que ça fonctionne avec les cellules fusionnées:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   If Not Intersect(Target, Range("W81:W111")) Is Nothing Then _
   Target.Cells(1, 1) = IIf(Target.Cells(1, 1) = "", "Non", "")
End Sub

Bonjour PAF
merci pour la réponse ça fonctionnais parfaitement mais je souhaite que le NON s'affiche automatiquement une fois je vide la cellule
Salutations