XL 2013 Ne admettre que les chiffres 1 à 8 !

[Joseph Haroun]

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

 

[mapomme]

Bonjour @Yusufu ibn Anurahi ,
Pour la saisie :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < Asc("1") Or KeyAscii > Asc("8") Then KeyAscii = 0
End Sub

 

[Joseph Haroun]

Bonjour @Yusufu ibn Anurahi ,
Pour la saisie :

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
  If KeyAscii < Asc("1") Or KeyAscii > Asc("8") Then KeyAscii = 0
End Sub

Merci infiniment, Mapomme ! Je cours vite essayé les deux solutions.
Bonne journée et à tout de suite !
Yusufu

 

[ChTi160]

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

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

 

[Joseph Haroun]

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

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

 

[Joseph Haroun]

Merci infiniment, Mapomme ! Je cours vite essayé les deux solutions.
Bonne journée et à tout de suite !
Yusufu

Salut Mapomme,
J'ai essayé tes solutions ; ça marche ! Merci infiniment.
Merci également à tous les autres qui se sont manifestés pour moi.

 

[Paf]

Bonjour à tous,

et voir les propositions dans la deuxième discussion ouverte !!! ça fait toujours plaisir.
deuxième discussion

 

[mapomme]

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

 

[mapomme]

Re,
Du publipostage sur le même forum 😡. 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.

 

[Joseph Haroun]

Re,
Du publipostage sur le même forum 😡. 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.

Pardon !

 

[mapomme]

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.

 

[Joseph Haroun]

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.

 

[mapomme]

Merci beaucoup pour ces conseils

Si ça ne marche pas, je peux en faire une partie (me le demander).
Mais je ne peux pas modifier le titre de la discussion à supprimer, seul vous pouvez le faire.
A+

 

[Joseph Haroun]

Si ça ne marche pas, je peux en faire une partie (me le demander).
Mais je ne peux pas modifier le titre de la discussion à supprimer, seul vous pouvez le faire.
A+

D'accord !