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

job75

XLDnaute Barbatruc

• 8 Novembre 2019

• #16

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+

 

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 8 Novembre 2019

• #17

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 8 Novembre 2019

• #18

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.
@+

 

Pièces jointes

• Croix dans cellules job75.xlsm

  15.7 KB · Affichages: 8

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2019

• #19

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.

 

Pièces jointes

• Croix dans cellules(1).xlsm

  17.7 KB · Affichages: 9

Vote positif 0 Vote négatif

P

Patrick.75019

XLDnaute Occasionnel

• 8 Novembre 2019

• #20

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
@+

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Novembre 2019

• #21

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 8 Novembre 2019

• #22

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.
@+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Novembre 2019

• #23

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

pourquoi une shape pour une simple croix

 

Pièces jointes

• Macro pour inserer une croix dans cellules.xlsm

  17.5 KB · Affichages: 8

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 8 Novembre 2019

• #24

Bonsour®

patricktoulon à dit:

pourquoi une shape pour une simple croix

Cliquez pour agrandir...

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 :

VB:

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

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 10 Novembre 2019

• #25

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.

VB:

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

 

Vote positif 0 Vote négatif