Bonjour ! Je pense mon problème assez simple, je n'ai juste pas la bonne formulation. Je m'explique.

J'ai pas mal de Textbox dans mon form. J'ai une fonction qui me permet de vérifier s'ils sont "IsNumeric" ou pas. Si pas "IsNumeric" > msgbox(err).

Jusque là ça va. Mais je me suis aperçu qu'il me mettais aussi une erreur si le/les textbox étaient vides. Donc vide pour lui c'est idem que pas "IsNumeric".

Voici ma fonction très pratique : (qui marche bien!)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Not Double.TryParse(txt.Text, i) Then Return False
            Catch
            End Try
        Next
        Return True
    End Function
Comment est ce que je pourrai la modifier / ajouter pour qu'il me laisse tranquille si le textbox est vide ?
Parce que ça par exemple ça ne fonctionne pas : (oui je fais beaucoup de feeling...) :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Function IsAllTextBoxNumeric(ByVal conteneur As Control)
        Dim i As Integer
        For Each txt As TextBoxBase In conteneur.Controls.OfType(Of TextBoxBase)()
            Try
                If Not Double.TryParse(txt.Text, i) Or Not Nothing.TryParse(txt.Text, i) Then Return False
            Catch
            End Try
        Next
        Return True
    End Function
Et du coup mon code appelant :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
ElseIf Not IsAllTextBoxNumeric(Panel_controlX) Then
          MsgBox("Il y a des entrées non numériques, veuillez vérifier.")

Merci !