compteur jusqu'a 5 par double clic

[jeromeN95]

Bonjour,
je souhaite avoir un textbox ou un rectangle sur ma feuille.
Lorsque je double clic dessus, je souhaite qu'il incrémente de 1.
Et arriver a 5 +1, il repart à 0.

Est-ce fesable SVP?

 

[Pierrot93]

Re : compteur jusqu'a 5 par double clic

Bonjour,

regarde ceci, pour un "textbox" de la boite à outils contrôles, à utiliser dans le module de la feuille où se trouve l'objet :

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
TextBox1 = IIf(Val(TextBox1) = 5, 0, Val(TextBox1) + 1)
Cancel = True
End Sub

bonne journée
@+

 

[jeromeN95]

Re : compteur jusqu'a 5 par double clic

Salut pierrot,
merci mais lors d'un double clic, il ne se passe rien...

 

[MJ13]

Re : compteur jusqu'a 5 par double clic

Bonjour Jerome, Pierrot

merci mais lors d'un double clic, il ne se passe rien...

Et pourtant, si Pierrot, dit quelque chose, en général, il n'a pas tort 🙂.

 

[Pierrot93]

Re : compteur jusqu'a 5 par double clic

Re,

tu as bien mis le code dans un module de feuille ???

 

[Fo_rum]

Re : compteur jusqu'a 5 par double clic

...
je souhaite avoir un textbox ou un rectangle sur ma feuille.
Lorsque je double clic dessus, je souhaite qu'il incrémente de 1.
Et arriver a 5 +1, il repart à 0.
...

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
   TextBox1 = IIf(Val(TextBox1) = 5, 0, Val(TextBox1) + 1)
End Sub

 

[Pierrot93]

Re : compteur jusqu'a 5 par double clic

Re,

Aarf, bien vu Fo_rum... perso avais compris double click sur la feuille, non dans l'objet.. d'ou le code...

 

[jeromeN95]

Re : compteur jusqu'a 5 par double clic

Bonsoir a tous et merci beacoup.
Par contre, j'ai 22 text box qui doivent faire la même chose.
Par curiosité, on pourrait pas raccourcire le code pour qu'il marche sur des text box de #1 à 22?

 

[Pierrot93]

Re : compteur jusqu'a 5 par double clic

Bonjour,

Par curiosité, on pourrait pas raccourcire le code pour qu'il marche sur des text box de #1 à 22?

si tu peux utiliser un module de classe, une petite recherche sur le forum devrait te fournir quelques exemples...

bonne journée
@+

 

[Pierrot93]

Re : compteur jusqu'a 5 par double clic

Re

un petit exemple avec 3 textbox :
dans un module standard :

Option Explicit
Public Tb(1 To 3) As New Classe1

dans le module "thisworkbook" :

Option Explicit
Private Sub Workbook_Open()
Dim i As Byte
For i = 1 To 3
    Set Tb(i).t = Feuil1.OLEObjects("Textbox" & i).Object
Next i
End Sub

dans un module de classe :

Option Explicit
Public WithEvents t As MSForms.TextBox
Private Sub t_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
t = IIf(Val(t) = 5, 0, Val(t) + 1)
End Sub

fichier en pj