Exécution d'une procédure à partir d'un SpinButton

Version imprimable

Bonsoir à tous,

En K1, j'ai la formule suivante :

Code:

=DATEVAL("01/" & O1 & "/" & P1)+(M1*3)

O1 = 5 (mois en cours)

P1 = 2013 (Année en cours)

Quand j'incrémente d'un pas un SpinButton sur la feuille, la date en K1 change et un code VBA s'exécute à l'évènement SpinButton1_Change :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub SpinButton1_Change() With Me.SpinButton1 .LinkedCell = Range("M1").Address .SmallChange = 1 .Max = 10 .Min = 0 .PrintObject = False If .Value > 0 And .Value <= 10 Then 'Call Procédure End If End With End Sub
Mais voila, j'ai un souci :

A l'ouverture du classeur, la cellule liée $M$1 affiche un zéro 0 et la date en K1 affiche le 01/05/2013, mais le code n'est pas exécuté.

Si j'actionne le SpinButton, le code sera exécuté avec en K1 la date du 04/05/2013.

Mais j'ai besoin de le faire fonctionner avec la date du 01/05/2013.

Comment faire pour que le code se lancera à cette date ?

Merci d'avance.

24/05/2013, 11h59
nibledispo

execution d'une procédure à partir de SpinButton

bonjour,

le probème, je pense, ne vient pas de ton bout de code qui ne fait rien de particulier, mais plutôt de celui auquel tu renvoies et que tu ne présente pas.

cordialement
25/05/2013, 00h55
apt

Bonjour nibledispo,

Quand le SpinButton change, la cellule liée M1 change de valeur et le code de la procédure est exécuté.

Le problème vient quand la valeur minimum du contrôle, qui est 0, est affichée.

La on ne capte pas un changement et le code n'est pas exécuté.

J'aimerais résoudre ce problème.

Bonjour,

Vous pouvez utilisez les événements SpinUp ou SpinDown plutôt que Change.

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
28
29
30
31
 
Private Sub SpinButton1_SpinUp()
 
    With Me.SpinButton1
        .LinkedCell = Range("M1").Address
        .SmallChange = 1
        .Max = 10
        .Min = 0
        .PrintObject = False
        If .Value > 0 And .Value <= 10 Then
           ' Call Procedure
           ' MsgBox (Range("M1"))
        End If
    End With
End Sub
 
 
Private Sub SpinButton1_SpinDown()
 
    With Me.SpinButton1
        .LinkedCell = Range("M1").Address
        .SmallChange = 1
        .Max = 10
        .Min = 0
        .PrintObject = False
        If .Value >= 0 And .Value < 10 Then
          '  Call Procedure
          '  MsgBox (Range("M1"))
        End If
    End With
End Sub

Cordialement.

26/05/2013, 10h02
apt

1 pièce(s) jointe(s)

Bonjour Eric,

J'ai essayé ton code proposé, mais voila la date en K1 ne change pas, parce qu'elle repose sur les valeurs de M1 que tu m'as demandé de l'enlever comme cellule liée.
26/05/2013, 10h21
Philippe Tulliez

Bonjour,
Je ne sais pas j'ai saisi l'ensemble de ton projet.
Si le SpinButton se trouve sur la feuille du classeur où se trouve la cellule liée, il n'y a pas besoin de code VBA.
Après avoir dessiné le SpinButton, tu cliques sur la commande Propriétés qui se trouve dans le groupe Contrôle de l'onglet [Développeur] (Il faut vérifier au préalable que le Mode Creation soit bien activé (même groupe).
Tu modifies la propriété LinkedCell en lui donnant comme valeur M1.
Tu peux également modifier les propriétés Min et/ou Max.
Ensuite tu décoches le Mode Création et en cliquant les flèches du SpinButton la date va s'incrémenter ou l'inverse (avec la formule que tu as écrites)
[EDIT]
Je constate que tu multiplies par 3 la valeur de M1

Code:

=DATEVAL("01/" & O1 & "/" & P1)+(M1*3)

en donnant à la propriété SmallChange la valeur 3, tu auras un incrémentation ou décrémentation de 3 dans la cellule cible.
J'aurais utilisé la fonction DATE plutôt que DATEVAL mais ce n'est pas très important

Code:

=DATE(P1;O1;M1)

ou si la date doit être incrémentée par rapport à la date du jour.

Code:

=AUJOURDHUI()+M1
26/05/2013, 10h24
Invité

Bonjour,

Tu dois faire référence à mon premier message. Je l'ai effacé pour le remplacer rapidement avec l'actuel.

Je ne comprends pas ta question, ton code fonctionne normalement. La cellule K1 évolue bien avec le spin bouton.

Cordialement.
26/05/2013, 10h31
apt

Bonjour Philippe,

Le SpinButton fonctionne normalement, et à chaque fois que la cellule liée change de valeur, la date en K1 change.

