kam

  • Initiateur de la discussion inputBox
  • Date de début
I

inputBox

Guest
Bonsoir à tous
Ex : si je tape 15 dans l’imputbox1 au lieu de taper 10, et j’ai confirmé avec entrée
Est-il possible de retourner à l’imputbox 1 ou 2 ou 3 et annuler la valeur tapé
Merci d’avance à tous [file name=imputbox.zip size=7944]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/imputbox.zip[/file]
 

Pièces jointes

  • imputbox.zip
    7.8 KB · Affichages: 8

Temjeh

XLDnaute Accro
Supporter XLD
Bonjour

C'est difficile un Undo sur inputbox.

Regarde ceci avec userform

Temjeh [file name=Test_20060527205558.zip size=11890]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060527205558.zip[/file]
 

Pièces jointes

  • Test_20060527205558.zip
    11.6 KB · Affichages: 9

CBernardT

XLDnaute Barbatruc
Bonsoir Kam et Temjeh,

Une version avec inputBox et MsgBox, ainsi que des boucles pour gérer les 3 valeurs.

Cordialement

Bernard [file name=GestionInputboxV1.zip size=10945]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionInputboxV1.zip[/file]
 

Pièces jointes

  • GestionInputboxV1.zip
    10.7 KB · Affichages: 7

CBernardT

XLDnaute Barbatruc
Re,

Une macro plus propre et des indications.

Salut

Bernard [file name=GestionInputboxV1_20060527221815.zip size=12870]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/GestionInputboxV1_20060527221815.zip[/file]
 

Pièces jointes

  • GestionInputboxV1_20060527221815.zip
    12.6 KB · Affichages: 8

Temjeh

XLDnaute Accro
Supporter XLD
Rebonsoir

Bravo! CBernardT une job de pro!

2 solutions pour le même prix

A=

Temjeh

Ps: Si tu me permet on peut modifié pour forcer les valeurs numéric sinon bug!!

Re: ' Boucle en cas de correction
' Boucle des 3 valeurs
For i = 1 To 3
retour:
Valeur = InputBox('Tapez le Taux de la Valeur ' & i, 'SAISIE DES DONNEES')
If IsNumeric(Valeur) Then
Tablo(i, 1) = Valeur ' Mise en mémoire des 3 valeurs
Else
MsgBox 'Pas de lettres ou de vide'
GoTo retour
End If
Next i



Message édité par: temjeh, à: 28/05/2006 00:13
 

Discussions similaires

Statistiques des forums

Discussions
312 838
Messages
2 092 669
Membres
105 482
dernier inscrit
Eric.FKF