Discussion :

[Eleanor]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[EngueEngue]

Incomprehensible

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

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

UserForm1.MyVarPublic=10

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public MyVarPublic as integer