Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

uniquement que des nombres dans un textbox

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
M

maximus57_291

XLDnaute Nouveau
bonjour,
j'ai créé un userform (pour une saisie de match de foot) avec plusieures texbox.
dans la 1ere textbox je saisi un nombre (de 1 à 150) et tous les autres se mettent à jour à partir d'un tableau dans une feuille (avec des fonctions match et index). quand je fais la premiere saisie tout va bien. mon probleme est que lorsque j'efface (blackspace) pour saisir le 2eme chiffre j'ai un bug.
je voudrai pouvoir effacer le dernier nombre, puis en saisir un nouveau sans ce bug.

si quelqu'un peut me venir en aide
maerci
 
Trier par date Trier par votes
Re : uniquement que des nombres dans un textbox

Bonjour Maximus, bonjour le forum,

Ha les boules Maximus ! j'en ai justement perdu une, en cristal celle-là... Du coup je ne peux plus deviner...
Plus sérieusement, comment t'aider sans voir le fichier ? Au pire le code...
 
Vote positif 0 Vote négatif
Re : uniquement que des nombres dans un textbox

Bonjour Robert,

oups pour le code :

Private Sub FA_MatchNum_Change()
Dim Equiv1 As Integer
Dim Arbitre As Variant
Dim Terrain As Variant
Dim Debut As Variant
Dim Fin As Variant
Dim Duree As Variant
Dim EquipeA As Variant
Dim EquipeB As Variant

Equiv1 = Application.Match(FA_MatchNum.Value, Range("'PRINCIPE_TOURNOI_REEL'!B1:B500"), 0)

FA_ArbitreNom = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 14)
FA_TerrainNum = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 12)
FA_Debut = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 10)
Me.FA_Debut.Value = Format(Me.FA_Debut.Value, "hh:mm")
FA_Fin = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 11)
Me.FA_Fin.Value = Format(Me.FA_Fin.Value, "hh:mm")
FA_Duree = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 7)
FA_EquipeA = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 3)
FA_EquipeB = Application.Index(Range("'PRINCIPE_TOURNOI_REEL'!A1:BZ500"), Equiv1, 4)

End Sub

PS : FA_MatchNum est le textbox correspondant au N° de match que je saisi et qui met a jour les autres textbox (FA_ ....)

Merci
 
Vote positif 0 Vote négatif
Re : uniquement que des nombres dans un textbox

Bonjour Maxumux, bonjour le forum,

Peut-être en rajoutant, après les déclarations de variables, la ligne :
Code: 
If FA_MatchNum.Value = "" Then Exit Sub
 
Vote positif 0 Vote négatif
Re : uniquement que des nombres dans un textbox

Bonjour Maximus, bonjour le forum,

Haaa, ça va mieux avec le fichier...
Rajoute ces quelques lignes :
Code: 
Private Sub FA_MatchNum_Change()
    Dim Equiv1 As Integer
    Dim VarMatch1 As Variant
    Dim Arbitre As Variant
    Dim Terrain As Variant
    Dim Debut As Variant
    Dim Fin As Variant
    Dim Duree As Variant
    Dim EquipeA As Variant
    Dim EquipeB As Variant
    Dim ctrl As Control 'déclare la variable ctrl (ConTRôLe)
    
        If FA_MatchNum = "" Then
            Me.BackColor = &H8000000F
            For Each ctrl In Me.Controls
                On Error Resume Next
                ctrl.Value = ""
                If Err <> 0 Then Err = 0
                On Error GoTo 0
            Next ctrl
            Exit Sub
        End If
        
        Equiv1 = Application.Match(FA_MatchNum.Value, Range("'PRINCIPE_TOURNOI_REEL'!B1:B500"), 0)
        'la suite...
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Ajout de zones dans un USF par VBA
2
Réponses
16
Affichages
353
jeff1494
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
585
NONO14
N
A
  • Question Question
XL 2019 Textbox nombre entier
Réponses
4
Affichages
1 K
ADS95
A
  • Question Question
XL 2019 Resolu avec efficacite : Afficher un nombre saisi dans une grille.
Réponses
7
Affichages
912
Bearn 64
  • Question Question
XL 2010 Rentrer un nombre formaté dans un TextBox
Réponses
13
Affichages
1 K
job75
M
  • Question Question
XL 2019 doublons dans une feuille de score et saisie des scores limiter a 50
2
Réponses
22
Affichages
2 K
Mimi1952
M
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
E
  • Question Question
XL 2016 Cadrage des nombres dans une ListBox
Réponses
6
Affichages
2 K
Eric_49
E
A
  • Question Question
XL 2010 erreur d'exécution 9 l'indice n'appartient pas à la sélection
Réponses
6
Affichages
6 K
_Thierry
D
  • Question Question
XL 2010 prédéfinir un modèle de saisir des dates dans un textbox
2
Réponses
15
Affichages
3 K
patricktoulon
A
  • Résolu(e)
Microsoft 365 Sélection une donnée dans une ComboList et les faire s'afficher dans des TextBox et les modifier
Réponses
4
Affichages
2 K
AppleDance
A
D
  • Question Question
XL 2016 Ecrire dans des textbox à la suite
Réponses
8
Affichages
678
dodineau
D
  • Question Question
XL 2010 VBA & UserForm : compléter des TextBox selon un choix dans ListBox
Réponses
9
Affichages
2 K
ChTi160
G
  • Question Question
Faire la somme de nombres cliqué dans un Userform
2
Réponses
18
Affichages
2 K
Gedch
G
D
  • Question Question
XL 2016 Additionné le total des textbox dans userform
Réponses
6
Affichages
1 K
dede869
D
D
  • Question Question
Userform en série => blocage dans la textbox en vba
Réponses
3
Affichages
1 K
davidme
D
  • Question Question
chiffres automatiques à la place des caractères spéciaux dans textbox
Réponses
2
Affichages
1 K
jecirbe
T
  • Question Question
Problème de rangement des valeurs TextBox en fonction des combobox
Réponses
7
Affichages
1 K
Paritec
P
  • Question Question
Saisir des donnés dans une textbox et validé par un bouton, pour creer une liste.
Réponses
7
Affichages
1 K
Bebere
B
  • Question Question
Coller un texte d'un textbox d'un Useform vers un label dans un autre Userform
Réponses
9
Affichages
3 K
Dranreb
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…