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

Forcer une valeur dans une TextBox

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion J-c
  • Date de début Date de début

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
J

J-c

XLDnaute Junior
Bonsoir à tous

J'utilise ce code pour modifier une base de donné:

Private Sub CommandButton1_Click()
Dim i As Integer, LigClt As Long, NumClt As Integer
If MsgBox("Voulez-vous valider cette modification", vbYesNo) = vbYes Then
' Récupérer le numéro du client inscrit dans TextBox4
NumClt = Me.TextBox4.Value
'
On Error Resume Next
LigClt = 0
' Trouver la ligne du numéro du client
LigClt = Sheets("Feuil2").Columns("D: D").Find(What:=NumClt, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
On Error GoTo 0
' Compléter les données pour chaque colonne
For i = 2 To 15
Sheets("Feuil2").Cells(LigClt, i).Value = Me.Controls("textbox" & i)
Next i
End If
Unload Me
End Sub


Et je voudrais imposer la valeur "0" (Zéro) dans la TextBox 15, ce qui correspond à la colonne "o" de ma "Feuil2" ou bien renvoyer la valeur (Zéro) dans la colonne "o" de la ligne selectionné, mais je ne vois pas comment faire.
Pouvez vous m'aider ?
Cdlt J-C
 
Trier par date Trier par votes
Re : Forcer une valeur dans une TextBox

Bonsoir J-c,

J-c à dit:
Je voudrais imposer la valeur "0" (Zéro) dans la TextBox 15
Cliquez pour agrandir...

Sans modification de ta macro, juste en touchant les propriétés de ta TextBox15 :
Ligne : "Text" écrire 0 -> ta TextBox contiendra ainsi la valeur 0 par défaut
Ligne : "Locked" écrire "True"-> ainsi l'utilisateur ne pourras rien saisir dans la TextBox15, ni modifier la valeur déjà saisie.

Bon grand WE
 
Vote positif 0 Vote négatif
Re : Forcer une valeur dans une TextBox

Bonjour à tous

Merci pour cette réponse, mais dans ce cas, cela ne fonctionne pas, car j'utilise ce code pour modifier une base de Donnée, et l'lorsque j’effectue une recherche et alimente les TextBox, le 0 (Zéro) de la TextBox 15 est remplacé par la valeur qui ce trouve dans la colonne concerné.

Je suis contrains pour le moment à une saisie manuelle😱

Mais dans ce cas serrait-il possible de modifier le code ( avec une foction (If))pour que l' on ne puisse valider les modif que si la TextBox 15 contien la valeur 0 (Zéro) avec un message d'averticement si ce n'est pas le cas
Cdlt J-C
 
Vote positif 0 Vote négatif
Re : Forcer une valeur dans une TextBox

Bon 1er Mai à vous,
C'est pourtant pas le jour de se prendre la tête ...mais quand on aime ça ! ! !
Sans toucher les textBox
Code: 
For i = 2 To [B][COLOR="Red"]14[/COLOR][/B]
Sheets("Feuil2").Cells(LigClt, i).Value = Me.Controls("textbox" & i)
Next i
End If
'si ancienne donnéeà remettre à zero 
[B]Sheets("Feuil2").Cells(LigClt, 15)=0[/B]
Unload Me
End Sub
 
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

K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
600
KRUG WOO
K
F
  • Question Question
Microsoft 365 Problème mémoire insuffisante
Réponses
5
Affichages
696
TooFatBoy
N
  • Question Question
Microsoft 365 gestion de kilometrage
Réponses
4
Affichages
238
nabilexcel2007
N
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
2 K
Dranreb
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
338
Electron24
M
  • Résolu(e)
Microsoft 365 Trouver une valeur dans une colonne
Réponses
7
Affichages
192
mikeduff
M
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
446
sylvanu
U
  • Question Question
Autres [RÉSOLU] macro à modifier
Réponses
1
Affichages
495
un internaute
U
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
1 K
Gestionnaire_rh
G
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
3 K
francescofrancesco
F
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
939
tnion
T
T
  • Résolu(e)
Microsoft 365 Tester si un fichier est ouvert dans OneDrive
Réponses
2
Affichages
184
ThierryP
T
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
554
kiki29
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
984
Webperegrino
W
  • Question Question
Microsoft 365 datepicker dynamique intra userform ou dans feuille 2 versions(frame dynamique)(toute version d'excel )
6 7 8
Réponses
105
Affichages
3 K
Usine à gaz
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
1 K
CortoXls
C
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
1 K
telemarrk
T
N
  • Résolu(e)
Microsoft 365 Recherche dans un tableau structuré à partir d'une TextBox
Réponses
11
Affichages
723
NONO14
N
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
459
Abi23
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…