Modification ".Caption" (ou ".Texte") d'une CheckBox suite à son activation

Version imprimable

1 pièce(s) jointe(s)

Bonjour,

Dans le cadre de mes études, j'ai voulu créer un tableau excel qui renseigne sur le nombre de fois que j'ai récité un cours grâce à des CheckBox notamment avec une indication de la date associée à cette "couche" d'apprentissage.

Je souhaiterai modifier le texte (mettre une date) d'une CheckBox lorsque celle-ci est cochée (une fois coché, ".Texte" contient la date actuelle). J'ai déjà créé un code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 Sub CheckBox_Dated(): Dim Current_Date As Date Dim ChkBx As CheckBox Dim Current_Date_String As String Current_Date = Date Current_Date_String = Format(Current_Date, "dd/mm/yyyy") If Worksheets("Feuil1").Activate Then For Each ChkBx In ActiveSheet.CheckBoxes If ChkBx.Value = 1 Then ChkBx.Text = Current_Date_String Else ChkBx.Text = "" End If Next End If End Sub
Le problème de ce code est qu'il modifie le texte de tout les CheckBox activées donc on perte les informations relatives des CheckBox ayant été déjà cocher précédemment (date antérieur). Je comprend très bien pourquoi. Le problème est que je ne trouve pas de propriété de Checkbox qui permet de dire si cette dernière vient d'être cochée ou quelque chose qui permet cela.

Je me document énormément sur ce lien : https://msdn.microsoft.com/fr-fr/lib...roperties.aspx.

J'ai appris l'existence d’événement comme par exemple "Checkbox.CheckedChanged". Cependant, je n'arrive pas à maîtriser ces notions malgré les informations données par le site de Microsoft. :? Et je ne sait pas si elles peuvent régler mon problème.
J'ai débuter VBA d'Excel il y a 1 semaine et j'ai juste des notions de bases en programmation. J'ai étudié les bases Python dans le cadre d'étude en Biologie mais cela m'aide peu. J'espère que vous serez indulgents ! :)

NB : Fichier en pièce-jointe.
La fonction suppression n'est pas fonctionnelle dans mon fichier (un autre problème :? mais secondaire). Le bouton CheckBox créé des CheckBox dans la sélection de cellule faite au curseur. Et Datage est un bouton associé à la macro CheckBox_Dated() = sujet de cette discussion.

Je vous remercie par avance pour l'attention que vous porterez à mon problème !

25/06/2018, 23h12
patricktoulon

re

re
voir si j'ai bien compris ton soucis
tu a X checkboxs dont certain ont eu la caption changé en date et tu voudrais que ton code mettent la curent date quand il sont true
et qu'ils nont pas de date dans la caption
si c'est ca c'est simple
ta ligne

Code:

ChkBx.Text = Current_Date_String

tu la remplace par

Code:

if not isdate(ChkBx.Text) then ChkBx.Text = Current_Date_String

apres pour la propriété ".text" entre nous sauf erreur de ma part je suis pas sur !!
pour les activX c'est ".caption" et pour les controles formulaire c'est ".Characters.Text ="blabla" en passant par la collections(shapes)

je ne peut pas te dire je ne les utilises pas

ce qu'il faut retenir c'est ce test "if not isdate(......"
;)

Bonjour,

Je te propose une autre façon de faire !
Tu lie la macro ci-dessous à tous tes CheckBox et de cette façon, seule celle active sera visée :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Dater()
 
    With ActiveSheet.Shapes(Application.Caller)
 
        If .ControlFormat.Value = 1 Then
            .TextFrame.Characters.Text = Format(Date, "dd/mm/yyyy")
        Else
            'ce que tu veux si non cochée !
        End If
 
    End With
 
End Sub

Bonjour,

Code:

1
2
 
ChkBx.Text = array("",Current_Date_String)(abs(ChkBx.Value ))

@Theze true =-1

Code:

1
2
If ChkBx then
'If (true=true)=true then un test est vrai ou faut True/False

Citation:
Envoyé par Theze
Bonjour,

Je te propose une autre façon de faire !
Tu lie la macro ci-dessous à tous tes CheckBox et de cette façon, seule celle active sera visée :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Sub Dater() With ActiveSheet.Shapes(Application.Caller) If .ControlFormat.Value = 1 Then .TextFrame.Characters.Text = Format(Date, "dd/mm/yyyy") Else 'ce que tu veux si non cochée ! End If End With End Sub
bonjour theze

