XL 2019 enregister une macro qui insererait une croix dans 1 cellule

[Patrick.75019]

Bonjour ,

Je viens solliciter votre aide pour enregister une macro qui insererait une croix dans 1 cellule a n'importe qu'elle endroit de la feuille active ou d'une autre feuille du classeur tout simplement en executant une macro

Je vous remercie déjà

Bonne journée

 

[job75]

Je viens de donner au post #14 des explications claires.

Il s'agit du B A BA pour commencer à utiliser VBA, si vous abandonnez vous ne ferez plus jamais rien, persévérez.

A+

 

[Patrick.75019]

j'ai bien compris et j'ai bien lu la réponse du #post 14 mais je n'y arrive pas et pourtant j'ai fait moult essais
Est -ce que vous pourriez regarder mon 'classeur Croix dans cellules' et me dire ou je commet l'erreur et ou je devrais inserer ce code
je pense que ca doit etre tout bete , mais quelque chose m'echappe
Merci

 

[Eric C]

Re,

Si tu veux que la macro de job fonctionne dans ton fichier, il suffit d'y coller la shape ... pour commencer. Je te joint ton fichier à jour.
@+

 

[job75]

Si je me suis donné la peine d'écrire le post #14 c'est pour que vous fassiez exactement ce qu'il y est dit.

Voyez le résultat dans le fichier joint.

 

[Patrick.75019]

Bon c'est con mais je n'y arrive toujours pas pourtant j'en conviens tout est clairement expliqué
je vous remercie tous de tous vos efforts fournis
mais je dois me rendre a l'évidence le VBA ce ne doit pas etre pour moi ...
donc je lache l'affaire et j'y reviendrais peut -etre ultérieurement
bon grand Week-end
@+

 

[job75]

Je n'ai jamais vu ça, vous êtes le 1er que je vois abandonner sur un truc aussi simple.

 

[Eric C]

Re,
@ job75 : quand ça ne veut pas, ça ne veut pas.
@ Patrick : courage. Reprends tout de A à Z avec les éléments fournis et commente au fur & à mesure ton problème.
@+

 

[patricktoulon]

est ce que mon model a été essayé au moins

pourquoi une shape pour une simple croix

 

[Modeste geedee]

Bonsour®

pourquoi une shape pour une simple croix

si le demandeur avait précisé la finalité de la chose ???
et :
- perte ou non du contenu initial
- besoin ou non de dénombrement
- besoin alternatif ou non de mise en place

une autre voie à explorer :

Sub AjoutCBx()
    With ActiveCell
             ActiveSheet.CheckBoxes.Add(.Offset(0, 1).Left - 15, .Top, .Height / 2, .Height / 2).Select
            Selection.Name = "Cbx_" & .Address(False, False)
            Selection.Caption = ""
            .Select
   End With
End Sub

 

[Eric C]

Bonjour le forum
Bonjour le fil

J'ai trouvé l'idée d'intégrer une case à cocher de notre ami Modeste geedee ( ) intéressante et comme le fil est dirigé vers l'insertion par DoubleClick, je vous mets la version revisitée (demande redondante concernant l'insertion de case à cocher). Notez que sans "Cancel = True", il faut quitter la cellule pour que la coche soit effective.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
With ActiveCell

            ActiveSheet.CheckBoxes.Add(.Offset(0, 1).Left - 15, .Top, .Height / 2, .Height / 2).Select
            Selection.Name = "Cbx_" & .Address(False, False)
            Selection.Caption = ""
            .Select
   End With

End Sub

@+ Eric c