compteur +1 -1

James007

XLDnaute Barbatruc

• 25 Mars 2009

• #2

Re : compteur +1 -1

Bonjour,

Un Test ... de... boites vides ...

 

Pièces jointes

• TestBoitesVides.xls

  23.5 KB · Affichages: 79

Vote positif 0 Vote négatif

C

Chico64

Guest

• 25 Mars 2009

• #3

Re : compteur +1 -1

Salut 007,

A quoi cela sert de mettre ? Option Explicit

Code dans sheet1:

Code:

[COLOR="red"]Option Explicit[/COLOR]
Private Sub CommandButton1_Click()
Range("F10").Value = Range("F10").Value - 1
End Sub
Private Sub CommandButton2_Click()
Range("F10").Value = Range("F10").Value + 1
End Sub

Code dans ThisWorkbook :
Option Explicit

Merci
Cdlt.
Chico

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 25 Mars 2009

• #4

Re : compteur +1 -1

Bonjour,

Il y a aussi l'icône "compteur" sous la barre d'outils "formulaire"
A mon avis, bien plus simple à mettre en place.

abcd

 

Vote positif 0 Vote négatif

F

frseg

Guest

• 25 Mars 2009

• #5

Re : compteur +1 -1

je vais essayer vos solution merci

 

Vote positif 0 Vote négatif

F

frseg

Guest

• 25 Mars 2009

• #6

Re : compteur +1 -1

abcd,pourrait tu me donner la marche a suivre pour donner la commande au bouton
merci bcp

 

Dernière modification par un modérateur: 25 Mars 2009

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 25 Mars 2009

• #7

Re : compteur +1 -1

Bonjour,

Menu Affichage / Barre d'outils / Formulaires
Cliquer sur l'icône "compteur" (6ème dans la colonne de droite) puis cliquer à l'endroit de la feuille où le compteur doit être collé.
Une fenêtre de dialogue s'est ouverte.
L'onglet "Dimension" permet de régler la taille du compteur.
L'onglet "Contrôle" permet de définir des valeurs min et max (de 0 à 30000 par défaut), d'ajuster le pas (1 pas défaut) et de lier une cellule à cet outil.

Ce n'est pas plus compliquer que cela !

abcd

 

Vote positif 0 Vote négatif

F

frseg

Guest

• 25 Mars 2009

• #8

Re : compteur +1 -1

merci abcd cela fonctionne

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 26 Mars 2009

• #9

Re : compteur +1 -1

Salut 007,

A quoi cela sert de mettre ? Option Explicit

Code dans sheet1:


Code:

Code:

[COLOR="red"]Option Explicit[/COLOR]
Private Sub CommandButton1_Click()
Range("F10").Value = Range("F10").Value - 1
End Sub
Private Sub CommandButton2_Click()
Range("F10").Value = Range("F10").Value + 1
End SubCode dans ThisWorkbook :
Option Explicit

Merci
Cdlt.
Chico

 

Vote positif 0 Vote négatif

Magic_Doctor

XLDnaute Barbatruc

Supporter XLD

• 26 Mars 2009

• #10

Re : compteur +1 -1

Bonjour Chico,

Si je ne me trompe pas, Option Explicit oblige à déclarer toutes les variables de la procédure.
La déclaration de ces variables commence généralement par Dim (mais ce peut être Static ou d'autres sentences spécifiques aux variables).

Ex :

Sub Zaza()

Dim a%, z as byte...

le corps de la procédure

End Sub

Si une variable n'a pas été déclarée ---> ERREUR

 

Vote positif 0 Vote négatif

tbft

XLDnaute Accro

• 26 Mars 2009

• #11

Re : compteur +1 -1

bonjour

Option Explicit : permet de t'obliger à déclarer tes variables.
tu peux les déclarer dans une fonction ou dans une macro.
elles seront connues que par la fonction ou la macro en question.
mais si tu la déclares en haut de ton module, elles seront connue par toutes les fonctions et les macros de ton module. car par défaut elles sont en privé. mais si tu les déclares en public alors tu peux y avoir accés depuis n'importe quelle macro ou fonction de n'importe quelle module.

En espérant que je n'embrouille personne... sinon désolé

 

Vote positif 0 Vote négatif

C

Chico64

Guest

• 26 Mars 2009

• #12

Re : compteur +1 -1

Merci à Vous,

J'ai compris !!!

Chico

 

Vote positif 0 Vote négatif

Dull

XLDnaute Barbatruc

• 26 Mars 2009

• #13

Re : compteur +1 -1

Salut le Fil 🙂

Chico64 pour ma part je te conseil ...latoucheF1 😀 au sur lignage de "Option Explicit" tu en apprendra beaucoup

Un lien qui en parle, mais pas le seul,

Bonne Journée

 

Vote positif 0 Vote négatif