Citation:

Le problème de ce code est qu'il modifie le texte de tout les CheckBox activées donc on perte les informations relatives des CheckBox ayant été déjà cocher précédemment (date antérieur). Je comprend très bien pourquoi. Le problème est que je ne trouve pas de propriété de Checkbox qui permet de dire si cette dernière vient d'être cochée ou quelque chose qui permet cela.

26/06/2018, 20h02
Theze

Bonjour Robert, Patrick,

Patrick, Guillaume dit :

Citation:

Je souhaiterai modifier le texte (mettre une date) d'une CheckBox lorsque celle-ci est cochée (une fois coché, ".Texte" contient la date actuelle). J'ai déjà créé un code...

Vu qu'il y a une évolution de 1 à 4 (en fait de 1 à 8 mais seulement 3 à 6 prise en compte dan l'exemple) je pense que la réponse donné est bonne mais attendons la réponse de Guillaume !

Robert, pour un Shape et principalement pour un CheckBox, coché = 1 non coché = -4146 !

1 pièce(s) jointe(s)

Réponse

Bonjour à tous !

Merci pour votre réactivité et votre temps consacré à la résolution de mon problème.

Concernant la proposition de Patrick, j'ai intégré cette nouvelle ligne de code mais malheureusement, lors de l'activation de la macro pour dater, toutes les Checkbox de la feuille se voient attribuer une date. Quelles soient cochée ou non.

Concernant la proposition de Robert, je n'est pas trop compris la ligne de code proposée mais cela semble intéressant dans la mesure ou je découvre une méthode avec "array". D'après mes bases algorithmiques, j'ai juste compris (à vérifier si j'ai juste, mes connaissances sont limitées) que le ".Texte" de la CheckBox peut prendre la valeur d'un tableau avec deux éléments de type String : soit rien soit la date actuelle. Mais j'ignore ce que signifie "(abs(ChkBx.Value)" accolé à array() et par conséquent l'ensemble de la ligne.

Concernant la proposition de Theze, la procédure dater() marche très bien pour une CheckBox. C'est exactement ce que je cherchais ! Je voulais juste souligner une chose étrange, c'est que lorsque j'attribue manuellement cette macro à plusieurs CheckBox (tout une rangée de CheckBox), cela ne fonctionne pas. J'ai l'impression que peut-être une macro peut être associée qu'a un seul objet :? Je ne saisie pas la source réelle de cette anomalie.
J'ai une nouvelle demande suite cette voie prometteuse ! :D
Etant donnée que ma feuille possédera un nombre indéterminé de CheckBox (dépend du nombre de matière dans le contexte), cela serait fastidieux d'attribuer manuellement la macro "Dater()" à l'ensemble des CheckBox (pouvant aller jusqu'à 160 CheckBox)
Est-il possible d'intégrer dans la procédure (d'un Module) qui créer mes CheckBox, une ligne de code qui permet d'associer à la CheckBox tout juste créée la macro "Dater()" ? Si cela est possible, je aurai un tableur avec toutes les CheckBox déjà prêtes à l'emploi sans lancer :
- soit une macro qui attribue à tout les CheckBox la macro Dater()
- soit attribuer manuellement les macro à l'ensemble des Checkbox 8O

Voici pour information ma procédure de création de mes CheckBox dans une Selection :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 Option Explicit Sub Inserer_Cases_a_cocher_Liees() Dim rngCel As Range Dim ChkBx As CheckBox Dim CompteurIndex As Long Dim CompteurIndexBoucle As Long For Each rngCel In Selection With rngCel.MergeArea.Cells If .Resize(1, 1).Address = rngCel.Address Then '.NumberFormat = ";;;" Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left, .Top, .Width, .Height) With ChkBx CompteurIndexBoucle = CompteurIndex + 1 .Name = "CheckBox" & CompteurIndexBoucle .Value = xlOff .LinkedCell = rngCel.MergeArea.Cells.Address .Text = "" End With End If End With Next rngCel End Sub
Merci pour vos retours, je sens qu'on est pas loin de résoudre ce problème !

PS : mon Tableur mise à jour avec la procédure Dater() associée à 2 CheckBox pour test. En pièce-jointe.

