Modification d'une fiche dans une liste sous xl 97

[xavier]

salut le forum

encor un soucie pitetre que vous allez pouvoir me dépanner

j'utilise un USF avec des textbox pour renseigner une liste. sur ce même USF j'ai un Combobox qui me permet de rappeler la fiche d'une personne.

problème quand les renseignement sont afficher dans les différent champ et que je souhaite apporter une modification, ben c la que sa plante je c pô comment faire

j'ai éssayer le code suivant (trouver sur le forum)

Private Sub UserForm_Initialize()
Dim L As Long
L = ActiveCell.Row
'On définit la propriété ControlSource de chaque TextBox à partir de la ligne sélectionnée
TextBox1.ControlSource = "$A$" & L
TextBox2.ControlSource = "$B$" & L
TextBox3.ControlSource = "$C$" & L
TextBox4.ControlSource = "$D$" & L
TextBox5.ControlSource = "$E$" & L
End Sub

mais sa ne marche pas

si quelqu'un a une solution (meme un début de reponse) je suis preneur je galère depuis pas mal de temp dessus

j'ai mis en pièce jointe parce que je c pas si mes explications vont suffir

merci d'avance

@++ sur le forum

 

[jhocquevelt]

Bonsoir Xavier, bonsoir le Forum,

En enlevant les "$", celà devrait fonctionner

Private Sub UserForm_Initialize()
Dim L As Long
L = ActiveCell.Row
'On définit la propriété ControlSource de chaque TextBox à partir de la ligne sélectionnée
TextBox1.ControlSource = "A" & L
TextBox2.ControlSource = "B" & L
TextBox3.ControlSource = "C" & L
TextBox4.ControlSource = "D" & L
TextBox5.ControlSource = "E" & L
End Sub


Bonne Prog

JHocquevelt

 

[xavier]

salut JHocquevelt

merci pour ce coup de pouce mais ca ne marche pas.

tempi c pô grave je vais essayer autres choses jusqu'à ce que ca marche.

mais je suis quand meme preneur d'autre soluce.

merci @++

xavier

 

[Michel_M]

Bonjour Xavier et JH

tout simplement

textbox1=range("A1")

ou avec ta variable L

textbox1=cells(L,1) dans lequel L est le n° de lig et 1 le num de colonne (1=A, 2=B etc)

A+
Michel