Mettre en attente une formule Résolu/Fermé

Question

Bonjour,

Voilà j'aimerais savoir s'il était possible de mettre en attente une formule car j'ai une erreur qui se génère à cause de ça. Je m'explique, j'ai une formule de multiplication de textbox avec cette ligne de commande:

Private Sub TextBox8_Change()

If Not IsNumeric(TextBox8.Text) Then
MsgBox "valeur numérique obligatoire", vbCritical, "AIDE"
End If

If UserForm2.TextBox7 <> "" Then
UserForm2.TextBox9 = UserForm2.TextBox7 * UserForm2.TextBox8
End If

If Me.TextBox7 = "" Then
MsgBox "remplir", vbExclamation, "AIDE"
End If

End Sub

Mais du fait de la ligne If UserForm2.TextBox7 <> "" Then quand j'efface une donnée dans la textbox 8 il me mets une erreur car il lance directement la formule. J'aimerais pouvoir effacer une donnée sur l'une des textbox sans que l'erreur s'affiche.

J'espère avoir été comprehensible

Merci d'avance

Utilisateur anonyme · Answer

Bonjour,

Suggestion :


Private Sub TextBox8_Change()

    If Not IsNumeric(TextBox8.Text) Then
        MsgBox "valeur numérique obligatoire", vbCritical, "AIDE"
    Else
        If UserForm2.TextBox7 = "" Then
            MsgBox "remplir", vbExclamation, "AIDE"
        Else
            UserForm2.TextBox9 = UserForm2.TextBox7 * UserForm2.TextBox8
        End If
    End If

End Sub
'

Lupin

Mettre en attente une formule

1 réponse

Discussions similaires

Newsletters