Problème avec différents boutons en VBA

Version imprimable

Bonjour à toutes et à tous,

Voilà j'utilise des userforms mais j'ai un petit souci. J'ai 3 boutons dans un 1er userform. J'aimerai que le choix du bouton soit pris en compte et que l'une des cellules de ma feuille 1 soit modifiée en fonction du choix du bouton.
J'ai essayé ceci mais le clic sur l'un des bouton n'affecte rien.
Code:

1 2 3 4 5 6 7 8 9 If userform4.CommandButton1 = True Then Sheets("feuil1").Range("A2").Value = Sheets("feuil1").Range("A2").Value - Sheets("feuil2").Range("B2").Value End If If userform4.CommandButton2 = True Then Sheets("feuil1").Range("A3").Value = Sheets("feuil1").Range("A3").Value - Sheets("feuil2").Range("B2").Value End If If userform4.CommandButton3 = True Then Sheets("feuil1").Range("A4").Value = Sheets("feuil1").Range("A4").Value - Sheets("feuil2").Range("B2").Value End If
L'utilisation d'une variable serait peut-être l'une des solution mais je ne sais où l'utiliser.

Merci d'avance pour votre aide.

Cordialement

Bonjour,
c'est dans ton UserForm4 que ça ce passe!

Code:

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
Sheets("feuil1").Range("A2").Value = Sheets("feuil1").Range("A2").Value - Sheets("feuil2").Range("B2").Value
End Sub
Private Sub CommandButton2_Click()
Sheets("feuil1").Range("A3").Value = Sheets("feuil1").Range("A2").Value - Sheets("feuil2").Range("B2").Value
End Sub
Private Sub CommandButton3_Click()
Sheets("feuil1").Range("A4").Value = Sheets("feuil1").Range("A2").Value - Sheets("feuil2").Range("B2").Value
End Sub

01/07/2013, 15h04
Eleanor

Ma valeur est modifiée. Le problème est que la valeur dans B2 arrive après le clic sur le bouton désiré. Du coup il y a un décalage à chaque fois.
Dans l'ordre, je clique sur l'un des boutons, puis une valeur va être attribuée à la cellule B2 (exemple 20), mais la première fois, A2 ou A3 ou A4 n'est pas modifié (car le bouton a déjà été cliqué).
Si je refais le test, exemple avec le bouton2, ma valeur en A3 sera bien changée, mais avec la valeur 20 du premier clic :s.

Merci pour ta réponse rapide.
01/07/2013, 15h07
EngueEngue

Incomprehensible :)
01/07/2013, 15h11
Eleanor

Je reprends :).

J'ai un premier userform avec 3 boutons. Puis en demandant à l'utilisateur des valeurs, l'une d'elle ira dans la cellule B2 d'une feuille. Je souhaiterai récupérer cette valeur, et la soustraire d'une cellule dans une autre feuille. Mais la cellule à modifier dans cette feuille (A2, A3, ou A4) dépend du choix du bouton de départ.
Est-ce mieux?

Encore pardon pour cette incompréhension.

Code:

1
2
3
4
5
6
7
8
9
Private Sub CommandButton1_Click()
MyVarPublic=1
End Sub
Private Sub CommandButton2_Click()
MyVarPublic=2
End Sub
Private Sub CommandButton3_Click()
MyVarPublic=3
End Sub

Code:

1
2
3
4
5
6
7
8
Select Case MyVarPublic
    Case 1
        Sheets("feuil1").Range("A2").Value = Sheets("feuil1").Range("A2").Value - Sheets("feuil2").Range("B2").Value
    Case 2
        Sheets("feuil1").Range("A3").Value = Sheets("feuil1").Range("A3").Value - Sheets("feuil2").Range("B2").Value
    Case 3
        Sheets("feuil1").Range("A4").Value = Sheets("feuil1").Range("A4").Value - Sheets("feuil2").Range("B2").Value
End Select

01/07/2013, 15h35
Eleanor

J'ai essayé avec ceci.
Faut-il déclarer la variable myvarpublic dans l'userform et dans le code de la feuille?

Parce que je viens d'essayer et cela ne modifie pas A2 ou A3 ou A4. J'ai mis une msgbox de myvarpublic pour connaître la valeur qu'elle contient mais la msgbox est vide.

Merci pour votre aide.
01/07/2013, 15h49
Invité

il faut effectivement déclarer la variable c'est pourquoi je l'ai appelé MyVarPublic.
si tu la déclare dans un userform, elle sera public mais via le userfom:

Code:

UserForm1.MyVarPublic=10

je de suggère d'insérer un module que tu utilise que pour les variables publics:

Code:

Public MyVarPublic as integer
01/07/2013, 16h12
Eleanor

J'ai déclaré cette variable dans l'userform où il y a mes 3 boutons comme ceci au début de mon code :

Code:

Public myvarpublic As Integer

Juste après avoir cliqué, je récupère bien dans une msgbox 1, 2 ou 3 suivant le clic.
Mais un peu plus loin, lorsque je souhaite revoir la valeur de myvarpublic j'ai la valeur 0 dans ma msgbox :s.

j'ai bien mis dans mes différents boutons myvarpublic = .
Mais il ne récupère pas 1, 2 ou 3.
Et lorsque j'appelle ma msgbox, si je mets userform.myvarpublic, il me sors une msgbox vide.

Merci de ton aide.
01/07/2013, 16h23
Invité

tu as pas bien lue ce que je t’avais dit si tu déclare dans une UserForm, ta variable sera visible userform4.myvarpublic.
je te renouvelle ma suggestion de ne pas mettre cette variable dans un UserFom mais dans un module dédié aux variables public.
01/07/2013, 16h34
Eleanor

J'ai mis ma variable dans un module et ça fonctionne parfaitement.

Merci pour ton aide efficace et rapide
01/07/2013, 16h46
Didier Gonard

Bonjour,

Citation:

Envoyé par Eleanor

J'ai déclaré cette variable dans l'userform où il y a mes 3 boutons comme ceci au début de mon code :

Code:

Public myvarpublic As Integer

En VBA, une variable "Public" doit être déclarée dans un module standard et jamais dans un module Objet tel que de feuille, de classeur ou de UserForm.

Ces modules sont des pseudos-modules de classe et une variable Public dans un module de ce genre représente en fait une propriété de la classe concernée. Donc on peut déclarer une variable Public dans un module Objet, mais elle ne représente pas du tout ce à quoi on pense en parlant de variable Public au niveau de base du VBA. Le seul moyen de l'utiliser en dehors du module objet serait de préfixer son nom avec celui de l'objet lié (normal car comportement de propriété), mais c'est une autre histoire et il faut maîtriser les concepts afférents.

cordialement,

Didier