compteur jusqu'a 5 par double clic

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #2

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 :

Code:

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

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 15 Avril 2011

• #3

Re : compteur jusqu'a 5 par double clic

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

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 15 Avril 2011

• #4

Re : compteur jusqu'a 5 par double clic

Bonjour Jerome, Pierrot

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

Cliquez pour agrandir...

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

 

Pièces jointes

• DoubleCLick_Textbox.xls

  30 KB · Affichages: 61

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #5

Re : compteur jusqu'a 5 par double clic

Re,

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

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 15 Avril 2011

• #6

Re : compteur jusqu'a 5 par double clic

jeromeN95 à dit:

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

Cliquez pour agrandir...

Code:

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

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 15 Avril 2011

• #7

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

 

Vote positif 0 Vote négatif

jeromeN95

XLDnaute Impliqué

• 15 Avril 2011

• #8

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?

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Avril 2011

• #9

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?

Cliquez pour agrandir...

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

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 16 Avril 2011

• #10

Re : compteur jusqu'a 5 par double clic

Re

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

Code:

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

dans le module "thisworkbook" :

Code:

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 :

Code:

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

 

Pièces jointes

• Classeur1.xls

  32 KB · Affichages: 55
• Classeur1.xls

  32 KB · Affichages: 48
• Classeur1.xls

  32 KB · Affichages: 52

Vote positif 0 Vote négatif