26/06/2018, 22h24
Invité
Un tableau (array) comme dans l'exemple {array("",Current_Date_String)}
Peut pendre la valeur 0/1.

Un booléen comme ChkBx true/false 0/-1; abs(-1) valeur absolue! abs(true) = 1.

En fait on ne teste pas la ChkBx mais c'est sa valeur absolue true/false qui aiguille le array.
Code:

1 2 3 ChkBx.Text = array("",Current_Date_String)(abs(ChkBx.Value )) 'array("",Current_Date_String)(abs(true))=Current_Date_String
27/06/2018, 07h30
Theze

Bonjour,

Citation:

Concernant la proposition de Theze, la procédure dater() marche très bien pour une CheckBox. C'est exactement ce que je cherchais ! Je voulais juste souligner une chose étrange, c'est que lorsque j'attribue manuellement cette macro à plusieurs CheckBox (tout une rangée de CheckBox), cela ne fonctionne pas. J'ai l'impression que peut-être une macro peut être associée qu'a un seul objet Je ne saisie pas la source réelle de cette anomalie.

Dans mon premier post, j'ai dis :

Citation:

Tu lie la macro ci-dessous à tous tes CheckBox...

donc, toutes les CheckBox appellent la même procédure "Dater()" et c'est l'utilisation de "Application.Caller" qui permet de cibler la bonne CheckBox !
28/06/2018, 11h15
Guillaume97440

1 pièce(s) jointe(s)
Bonjour,

Citation:

Envoyé par Theze

Tu lie la macro ci-dessous à tous tes CheckBox... !

J'ai procédé comme suit pour lier Dater() avec les CheckBox :
1. Cliquez droit sur la CheckBox, menu déroulant propose "Affecter une Macro" (Ici sélection multiple)
2. La fenêtre contextuelle Affecter une Macro apparaît.
3. Selectionnez la Macro voulue (ici Dater)
4. Cliquez sur OK.
J'ai sélectionné les CheckBox successivement en maintenant "Ctrl" puis j'ai procédé comme le protocole ci-dessus le stipule.

Mais toujours un problème lorsque je test directement après avoir lier Dater(). J'ai approfondi la compréhension de cette anomalie. Elle est présenté dans la pièce-jointe pour plus de clarté et d'efficacité avec des Screenshots le tout organisé chronologiquement : 1 à 3.

Conclusion de cette étude de l'anomalie (pièce-jointe) : il existe une forme de latence entre la liaison des CheckBox à Dater() et leur effectivité. Ce qui explique le fait qu'au début, je voyais que cela ne marchait pas pour un ensemble de Checkbox.
NOTE NON NEGLIGEABLE : pour UNE CheckBox, cela marche directement après avoir affecter Dater() la CheckBox dite --> hypothèse qui en découle : est-ce ne nombre de CheckBox qui est responsable de cela ? Cela serait étonnant dans la mesure ou ce n'est pas un programme "lourd" de calcul.

J'espère que la pièce-jointe facilite la compréhension de ce qu'il se passe réellement et de l'hypothèses que j'émet.

Merci par avance !
28/06/2018, 12h14
Theze

Bonjour,

je ne sais pas quel problème tu rencontres mais avec ton fichier exemple, 1 --> sélection de toutes les CheckBox 2 --> affectation de la macro (aux 16 CheckBox) et 3 pour tester, clic sur différentes CheckBox, le caption apparaît bien avec la date du jour et s'efface bien au décochage (j'ai ajouter .TextFrame.Characters.Text = "" dans la partie Else)
Mets toutes les procédures que tu as dans le VBE en commentaire sauf "Dater()" et refais des tests pour voir, il peut peut être y avoir un conflit quelque part sinon, poste ton fichier original et je testerai ça.
Petite précision, les cases à cocher le sont l'une après l'autre puisque "Application.Caller" donc un seul nom retourné !
29/06/2018, 00h13
Guillaume97440

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par Theze

je ne sais pas quel problème tu rencontres mais avec ton fichier exemple, 1 --> sélection de toutes les CheckBox 2 --> affectation de la macro (aux 16 CheckBox) et 3 pour tester, clic sur différentes CheckBox, le caption apparaît bien avec la date du jour et s'efface bien au décochage (j'ai ajouter .TextFrame.Characters.Text = "" dans la partie Else)
Mets toutes les procédures que tu as dans le VBE en commentaire sauf "Dater()" et refais des tests pour voir, il peut peut être y avoir un conflit quelque part sinon, poste ton fichier original et je testerai ça.

