Forcer une valeur dans une TextBox

  • 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 !

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
 
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

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
 
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
 
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
 
- 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

Réponses
4
Affichages
179
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
481
Retour