XL 2013 Ne admettre que les chiffres 1 à 8 !

Yusufu ibn Anurahi

XLDnaute Junior
Bonjour !
Je reviens avec cette autre demande d'expertise: J'ai conçu un formulaire de saisie des données. Je voudrais permettre la saisie dans la TextBox1 rien que les chiffres compris entre 1 et 8.
Par ailleurs, je voudrais qu'une fois les chiffres transféré sur ma feuille Excel ne prennent pas le format "texte" mais restent "nombre".
Comment m'en sortir ? Ci-joint, mon fichier. Merci pour votre aide !
Yusufu
 

Fichiers joints

mapomme

XLDnaute Barbatruc
Supporter XLD
Bonjour @Yusufu ibn Anurahi ,
Pour la saisie :
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < Asc("1") Or KeyAscii > Asc("8") Then KeyAscii = 0
End Sub
 
Dernière édition:

ChTi160

XLDnaute Barbatruc
Bonjour Yusufu ibn Anurahi
Bonjour le Fil (mapomme),le Forum
ou autre procédure parmi tant d'autres pour le contenu du TextBox.
pour le format il faut formater (Nombre)les cellules Cibles et par exemple mettre :
Cell(1,1)=Cbyte(TextBox1) ou Cell(1,1)= Val(TextBox1)
,non testé
Après avoir mis la propriété MaxLength du TextBox à 2 ou 1 selon but
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Si la valeur n'est pas comprise entre 1 et 9 et qu'elle n'est pas un backspace
      If Not ((KeyAscii >= 49 And KeyAscii <= 57) Or KeyAscii = 8) Then
            KeyAscii = 0      'on annule la pression sur la touche
      End If
End Sub
jean marie
 
Dernière édition:

Yusufu ibn Anurahi

XLDnaute Junior
Bonjour Yusufu ibn Anurahi
Bonjour le Fil (mapomme),le Forum
ou autre procédure parmi tant d'autres pour le contenu du TextBox.
pour le format il faut formater (Nombre)les cellules Cibles et par exemple mettre :
,non testé
Après avoir mis la propriété MaxLength du TextBox à 2 ou 1 selon but
VB:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
' Si la valeur n'est pas comprise entre 1 et 9 et qu'elle n'est pas un backspace
      If Not ((KeyAscii >= 49 And KeyAscii <= 57) Or KeyAscii = 8) Then
            KeyAscii = 0      'on annule la pression sur la touche
      End If
End Sub
jean marie
Bonjour ChTi160,
Merci pour tes propositions de solutions. Cependant je suis perdu dans le formatage des cellules cibles étant donné que mon tableau à remplir est dynamique.
Est-ce possible pour toi de donner un exemple sur le fichier attaché ? Je t'en saurais gré !
Yusufu
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,
Bonjour @ChTi160,

Une version plus complète:
  • Textbox1 ne peut contenir que des chiffres (pas de nombre) et de 1 à 8
  • Textbox2 est limité à des nombres avec virgule
  • Textbox3 est mis à jour automatiquement
  • Les formats à l'enregistrement sont tels que: colonne2 -> entier; colonne 3 -> nombre monétaire, colonne4 -> nombre monétaire
 

Fichiers joints

Dernière édition:

mapomme

XLDnaute Barbatruc
Supporter XLD
Re,
Du publipostage sur le même forum :mad:. C'est du grand n'importe quoi!
Veuillez copier les réponses d'une discussion sur l'autre sur l'autre (avec les fichiers) et supprimer celle qui ne servira plus à rien.
 

mapomme

XLDnaute Barbatruc
Supporter XLD
Re @Yusufu ibn Anurahi ;)

Savez-vous passer les messages d'une discussion à une autre ?
  • éditez le titre de la discussion qui ne devra plus être utilisée (du type "discussion à ne plus utiliser") - choisir la discussion la plus courte
  • copier le fichier du message à déplacer sur votre disque dur.
  • dans la discussion qu'on conserve, créer un nouveau message, indiquer le véritable répondant puis à la suite coller le texte du message à déplacer
  • joindre à ce nouveau message, le fichier sauvegardé précédemment sur votre disque
  • faire la même chose pour les autres messages à déplacer
Terminer par la suppression de la discussion devenue inutile. Si impossible, le signaler à l'administrateur pour qu'il supprime la discussion (via le liien Signaler sous la discussion à supprimer)

C'est plus vite fait qu'à expliquer.
 

Yusufu ibn Anurahi

XLDnaute Junior
Re @Yusufu ibn Anurahi ;)

Savez-vous passer les messages d'une discussion à une autre ?
  • éditez le titre de la discussion qui ne devra plus être utilisée (du type "discussion à ne plus utiliser") - choisir la discussion la plus courte
  • copier le fichier du message à déplacer sur votre disque dur.
  • dans la discussion qu'on conserve, créer un nouveau message, indiquer le véritable répondant puis à la suite coller le texte du message à déplacer
  • joindre à ce nouveau message, le fichier sauvegardé précédemment sur votre disque
  • faire la même chose pour les autres messages
Terminer par la suppression de la discussion devenue inutile. Si impossible, le signaler l'administrateur pour qu'il supprime la discussion.

C'est plus vite fait qu'à expliquer.
Merci beaucoup pour ces conseils. J'en ai besoin vraiment.
 

Discussions similaires


Haut Bas