J'ai supprimé certaines procédures obsolètes et j'ai mis tous les autres procédures en commentaire afin de tester la macro Dater(). Malheureusement, on retrouve encore cette anomalie.
Comme prévu, vous trouverez posté mon fichier.

Citation:

Envoyé par Theze

Petite précision, les cases à cocher le sont l'une après l'autre puisque "Application.Caller" donc un seul nom retourné !

D'accord ! C'est noté.

Nous y sommes presque ! Encore merci pour vos retours et votre temps.
29/06/2018, 07h15
Theze

Bonjour,

Je viens de faire le test sur toutes les CheckBox (il y en a une qui est encore attachée à une autre Sub en I12), elles prennent la date du jour en caption de façon instantané et elle disparaît immédiatement si je décoche !
Fais le test sur un autre poste si c'est possible pour toi mais à ce stade je ne peux plus grand chose pour toi et j'en suis désolé !
29/06/2018, 09h16
patricktoulon

bonjour
j'ai testé le fichier les chkbx semblent bien prendre la date l'orsqu'il sont cochés et plus de texte quand ils sont décochés

1 pièce(s) jointe(s)

re
sinon une autre approche

Code:

Option Explicit

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Inserer_Cases_a_cocher_Liees()
    Dim rngCel As Range
    Dim ChkBx As CheckBox
    Dim CompteurIndex As Long
    Dim CompteurIndexBoucle As Long
    For Each rngCel In Selection
        With rngCel.MergeArea.Cells
            If .Resize(1, 1).Address = rngCel.Address Then
                Set ChkBx = ActiveSheet.CheckBoxes.Add(.Left + 1, .Top + 1, .Width - 2, .Height - 2)
                CompteurIndexBoucle = CompteurIndexBoucle + 1
                With ChkBx
                    .Name = "check" & rngCel.Address
                    .Value = xlOff
                    .Text = ""
                    .OnAction = "'Dater2 " & Chr(34) & .Name & Chr(34) & "'"
                End With
            End If
        End With
    Next rngCel
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Dater2(nom)
    With ActiveSheet.Shapes(nom)
        If .TextFrame.Characters.Text = "" Then
            .TextFrame.Characters.Text = Format(Date, "dd/mm/yyyy")
            .Parent.Range(Replace(.Name, "check", "")) = "true"
        Else
            .TextFrame.Characters.Text = ""
            .Parent.Range(Replace(.Name, "check", "")) = "false"
        End If
    End With
End Sub

Code:

1
2
3
4
5
6
7
Sub supprim_checkbox_in_selection()
    Dim shap As Shape, c As Range
    For Each shap In Sheets(1).Shapes
        Set c = Intersect(shap.TopLeftCell, Selection)
        If Not c Is Nothing Then shap.Delete
    Next
End Sub

Pièce jointe 392643

30/06/2018, 10h37
Guillaume97440

Citation:

Envoyé par Theze

Fais le test sur un autre poste si c'est possible pour toi

Je n'est malheureusement pas d'autre PC pour essayer. Je vais réinstaller la suite Office sur mon poste et dans la mesure ou cela fonctionne toujours pas. Ces derniers jours un message de "activation nécessaire" apparaît malgré le fait que j'ai bien une version officielle avec un abonnement mensuel. Le soucis pourrai bien venir de là ! Je vais donc réinstaller les logiciels. Je suis confiant ;)

Citation:

Envoyé par patricktoulon

sinon une autre approche

Très intéressant, j'étudierai cela de plus près. Voir différentes méthodes me permettra de mieux appréhender la syntaxe VBA. Vous proposez même une fonction de suppression ! C'était un problème secondaire que j'ai pas osé demander de solution dans la mesure ou la discussion aurait pu être plus dense et hétérogène. Merci et hâte de tester cela !

Je pense que j’achèterai un livre sur le VBA, internet est une forêt de connaissance et c'est partir un peu à l'aventure, on peut s'y perdre et avoir un chemin pas très linéaire et incertain. Une semaine sur internet n'a pas était suffisant pour que je puisse m'en sortir tout seul jusqu'à que j'ose les forums. Je découvre aussi cela ! :lol:

