Sujet Précédent Sujet Suivant

Excel : cases à cocher

Résolu/Fermé
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 - 7 oct. 2011 à 22:54
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 - 10 oct. 2011 à 07:18
Bonjour,

Dans un tableau Excel comprenant une cinquantaine de lignes avec une case à cocher (ActiveX) sur chacune d'elle, je voudrais pouvoir ajouter ou supprimer des lignes sans avoir à reconfigurer les actions, celles-ci se décalant en cas d'ajout ou suppression de lignes (l'action ne correspond plus à la case cochée).
Que faut-il faire pour éviter ce problème ?
Merci d'avance
Alain

A voir également:

5 réponses

Réponse 1 / 5
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
7 oct. 2011 à 23:13
Bonjour,

Que faut-il faire pour éviter ce problème ?
Ben déjà ne pas se compliquer la vie quand ce n'est pas nécessaire : un simple X dans une cellule fait pareil et est beaucoup plus facile à gérer (sans compter qu'on évite le dessin de 50 case à cocher...)

eric
0
Réponse 2 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
9 oct. 2011 à 13:02
Bonjour à tous,
je sais Eric mais c'est quand même mieux de cliquer que de saisir et valider.
Mais bon, si il n'y a pas de solution pour rendre les références des cellules relatives, il va bien falloir que je m'y fasse.
Merci
Alain
0
Réponse 3 / 5
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
9 oct. 2011 à 21:30
Bonsoir,

Tu peux toujours utiliser la souris en utilisant par exemple l'évènement double-clic : 
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.Row > 1 Then
        Cancel = True
        If Target = "" Then
            Target = "X"
            ' traitement si X
        Else
            Target = ""
            ' traitement si vide
        End If
    End If
End Sub

Un double-clic en A met un X, un autre double-clic l'enlève.

eric
0
Réponse 4 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
9 oct. 2011 à 22:36
Bonsoir Eric,
Voilà une solution qui commence à m'intéresser. Je vais tester ça de ce pas.
Merci à toi
Alain
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
alainjjb Messages postés 771 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 5 février 2024 110
9 oct. 2011 à 23:14
Bonsoir Eric,
c'est OK.
Merci encore
Alain
0
eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 211
10 oct. 2011 à 07:18
Pas de pb, bonne continuation.
eric
0