VBA Débutant

[StephGuerain]

Bonjour à tous,

Voilà j'ai une question car je me lance à apprendre le VBA sous excel car je pense que cela pourra m'apporter beaucoup de choses.

J'ai trouvé un site qui m'a l'air pas mal pour le début

Formation gratuite en Visual Basic

Seulement il n'y a pas de répondant que je me pose des questions donc je viens ici faire appel à des experts pour qui ce language n'est plus un secret.

En fait j'ai voulu Créer 2 InputBox une qui où il faudra mettre soit de l'alphabétique ou du numérique et l'autre que du numérique et si jamais dans l'inputbox numérique la personne met du variable avoir un message qui lui précise qu'il faut une valeur numérique obligatoire et lui redonner la chance de saisir du numérique.

Voilà le code que j'ai commencé mais je bloque au niveau du Ifnumérique merci à vous de m'aider et de m'expliquer le pkoi du comment

Sub InputBox1()
'
' Cette macro montre comment entrer une valeur dans une boîte de dialogue


'
Dim strNom As String 'Permet de renseigner n'importe quelle valeur
Dim intNote As Integer 'Uniquement une valeur numérique

strNom = InputBox("Entrez le nom de l'étudiant")
intNote = InputBox("Entrez la note")

End If IsNumeric(intNote = InputBox("Entrez la note")) Then



End Sub


Merci à vous de votre aide mes chers professeurs

 

[phlaurent55]

Re : VBA Débutant

Bonjour steph,

il y a déjà ci-dessous quelque chose qui ne peut fonctionner
End If ne peut être suivi par une autre instruction sur la même ligne

End If IsNumeric(intNote = InputBox("Entrez la note")) Then

Bonne journée

 

[fhoest]

Re : VBA Débutant

bonjour, steph,phlaurent55
si cela peut déja t'aiguiller voici un petit exemple:
Dim numero As String
ici:
numero = InputBox("saisissez une valeur numérique")
If IsNumeric(numero) = False Then
numero = ""
GoTo ici
End If
A bientot

 

[StephGuerain]

Re : VBA Débutant

Bonjour phlaurent55,

Merci pour ta remarque. je prends note

Stéphane

 

[StephGuerain]

Re : VBA Débutant

Bonjour Fhoest,

J'ai testé ton code macro je comprends ce qui est fait dedans, mais en fait je veux vraiment que ma macro ré-affiche l'input box tant que le valeur entré n'est pas du numérique et à chaque fois que je ne rentre pas de valeur numérique il me mette un message du type "Attention Valeur Numérique obligatoire" et réouvre l'inputbox

Merci

Stéphane

 

[fhoest]

Re : VBA Débutant

c'est ce qui est fait dans le code il suffit jste d'insérer un msgbox
Dim numero As String
ici:
numero = InputBox("saisissez une valeur numérique")
If IsNumeric(numero) = False Then
msgbox"Attention valeur numérique obligatoire
numero = ""
GoTo ici
End If
A+

 

[Pierrot93]

Re : VBA Débutant

Bonjour à tous

une autre solution, utiliser la méthode "inputbox" plutôt que la fonction...

Dim n As Integer
n = Application.InputBox("saisir un code", , , , , , , 1)

bonne journée
@+