Un ENORME merci à vous tous pour le temps investi à résoudre ce problème qui était quasi insurmontable avec mes connaissances et mon temps limité (je reprend les révisions).

La discussion sera mise "RÉSOLUE" !

Encore merci et bonne continuation,

Guillaume.
30/06/2018, 17h32
patricktoulon

re

on t'a proposé la methode application .caller
qui fonctionne par ce que chaque cellule est lié a son checkbox "linkedcell"
autrement dit presque c'est l'evenement change de la cellule qui fait la bascule
ma methode est plus personel dans le sens ou chaque checkbox par le """".onaction + argument .name""" appelle la sub dater2 specifiquement pour lui il n'y a pas d'ambiguité
les deux sont valables
perso je prefere l'apel argumenté

imagine avec linkedcell si tu devrais mettre autre chose que "vrai" ou "faux" dans tes cellules et ben tu pourrais pas avec cette methode
la mienne oui tu fait ce que tu veux dans la sub dater2
30/06/2018, 18h37
Guillaume97440

Citation:

Envoyé par patricktoulon

on t'a proposé la methode application .caller
qui fonctionne par ce que chaque cellule est lié a son checkbox "linkedcell"
autrement dit presque c'est l'evenement change de la cellule qui fait la bascule
ma methode est plus personel dans le sens ou chaque checkbox par le """".onaction + argument .name""" appelle la sub dater2 specifiquement pour lui il n'y a pas d'ambiguité
les deux sont valables
perso je prefere l'apel argumenté

imagine avec linkedcell si tu devrais mettre autre chose que "vrai" ou "faux" dans tes cellules et ben tu pourrais pas avec cette methode
la mienne oui tu fait ce que tu veux dans la sub dater2

Je l'ai testé est tout fonctionnent parfaitement ! Effectivement, avec votre méthode propose un degré de liberté supplémentaire. L'appel argumenté est super intéressante !
J'ai remarqué que c'était ce que je cherchais également si je me trompe pas :

Citation:

Etant donnée que ma feuille possédera un nombre indéterminé de CheckBox (dépend du nombre de matière dans le contexte), cela serait fastidieux d'attribuer manuellement la macro "Dater()" à l'ensemble des CheckBox (pouvant aller jusqu'à 160 CheckBox)
Est-il possible d'intégrer dans la procédure (d'un Module) qui créer mes CheckBox, une ligne de code qui permet d'associer à la CheckBox tout juste créée la macro "Dater()" ?

re
oui comme je disais les methode arrive a ce resultat une fonction pour tous mais avec la mienne en effet tu peux aller plus loin avec les valeurs en lecture et ecriture

pour info
pour toutes shapes sauf controlacivX sur une feuille tu peux passer par le ".onaction="nomdelamacro"
et si tu veux etre encore plus precis tu argumente
et c'est la que ca se complique un peu en fait mais des que l'on a compris la syntaxe c'est assez simple
donc pour l'avenir si ca t'interesse voici quelques exemple tout fait
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 Sub test1() 'exemple avec 1 argument ecrit en dur dans l'apel Sheets(1).Shapes(1).OnAction = "'mamacro " & """toto""" & "'" End Sub Sub test1BIS() 'la meme que la TEST1 mais avec une varaible dans l'apel machin = "toto" Sheets(1).Shapes(1).OnAction = "'mamacro " & Chr(34) & machin & Chr(34) & "'" End Sub Sub test2() 'exemple avec plusieurs arguments ecrit en dur dans l'apel Sheets(1).Shapes(1).OnAction = "'mamacro2 " & Chr(34) & "toto "","" titi "","" riffifi ""'" End Sub Sub test2BIS() 'LA MEME QUE LA test2 MAIS AVEC DE VARIABLES INSTRUITES AVANT EN ARGUMENT machin1 = "toto" machin2 = "titi" machin3 = "riffifi" Sheets(1).Shapes(1).OnAction = "'mamacro2 " & Chr(34) & machin1 & """,""" & machin2 & """,""" & machin3 & "'" End Sub Sub mamacro(argument) MsgBox argument End Sub Sub mamacro2(argument1, argument2, argument3) MsgBox argument1 & vbCrLf & argument2 & vbCrLf & argument3 End Sub
je pourrais faire plus ;)