modification tableau via USF

[Marco60]

Bonjour le forum,
Je tente de créer un code qui doit servir à modifier les données d'un tableau via un USF avec des TextBox.
Les TextBox de cet USF se remplissent à l'aide d'une sélection d'un combobox.

Seulement lorsque que je clique sur mon bouton après un changement, la TextBox changée garde bien la valeur, mais rien ne change dans le tableau.

Voici le code :

Private Sub Bouton1_Click()
Dim Vnum_ligne As Long

Vnum_ligne = 2

Worksheets('Feuil1').Select

If Range('A' & Vnum_ligne).Value = TextBox1.Value Then
Range('B' & Vnum_ligne).Value = TextBox2.Value
Range('C' & Vnum_ligne).Value = Format(TextBox3.Value, 'MM/DD/YYYY')
Range('D' & Vnum_ligne).Value = TextBox4.Value
Range('E' & Vnum_ligne).Value = TextBox5.Value
Range('F' & Vnum_ligne).Value = Format(TextBox6.Value, 'MM/DD/YYYY')
Range('G' & Vnum_ligne).Value = Format(TextBox7.Value, 'MM/DD/YYYY')
Range('H' & Vnum_ligne).Value = TextBox8.Value
Range('I' & Vnum_ligne).Value = TextBox9.Value
End If

End Sub


Merci de votre aide.

A+

Marc

 

[JC de Lorient]

Salut Marco, le forum
j'ai pas regardé mé essayes comme ça :
Dim Vnum_ligne As Byte (voir aussi as Integer)

JC

 

[pierrejean]

bonjour Marco60
bonjour JC

pour faire une comparaison avec une textbox ilest prudent d'ecrire

if cstr(range....)=textbox...

je ne sais pas si cela te sera utile mais j'ais testé une partie de ton code et normalement il fonctionne

tiens nous au courant

 

[Marco60]

Salut JC, le forum,
j'ai essayé tes 2 propositions mais ça ne marche pas.

Il doit manquer quelques chose mais quoi???

J'ai essayé pas mal de truc mais là je seche !!!

Merci de nouveau pour votre aide

A+

Marc

 

[JC de Lorient]

re

si tu as la possibilité joins nous un bour de fichier

JC

 

[Marco60]

Re,
voici, pour plus de compréhension, le fichier.

Merci encore pour l'aide que vous pourrez m'apporter.

A+

Marc

 

[Marco60]

Il est pas passé.

je réessaie

A+

Marc [file name=Modif.zip size=10368]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modif.zip[/file]

 

[pierrejean]

bonsoir Marco60

vois si cela va mieux et remonte un peu le fil

Je n'ais pas saisi la raison du while wend et devalidé la suite de la macro [file name=Modif1.zip size=10731]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modif1.zip[/file]

 

[Marco60]

Re-bonsoir pierrejean,
oui effectivement le While Wend provient d'un Copier/Coller tout bête et j'ai oublié de la supprimer par la suite.

Concernant le CStr, je l'avais ajouté à mon code mais cela m'avait donné un message d'erreur. J'ai pas compris!!! Peut-être l'avais-je mal écrit???

Mais merci pour ton aide, cela m'enlève une épine du pied.

Merci encore et A+

Marc

 

[Climaudo]

Bonsoir Marco, JC

Ci joint une proposition.

J'ai pas compris le while...wend, donc je l'ai remplacé par un for next pour balayer la colonne A.

Bonne soirée

Olivier [file name=Modif_marco60.zip size=11041]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Modif_marco60.zip[/file]

bonsoir pierrejean,
désolé, j'avais pas rafraichi

Message édité par: climaudo, à: 19/03/2006 22:27