(RESOLUT)Valeur par défaut dans une colonne

chaelie2015 · 29 Juin 2015

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)

Code:

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 · 29 Juin 2015

Re : Valeur par défaut dans une colonne

Bonjour,

à tester

Code:

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:

Code:

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 · 29 Juin 2015

Re : Valeur par défaut dans une colonne

Paf à dit:
Bonjour,

à tester

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

Code:

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

(RESOLUT)Valeur par défaut dans une colonne

chaelie2015

XLDnaute Accro

Paf

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

(RESOLUT)Valeur par défaut dans une colonne

chaelie2015

XLDnaute Accro

Paf

XLDnaute Barbatruc

chaelie2015

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency