Modifier les données d'origine

[sev]

Bonjour à tous ,
je joint un fichier où je voudrais mettre à jour sur la cellule d'origine les données du textbox concercné lors de la saisie.
Le fichier sera certainement plus explicatif

 

[bqtr]

Re : Modifier les données d'origine

Bonjour sev,

Essaye comme ceci:

Private Sub CommandButton1_Click()
If Place <> "" Then Sheets("CAVE").Range("U" & Proprietes.ListIndex + 5) = Place.Value
End Sub

Proprietes.ListIndex + 5 car tes données commencent en ligne 5 et que le premier élément dans une ComboBox ou une ListBox a pour index le N° 0.

Donc si tu prends Wolf, il a le N° 0 comme Index dans le ComboBox et comme il se trouve sur la ligne 5 il faut rajouté 5 pour remplir la cellule "U5".

A+

 

[sev]

Re : Modifier les données d'origine

Bonjour et merci bqtr,
Celà fonctionne bien mais serait il possible de supprimer les espaces derrière la dernière valeure de la cellule modifiée ; dans l'exemple ("U5") ?

Par ce qu'après s'enchaine un code pour compter les places en fonction des espaces.

 

[bqtr]

Re : Modifier les données d'origine

Bonjour,

Essaye :

Private Sub CommandButton1_Click()
If Place <> "" Then Sheets("CAVE").Range("U" & Proprietes.ListIndex + 5) = Trim(Place.Value)
End Sub

Le fonction Trim te permet d'enlever les espaces superflus.

A+

 

[sev]

Re : Modifier les données d'origine

Merci maintenant c'est parfait