Et pour chaque date renvoyé par la formule en K1, un code est exécuté (Le SpinButton me sert pour déclencher l'exécution du code)

Jusque là par de problème.

Ce qui me souci, c'est quand la valeur de M1 est égal à zéro est affichée (Valeur par défaut). Là il n'y a pas d’exécution de code.

Voila !

EDIT :

Citation:

Je ne comprends pas ta question, ton code fonctionne normalement. La cellule K1 évolue bien avec le spin bouton.

Effectivement, seulement pour la valeur 0, ma procédure n'est pas exécutée (Il n'y a pas d’événement SpinButton à capturer).
26/05/2013, 10h39
Philippe Tulliez

Bonjour,

Comme je l'ai expliqué dans ma réponse, dans ton cas nul besoin de code VBA.
Il suffit de modifier les propriétés du SpinButton et si tu souhaites que M1 commence à 1, il faut modifier la propriété MIN.
Toutefois en sauvant ton classeur la valeur contenue dans M1 sera préservée
26/05/2013, 13h11
apt
Bonjour,

Modifications apportés au code :

- Attribution des propriétés du SpinButton depuis le mode création.

- Ajout du signe "=" pour prendre en considération la valeur "0" de la cellule liée M1.

- Comme les deux procédures SpinUp et SpinDown ont le même codage, j'ai réutilisé l'événement SpinButton1_Change

Le code est devenu :
Code:

1 2 3 4 5 6 7 Private Sub SpinButton1_Change() With Me.SpinButton1 If .Value >= 0 And .Value <= 10 Then Call MaProcédure End If End With End Sub
Un commentaire ?
26/05/2013, 14h25
Philippe Tulliez
Bonjour,
Je changerais simplement cette ligne
Code:

1 2 3 If .Value >= 0 And .Value <= 10 Then Call MaProcédure End If
Par

Code:

If .Value >= 0 And .Value <= 10 Then MaProcédure

La condition peut tenir sur une seule ligne et évite ainsi le End If et le Call n'est pas obligatoire, tu peux invoquer une procédure directement par son nom
Mais si la propriété MIN vaut 0 et MAX vaut 10 il n'y a pas lieu de faire le test.
Il y aurait lieu de savoir aussi ce que fait la procédure nommée MaProcédure parce-que s'il s'agit d'une recherche par rapport à la valeur contenue entre 0 et 10 il est probable que cela peut-être réglé par des fonctions natives d'excel (INDEX, DECALER, RECHERCHEV etc...) et donc plus besoin de code VBA.
26/05/2013, 17h20
apt

Re,

Merci Philippe.

Si je devrais choisir entre la toupie (Contrôle Formulaire) et la toupie (Contrôle ActiveX), laquelle entre les deux est plus praticable ?

Parce que j'ai remarqué une lenteur quand à l'exécution du code avec le SpinButton, je ne sais pour quel raison ?
26/05/2013, 17h27
Philippe Tulliez

Bonour,

La toupie (Contrôle Formulaire) peut avoir également des comportements curieux comme par exemple sauter les pas (un clic générant 3 pas, voir plus).
Je l'utilise avec un agenda pour parcourir les semaines.
Je n'ai pas vraiment d'expérience suffisante pour savoir lequel est plus performant que l'autre mais je trouve curieux cette lenteur. Il faudrait voir ce que la procédure appelée fait comme travail.
26/05/2013, 17h41
apt

Avec la même procédure (Création d'un tableau modèle dans une feuille "Modèle", le copier en trois fois, dans une autre feuille, l'un au dessus de l'autre et enfin remplissage de ces derniers), Il n'y avait cette lenteur avant (J’utilisais la toupie contrôle formulaire), mais depuis que j'utilisais le SpinButton pour avoir l’événement SpinButton1_Change (Peut-être une coïncidence), je ne cesse de remarquer cette lenteur ... :roll:
26/05/2013, 17h52
Philippe Tulliez

Bonjour,
Encore une fois je ne sais pas ce que ta procédure appelée exécute comme code mais pour ma part, j'utilise les fonctions d'excel avec les boutons formulaires ou ActiveX en utilisant la cellule cible comme paramètre.
Ainsi pour mon agenda, je pars de la date du jour et avec le ScrollBar (formulaire), j'avance d'1 semaine (changement de pas) ou 4 semaines (Changement de page) et c'est quand ma souris reste sur la flèche que l'avancement de pas continue.
Tu pourrais te passer du code VBA si la valeur de la cellule cible est le numéro de colonne ou de ligne à déplacer voir de mois, d'année etc...
26/05/2013, 18h45
apt

Bonjour,

Merci Philippe.

Je vais essayé de chercher le problème ailleurs.

Merci pour vos tous.

:)
27/05/2013, 01h06
Docmarti
A mettre dans ThisWorkBook pour que le code s'exécute à l'ouverture du classeur :
Code:

1 2 3 4 5 Private Sub Workbook_Open() Call procédure End Sub
30/05/2013, 10h17
apt

Bonjour Docmarti,

Citation:

Envoyé par Docmarti

A mettre dans ThisWorkBook pour que le code s'exécute à l'ouverture du classeur :

Je ne peux le faire, parce que j'ai besoin de mettre à jour d’autres données dans le reste du classeur, et qui sont nécessaires pour le lancement du code dans le SpinButton.