Input Box

A

Abel

Guest

• 10 Septembre 2004

• #2

Bonjour Charles,

Pourtant, ça fonctionne bien chez moi.

Sub gfjh()
ligne = InputBox("vjhc", , "vsjh")
If ligne = "" Then MsgBox ("sgh")
End Sub

Je mets un message par défaut car si tu dis OK sur une entrée vide, ce sera cosidéré comme une annulation. Ce qui peut ne pas être le but recherché.

Abel

 

Vote positif 0 Vote négatif

C

Charles

Guest

• 10 Septembre 2004

• #3

Merci Abel.

ligne est déclaré en Integer chez moi. Il me met une erreur d'incompatibilité type lorsque je mets If ligne = "" ...

Charles

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 10 Septembre 2004

• #4

Bonjour Charles et Abel

regarde ce lien qui date d'hier avec en fin de fil une façon de faire pour une déclaration en integer

Lien supprimé

Pascal

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Septembre 2004

• #5

Re,

"" est du texte.

ligne doit-il être obligatoirement déclaré en Integer ?
Si non, déclare le en Variant.

Abel

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 10 Septembre 2004

• #6

re

Cela te donnerait à peu près cela

Dim ligne As Integer
On Error Resume Next
ligne = InputBox("Entrer le numéro de ligne : ", "Modification", , 100, 100)
If ligne = 0 Then MsgBox "il ya une erreur"

ou si tu veux dans ce cas revenir à l'inputbox

Dim ligne As Integer
Debut:
On Error Resume Next
ligne = InputBox("Entrer le numéro de ligne : ", "Modification", , 100, 100)
If ligne = 0 Then
MsgBox "il ya une erreur"
GoTo Debut
End If

Pascal

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Septembre 2004

• #7

Charles, Pascal,

Oups !
Pardon Pascal, on se croise.

Ta solution est aussi intéressante pour éviter les réponses erronées.

Abel

 

Vote positif 0 Vote négatif

C

Charles

Guest

• 10 Septembre 2004

• #8

Merci beaucoup pour votre aide !

Ca marche parfaitement.

Encore merci et très bonne journée,

Charles

 

Vote positif 0 Vote négatif

C

Charles

Guest

• 10 Septembre 2004

• #9

Juste une précision,

A quoi correspond ce
"On Error Resume Next" ?

Merci

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Septembre 2004

• #10

Re,

On Error Resume Next permet de continuer l'exécution d'un programme à la suite d'une erreur.

Le programme va à la ligne qui suit celle qui provoque l'erreur.

Abel

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 10 Septembre 2004

• #11

Re

en gros cela veut dire en cas d'erreur continue

Donc si tu appuies sur ton bouton annuler il te renvoie "" ou si tu tapes un nombre non entier, comme tu as déclaré ligne en integer cela te donne une erreur (d'incompatibilté de type). Mais comme tu lui as dit de continuer il te mets ligne à 0 et là tu traites ce résultat.

Pascal

 

Vote positif 0 Vote négatif

P

Pascal76

Guest

• 10 Septembre 2004

• #12

oups Abel

sur ce coup tu fus (spécialement pour André que j'utilise le passé simple) plus rapide

Pascal

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Septembre 2004

• #13

Re,

Dans l'exemple de Pascal, "ligne" est déclaré en tant que "Integer".

La ligne de code "ligne = InputBox("Entrer le numéro de ligne : ", "Modification", , 100, 100)" va donc attendre un "Integer".

Si tu cliques sur "Annuler", la fonction Inputbox va renvoyer "" qui est du texte.
D'où une incompatibilité de type et l'apparition d'un message d'erreur.

"On Erreur Resume Next", dans ce cas, précise au programme qu'il n'a qu'à se contenter du zéro que lui retourne la fonction Inputbox en cas d'annulation. Et p'is c'est comme ça.

Cela permet donc de conserver "ligne" en tant que "Integer", si c'est important pour la suite de ton programme, et de tester si "ligne" est égale à zéro.

Mets une apostrophe devant la ligne "On Error...." et fais une exécution pas à pas (F8 quand tu es dans VBE) avec une annulation sur la demande de l'Inputbox et regarde ce qui se passe.


En espérant ne pas avoir raconté trop de conneries.

Abel

 

Vote positif 0 Vote négatif

C

Charles

Guest

• 10 Septembre 2004

• #14

Voilà qui est clair. Merci pour votre promptitude.

Pour la petite histoire, j'ai programmé pas mal en C et même VB. Autant l'algorithmie ne pose pas de problèmes (c'est souvent très simple aussi, il faut bien l'avouer ! ), autant j'ai toujours des problèmes de syntaxe en VB. Je ne sais jamais quoi utiliser ... manque de pratique sûrement. Par exemple, je n'ai toujours pas compris le passage d'une feuille à l'autre avec les Select, Activate ... c'est très flou dans ma tête.
Peut-être existe t-il un site qui reprend clairement les points essentiels ?!

Charles

 

Vote positif 0 Vote négatif

A

Abel

Guest

• 10 Septembre 2004

• #15

Re,

Pascal, décidément.....

Hi, hi

Abel

ps : 'suis pas sûr qu'y fassent la Duvel en fût (Arf !)

 

Vote positif 0 Vote négatif