Après un double clic apparition d'un signet
Bonjour,
Je suis toute nouvelle sur le forum et j'espère que je ne fais pas de bêtises en écrivant ici. Sinon je m'en excuse par avance.
Pouvez-vous m'aider dans mon problème, en effet, j'ai un fichier Excel dans lequel je veux faire apparaitre un signe tel qu'une coche verte (comme pour le bouton résolu mais sans encadrement) , pour cela j'ai trouvé ce VBA mais il ne fonctionne qu'à moitié car seul le 1 apparait et pas le signe que je souhaite. Voici ce que j'ai inséré dans visual basic:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
With Application
.Cursor = xlNorthwestArrow
BooleanCellDoubleClick Target, [ListedeCourses[[Terminé]]], Cancel
.Cursor = xlDefault
End With
End Sub
Private Sub BooleanCellDoubleClick(rTarget As Range, rValidRange As Range, Cancel As Boolean)
On Error Resume Next
Application.CellDragAndDrop = False
If rTarget.Cells.Count > 1 Then Exit Sub
If Intersect(rTarget, rValidRange) Is Nothing Then Exit Sub
If Len(rTarget) Then
rTarget = vbNullString
Else
rTarget = 1
End If
Cancel = True
End Sub
Private Sub ClearList()
On Error Resume Next
If vbYes = MsgBox("Effacer TOUTES LES COCHES dans la liste ?", _
vbExclamation + vbYesNo, "Le voulez-vous vraiment ?") Then
[ListedeCourses[[Terminé]]].ClearContents
End If
End Sub
Merci beaucoup pour votre aide
Bonjour,
une macro généraliste pour les coches.
Sélectionne ta plage (vide) qui doit les recevoir, Ctrl+i et c'est fini.
Un double-clic sur cette plage coche/décoche.
eric
Bonjur eriiic,
Je suis désolée, je dois vraiment être bête mais je n'arrive pas à faire cette macro. Pouvez-vous me détailler la procédure ?
Je vous en remercie par avance et suis sincerement désolée
Bonjour,
ouvre mon fichier, sélectionne O2:O6, fait Ctrl+i et répond "Non"
Maintenant un double-clic dans O2:O6 coche et décoche, c'est tout ce qu'il y a à faire.
Copie tout le code de Feuil1 dans le module de ta feuille et après sélectionne tes plages cases à cocher et lance la macro initialiserCasesOption (ou alors défini le raccourci clavier).
Lit la partie Options si tu veux modifier l'affichage.
Pour des cases à cocher il faut que la plage sélectionnée soit 1 colonne verticale.
eric
PS: je viens d'ouvrir ton fichier, il apparait comme abimé. Possible que ça ne fonctionne pas dessus. Repart sur un classeur neuf
Rebonjour,
Super merci, cela fonctionne dans un nouveau fichier.
Je vous souhaite une bonne journée.