Cela fait quelques temps que je ne suis pas venu et je trouve toujours ce forume excellent.
Par contre je ne trouve pas vraiment ce que je cherche.
J'ai pour commencé prix exemple sur un fichier existant ici "annu.xls" mais je ne comprends pas bien certaines choses.
J'ai donc créé mon propre fichier et je voudrai simpement que quand je valide ma textbox ca me mette le resultat dans les cases de ma feuille de calcul. Une fois que la première ligne est saisie il recherche si elle est vide ou pleine et si elle est pleine il positionne sur la cellule en dessous ?
Pouvez vous me donner un petit code sympa ?
Je vous avoue que je me casse la tete à chercher depuis 2 heures mais que je ne trouve pas mon bonheur.
Je vous joins mon fichier.
Cordialement à tous et à bientot j'espère
If Not IsNumeric(Right(TextBox1, 1)) And Right(TextBox1, 1) <> "," Then
MsgBox "Le caractere saisi n'est pas valide"
TextBox1 = Left(TextBox1, Len(TextBox1) - 1)
End If
ou en jouant sur les codes ascii
Code:
Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim pos As Byte
pos = InStr(TextBox1, ".")
If pos > 0 Then
If Len(Me.TextBox1) + 1 - pos = 2 Then Exit Sub
End If
Select Case KeyAscii
Case Asc(".")
Case Is < 48, Is > 57
KeyAscii = 0
End Select
End Sub
Le code de Jean Marcel ne fonctionne pas (ou alors je l'ai mal utilisé )
Le code ascii de jp fonctionne parfaitement. Impossible de taper du texte dans ces cases.
Merci encore..
Je paufine et je reviens vous proposer une version arrangée. Style avec la box restante en place jusqu'à la fin de la saisie (en effet cette appli sert à rentrer les contrats de la journée)
et un bouton pour finaliser la saisie, imprimer et enregistrer...