Microsoft 365 Renvoi valeur textbox vers cellule après clic sur bouton

Chounoé · 27 Janvier 2021

Bonjour, après plusieurs essais et en vain, je souhaiterai à partir du bouton de commande "valider" tous ce que j'ai renseigné dans mes textbox se place dans des cellules correspondantes.

Exemple : je renseigne des valeurs sur 4 textbox différentes ou plus dans mon formulaire, dont 1 doit aller en H4, l'autre en J4 etc.… par rapport à une combobox pour les placer au bon endroit dans les cellules.

si quelqu'un aurait un petit idée dessus je vous en remercie d'avance

fanfan38 · 27 Janvier 2021

Bonjour
Un fichier est TOUJOURS le bienvenu…
la textbox est sur une feuille ou dans un userform?
range("H4").value=me.textbox1.value
A+ François

Chounoé · 27 Janvier 2021

fanfan38 à dit:
Bonjour
Un fichier est TOUJOURS le bienvenu…
la textbox est sur une feuille ou dans un userform?
range("H4").value=me.textbox1.value
A+ François

J'au déjà essayer ceci cela fonctionne mais si je doit mettre cette valeur en H35 cela fonctionnera à 100%.
Alors j'ai essayer ceci : range("H").value=me.textbox1.value => ça marche pas

Chounoé · 27 Janvier 2021

Chounoé à dit:
J'au déjà essayer ceci cela fonctionne mais si je doit mettre cette valeur en H35 cela fonctionnera à 100%.
Alors j'ai essayer ceci : range("H").value=me.textbox1.value => ça marche pas

j'ai joins le fichier, ce que je veux c'est dès que je change ma combobox "CBTrain" la date se met en face.

fanfan38 · 28 Janvier 2021

Bonjour
Ci joint ma solution
A+ François

job75 · 28 Janvier 2021

Bonjour Chounoé, François,

Vous ne croyez pas qu'un même numéro de voiture pourrait exister dans plusieurs trains ?

Donc il vaut mieux utiliser :

VB:

Private Sub CommandButton1_Click()
If Not IsDate(TBDate) Then TBDate = "": TBDate.SetFocus: Exit Sub
If CBTrain.ListIndex = -1 Then CBTrain.DropDown: Exit Sub
If CBVoiture.ListIndex = -1 Then CBVoiture.DropDown: Exit Sub
If MsgBox("Voulez-vous mettre à jour les données ?", vbYesNo, "Demande de confirmation de validation") = vbNo Then Exit Sub
Dim c1 As Range, c2 As Range
Set c1 = [B:B].Find(CBTrain, , xlValues, xlWhole)
Set c2 = Intersect(c1.MergeArea.EntireRow, [C:C]).Find(CBVoiture)
c1(1, 0) = CDate(TBDate)
c2(1, 2) = TBKM.Value
Unload Me
End Sub

A+

Microsoft 365 Renvoi valeur textbox vers cellule après clic sur bouton

Chounoé

XLDnaute Nouveau

fanfan38

XLDnaute Barbatruc

Chounoé

XLDnaute Nouveau

Chounoé

XLDnaute Nouveau

Pièces jointes

fanfan38

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

Pièces jointes

Discussions similaires