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
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
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