Modifier les données d'origine

bqtr

XLDnaute Accro

• 28 Septembre 2008

• #2

Re : Modifier les données d'origine

Bonjour sev,

Essaye comme ceci:

Code:

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+

 

Vote positif 0 Vote négatif

S

sev

Guest

• 29 Septembre 2008

• #3

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.

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 29 Septembre 2008

• #4

Re : Modifier les données d'origine

Bonjour,

Essaye :

Code:

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+

 

Vote positif 0 Vote négatif

S

sev

Guest

• 29 Septembre 2008

• #5

Re : Modifier les données d'origine

Merci maintenant c'est parfait

 

Vote positif 0 Vote négatif