Discussion :

[amerex]

Bonjour!
Une petite question, toute simple, je l'espère:
Je demande une valeur à l'aide d'une inputbox. Voici mon code:

Code :

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

var2 = InputBox("Entrez le solde à ajouter." & vbNewLine & vbNewLine & "Solde actuel: " & var1 & "$", "Modifier un solde")

J'aimerais savoir s'il est possible de faire savoir à VBA que lorsque l'utilisateur clique sur annuler ou ferme l'input box, de ne rien faire, plutôt que de démarrer le débugger...?

Merci

[Tofalu]

Bonjour,

Que penses tu de :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
var2 = InputBox("Entrez le solde à ajouter." & _
                vbNewLine & vbNewLine & "Solde actuel: " & _
                var1 & "$", "Modifier un solde")
 
If StrPtr(var2) = 0 Then
    MsgBox "Vous avez annulé"
ElseIf var2 = "" Then
    MsgBox "Vous n'avez rien saisi"
Else
    MsgBox "Vous avez saisi " & var2
End If

[amerex]

Je viens d'essayer de l'insérer dans mon code... le debugger s'active...
Je vous place mon code entier pour cette macro...:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Dim var1 As Currency
Dim var2 As Currency
Dim var3 As Currency
 
var1 = Sheets("_depemp").Range("B2").Value
var2 = InputBox("Entrez le solde à ajouter." & _
                vbNewLine & vbNewLine & "Solde actuel: " & _
                var1 & "$", "Modifier un solde")
 
If StrPtr(var2) = 0 Then
    MsgBox "Vous avez annulé"
ElseIf var2 = "" Then
    MsgBox "Vous n'avez rien saisi"
Else
    MsgBox "Vous avez saisi " & var2
End If
var3 = var1 + var2
Sheets("_depemp").Range("B2").Value = var3
MsgBox ("Un ajout de " & var2 & "$ a été ajouté, montant le solde à " & var3 & "$ .")
Label51.Caption = ""
Label51.Caption = var3

Le debugger accroche à la saisie de la variable "var2"... à l'inputbox :S

[Tofalu]

Faut adapter de telle sorte que le traitement ne soit lancé que lorsque queleque chose est saisi, sans quoi ça ne sert à rien

De plus, Var2 doit être de type string pour que strptr fonctionne

[amerex]

Génial, ça fonctionne, j'ai changé le type de variable et j'ai spécifié un "END", de sorte que la macro ne continue pas les opérations. Mon code est celui ci-bas. MERCI beaucoup! Il me reste maintenant qu'à modifier les 51 autres macros haha!!

Code :

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

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
Private Sub Label51_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
Dim var1 As Currency
Dim var2 As String
Dim var3 As Currency
 
var1 = Sheets("_depemp").Range("B2").Value
var2 = InputBox("Entrez le solde à ajouter." & _
                vbNewLine & vbNewLine & "Solde actuel: " & _
                var1 & "$", "Modifier un solde")
 
If StrPtr(var2) = 0 Then
    MsgBox "Vous avez annulé"
    End
ElseIf var2 = "" Then
    MsgBox "Vous n'avez rien saisi"
    End
Else
    MsgBox "Vous avez saisi " & var2
End If
var3 = var1 + var2
Sheets("_depemp").Range("B2").Value = var3
MsgBox ("Un ajout de " & var2 & "$ a été ajouté, montant le solde à " & var3 & "$ .")
Label51.Caption = ""
Label51.Caption = var3
End Sub