Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Modification d'une fiche dans une liste sous xl 97

X

xavier

Guest
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
 

Pièces jointes

  • Gestionnaire.zip
    13 KB · Affichages: 14
J

jhocquevelt

Guest
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
 
X

xavier

Guest
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
 
M

Michel_M

Guest
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
 

Discussions similaires

H
Réponses
3
Affichages
1 K
HugoB99
H
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…