laeh
Messages postés5Date d'inscriptionlundi 16 avril 2012StatutMembreDernière intervention21 mai 2012
-
18 avril 2012 à 18:58
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024
-
18 avril 2012 à 20:07
Bonjour,
je débute et je cherche à simplifier ce code qui demande à valider par un bouton commande Validation et à ranger la valeur d'une textBox dans la cellule A1 si la valeur est comprise entre 0,1 et 3
Private Sub CmdValidationTexBox_Click()
If ([TexBox1].Value = "") Then
Range("A1") = ""
Else
If ([TexBox1].Value > 3) Then
Range("A1") = ""
MsgBox "Veuillez entrer une donnée inférieure à 3"
Else
Range("A1") = TexBox1
If ([TexBox1].Value < 0) Then
Range("A1") = ""
MsgBox "Veuillez entrer une donnée supérieure à 0"
Else
Range("A1") = TexBox1
End If
End If
End If
End sub
Sachant que j'ai une vingtaine de Texbox pour ce même bouton de validation.
Si quelqu'un avait une solution, ce serait vraiment gentil de m'aider car je tourne en rond alors que j'imagine qu'il existe quelque chose de très simple et de rapide.
Merci d'avance,
cordialement,
Lea
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024159 18 avril 2012 à 19:48
Bonjour,
Tu peux faire une fonction qui aurait en paramètre la TextBox à vérifier.
As-tu regardé les opérateurs And, Or, ... ?
Et si l'utilisateur entre des lettres ?
Utilises IsNumeric.
Quel est ton en environnement de dev ? Car tu dis que c'est du .NET alors que je ne pense pas que ce soit le cas.
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site
NHenry
Messages postés15113Date d'inscriptionvendredi 14 mars 2003StatutModérateurDernière intervention22 avril 2024159 18 avril 2012 à 20:07
Bonjour,
De rien :)
Message déplacé, prends note de la catégorie.
---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : )
[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualVasic (onglet Références dans les propriétés du projet).
[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés./list ---
Mon site
laeh
Messages postés5Date d'inscriptionlundi 16 avril 2012StatutMembreDernière intervention21 mai 2012 18 avril 2012 à 20:02
Bonjour,
c'est gentil de me répondre aussi rapidement,
effectivement, c'est VBA et non du .net.
Merci de me guider vers une fonction, je vais donc me lancer pour réaliser ma première fonction, en suivant tes conseils avec les "And", "or" et "is numeric"