Renvoyer un texte dans une cellule trouvé par combobox

Bonjour à tous, j'ai ce code vba ci-dessous pour récupérer un texte d'une cellule selon la valeur d'une combobox qui fonctionne parfaitement bien.

Private Sub ComboBox3_Change()

Dim c As Range, sh As Worksheet

Set sh = Worksheets("bdd")

Set c = sh.[C:C].Find(ComboBox3, LookIn:=xlValues, LookAt:=xlWhole)

TextBox17 = IIf(c Is Nothing, "", c.Offset(, 19))

Maintenant je souhaite copier une valeur modifié du Textbox 17 au même emplacement ou il est venu chercher l'info précédemment. Comment dois-je procéder ?

Merci par avance !

Bonjour,

Pour récupérer la ligne

c.Row

Par quoi remplacer tout ou partie du code ci-dessous pour retomber sur la cellule precedente trouvé par combobox ?

BrunoM45 : comment utiliser c.Row dans mon cas ?

Sheets("bdd").Range("XXX").Text = TextBox17.Text

Bonjour à tous,

a priori

c.Offset(, 19).value = TextBox17.Text

dans la mesure ou l'on est toujours dans Private Sub ComboBox3_Change()

Si c'est dans une autre partie de l'userform,

soit déclarer Dim c As Range en global du module (tout en haut) et utiliser le code ci-dessus.

soit déclarer une autre variable globale dim Tbt17Add as string (par exemple)

et dans Private Sub ComboBox3_Change() rajouter quelque part après Set c =...

Tbt17Add = c.Address

et utiliser le code:

Sheets("bdd").Range(Tbt17Add ).Text = TextBox17.Text

Bonne suite

Effectivement, je dois utiliser le code suite à click sur bouton valider du même userform.

Je vais tester puis je vous dis si je galère. Merci pour les infos!

Merci à tous et à AlgopPlus pour votre retour.

J'ai utilisé la première solution de AlgoPlus car comme cela je peux multiplier le nombre de Textbox et le nombre de données importé puis renvoyé !