Probleme de création

[Arkonide51]

Bonjour à tous,

J'ai créer un UF avec : une zone texte "TxtTexte"
: un bouton de commande OK pour valider.
Je dois rentrer dans la zone texte un chiffre et seulement un chiffre et ceci plusieurs fois de suite.

QUESTIONS :

1°) Comment afficher le chiffre inscrit sur la liste d'un autre UF deja créer?

2°) Comment créer un Msgbox si une lettre a été tapée à la place d'un chiffre.

3°) Comment créer un Msgbox si le chiffre tapé là déja été precédement.

Suis je assez clair ?

Ne doutant pas de vos compétence,
D'avance merci

 

[kjin]

Re : Probleme de création

Bonsoir et bienvenue,
1 - mettre la valeur dans une variable publique entre autre, mais sans précision...
2 et 3 - Impossibilité de saisir autre chose que des chiffres et sans doublon (pas de message)

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    If InStr("0123456789", Chr(KeyAscii)) = 0 Then KeyAscii = 0
    If InStr(TextBox1, Chr(KeyAscii)) > 0 Then KeyAscii = 0
End Sub

A+
kjin

 

[Arkonide51]

Re : Probleme de création

Bonjour et merci,

J'ai quand meme un probleme, la formule fontionne, mais le numero tapé s'inscrit en dessous de son identique.
je me retouve avec :
1
1
2
3
4

 

[kjin]

Re : Probleme de création

Bonsoir,
Y a t-il une question derrière ton message ?
A+
kjin

 

[Arkonide51]

Re : Probleme de création

Pas de question apres le message, je voudrais juste pouvoir continuer a choisir un nombre pour la question 3 les autres marchent.

Voila une partie de ma macro, mais je ne sais plus quoi faire pour continuer apres la msgbox ??

Private Sub BtOK_Click()
Dim i As Integer
Dim N1
If mTable(0).Table <> 0 Then 'Pour détecter le 1er

For i = 0 To NbFact
If mTable(i).Table = TxtTable Then
'Stop 'Doublon sur le nombre à traiter
MsgBox "Entrée invalide - nombre déja entré"

End If

Next i
N1 = NbFact
NbFact = NbFact + 1
ReDim Preserve mTable(NbFact)
ReDim Preserve Facture(MaxLigneFacture, NbFact)
ReDim Preserve NBLigFact(NbFact)

End If
NumTable = NbFact
mTable(NumTable).Table = TxtTable

Choix1 = 1
Unload Me
End Sub

merci