Problème de textbox VBA

Fermé

combaj - 5 nov. 2007 à 12:03
combaj - 5 nov. 2007 à 21:52

Bonjour,
comment valider le contenu d'une textbox avec la touche "entrée"dans VBA ?
J'utilise l'événement change, mais il valide chaque caractère tapé au clavier,
et non pas l'ensemble.
Voici mon script :

Private Sub Rep1_change()
Vrep1 = Rep1.Value
If Vrep1 = Vnb1 * Vnb2 Then Comment.Value = "Bravo" Else Comment.Value = "Raté"
End Sub

Merci de votre réponse
Cordialement.
Combagj

A voir également:

Problème de textbox VBA
Vba attendre 1 seconde ✓ - Forum VB / VBA
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Incompatibilité de type vba ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

Utilisateur anonyme
5 nov. 2007 à 13:16

Bonjour,

Exemple :

<ocde>
Private Sub tbx_Saisie_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If (KeyAscii <> "13") Then
' Touche Enter appuyer
' ...
End If

End Sub
'
</code>
Lupin

Réponse 2 / 5

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
5 nov. 2007 à 12:10

Bonjour,

Essaye ton code sur l'evenement Exit de la TextBox.

Réponse 3 / 5

tarek_dotzero Messages postés 817 Date d'inscription jeudi 19 juillet 2007 Statut Membre Dernière intervention 12 avril 2022 122
5 nov. 2007 à 13:41

Slt,
Je ne sais pas pour VBA, mais en VB il y a l'evenement lostfocus.

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
5 nov. 2007 à 13:55

L'événement lostfocus en VB est équivalent à l'événement Exit en VBA

Réponse 4 / 5

combaj
5 nov. 2007 à 19:47

Merci Lupin je vais essayer.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

combaj
5 nov. 2007 à 19:49

j'ai essayé avec l'événement exit, cela n'a pas marché, je ne rentrais jamais dans l'événement.

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
5 nov. 2007 à 20:07

Ton TextBox est sur une UserForm ou bien sur une feuille Excel ???

combaj > ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009
5 nov. 2007 à 20:59

Ma textbox est sur excel directement

ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50 > combaj
5 nov. 2007 à 21:11

as tu essayé la méthode de Lupin ?

combaj > ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009
5 nov. 2007 à 21:52

Non pas encore mais je vais le faire dès que possible.
Pour l'instant Je dois partir je posterai les résultats quand ça marchera.
Le solution est sans doute d'analyser chaque lettre qui passe et d'intercepter le Chr 13.
Merci de vos contributions.
Cordialement.
Combaj

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

[VBA] format de date dans textbox

bonjour

voila j'aimerai savoir comment forcer en VBA sous excel , un utilisateur a mettre une date au format jjmmyy car si par exemple j'ecris 222 dans la textbox il me fais la conversion

je veux que l'utilisateur soit obliger de mettre par exemple 151205 qui sera converti en 15/12/2005

actuellement j'ai ca pour le formatage de la date en 15/12/2005

TXT_du = Left(TXT_du, 2) & "/" & Mid(TXT_du, 3, 2) & "/" & Right(TXT_du, 2)

merci a vous

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...