VBA Message Box - DEBUTANT

Bonjour a tous,

Debutant sur VBA je souhaite avoir quelques lignes de code que je n'arrive pas a trouver...

J'ai crée un formulaire avec des TextBox et je souhaite

- forcer l'utilisateur a entrer des valeurs numériques (sinon Msg Box "entrez une valeur numérique")

Merci beaucoup d'avance !

bonjoru,

Avec ceci :

Private Sub CommandButton1_Click()
    'Début du code
    If Not IsNumeric(Me.TextBox1) Then
        MsgBox "erreur"
        Exit Sub
        Me.TextBox1 = ""
    End If
    'Reste du code
End Sub

J'ai mis ce code sur un bouton OK pour valider le formulaire mais on peut le mettre sur Private Sub TextBox1_AfterUpdate() pour l'activer dès qu'on quitte la zone de texte.

A adapter au nom de la zone de texte, TextBox1 dans mon exemple.

A+

Merci beaucoup !!!

Une autre petite demande :

- Est-il possible de faire en sorte que si la personne n'entre rien (ou le chiffre 0) cela affiche "NON" dans la base de données.

La base de données se trouve sur une autre feuille "db".

bonjour,

Pourquoi doublonner les postes, tu avait la réponse sur celui-ci !

https://forum.excel-pratique.com/excel/vba-message-box-debutant-t20041.html

Claude