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

[Chounoé]

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]

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

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

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]

Bonjour
Ci joint ma solution
A+ François

 

[job75]

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 :

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+