Cases à cocher

Bonjour le forum,

En cours de construction d'une fiche avec des cases à cocher créé moi même, je joins un fichier exemple car je rancontre un bug des lors que l'on sélectionne 2 cases à cocher.

J'ai bien pensé ajouter un On error, qu'en pensez-vous ?

Pouvez-vous m'apporter de l'aide la dessus ?

Merci

Cdlt

pompaero

11case-a-cocher.xlsm (14.43 Ko)

bonjour,

Mettre la poussière sous le tapis n'est jamais une bonne solution.

Met plutôt une condition Target.Count = 1

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isect, O As Range
   If Target.Count = 1 Then
       Set isect = Application.Intersect(Target, [CaseaCocherGpr1])
       If Not isect Is Nothing Then Target = IIf(Target.Value = Chr(168), Chr(254), Chr(168))
   End If
End Sub

A+

Bonjour galopin01

je viens de tester en début de procédure un On Error Resume Next et en fin un On Error GoTo 0, cela fonctionne, mais a priori je mets la poussière sous le tapis, .

Donc je mets ta proposition en place que je teste maintenant.

Merci

Pompaero

Ta procédure est en place et fonctionne super bien, grand merci à toi.

Bonne fin de week-end

Cdlt

pompaero

Rechercher des sujets similaires à "cases cocher"