j'ai une liste sur une feuille Excel qui a une colonne
servant à cocher l'item correspondant et j'aimerais
que l'ancien cochage soit automatiquement éffacé
lorsque une autre option est sélectionnée
(analogue aux button à cocher dans une userforme).
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JeNeVois
P.S. Peut-être le terme "cocher" prête à confusion, il serait plus juste de dire "marquer"
Bonjour,
j'ai une liste sur une feuille Excel qui a une colonne servant à cocher l'item correspondant et j'aimerais que l'ancien cochage soit automatiquement éffacé lorsque une autre option est sélectionnée (analogue aux button à cocher dans une userforme).
Merci pour toute réponse
Salutations
P.S. Peut-être le terme "cocher" prête à confusion, il serait plus juste
de dire "marquer"
Bonjour,
j'ai une liste sur une feuille Excel qui a une colonne
servant à cocher l'item correspondant et j'aimerais
que l'ancien cochage soit automatiquement éffacé
lorsque une autre option est sélectionnée
(analogue aux button à cocher dans une userforme).
P.S. Peut-être le terme "cocher" prête à confusion, il serait plus juste de dire "marquer"
Bonjour,
j'ai une liste sur une feuille Excel qui a une colonne servant à cocher l'item correspondant et j'aimerais que l'ancien cochage soit automatiquement éffacé lorsque une autre option est sélectionnée (analogue aux button à cocher dans une userforme).
Merci pour toute réponse
Salutations
Youky
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub Application.EnableEvents = False Columns("H:H").ClearContents Target.Value = "X" Application.EnableEvents = True End Sub
Rectifier 8 et H:H selon la colonne Amicalement Youky
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
Application.EnableEvents = False
Columns("H:H").ClearContents
Target.Value = "X"
Application.EnableEvents = True
End Sub
Rectifier 8 et H:H selon la colonne
Amicalement
Youky
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub Application.EnableEvents = False Columns("H:H").ClearContents Target.Value = "X" Application.EnableEvents = True End Sub
Rectifier 8 et H:H selon la colonne Amicalement Youky
JeNeVois
Bonsoir,
c'est parfait. Merci beaucoup et bonne soirée :)
Cordialement JeNeVois
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub Application.EnableEvents = False Columns("H:H").ClearContents Target.Value = "X" Application.EnableEvents = True End Sub
Rectifier 8 et H:H selon la colonne Amicalement Youky
Bonsoir,
c'est parfait. Merci beaucoup et bonne soirée :)
Cordialement
JeNeVois
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 8 Then Exit Sub
Application.EnableEvents = False
Columns("H:H").ClearContents
Target.Value = "X"
Application.EnableEvents = True
End Sub
Rectifier 8 et H:H selon la colonne
Amicalement
Youky
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 8 Then Exit Sub Application.EnableEvents = False Columns("H:H").ClearContents Target.Value = "X" Application.EnableEvents = True End Sub
Rectifier 8 et H:H selon la colonne Amicalement Youky
