incrémenter des textbox avec les données d'une ligne sélectionnée
Bonjour à tous,
J'ai dans un userform une listbox dans laquelle s'affiche les noms de la colonne A de la feuille excel "Archives".
Je clique sur un de ces noms et cela sélectionne dans ma feuille "Archives" la ligne dont le nom choisis dans la listbox se trouve dans la colonne A.
Jusque là j'essai d'être clair -))
Donc, dans la listbox j'ai choisis DUPONT par exemple et cela sélectionne la ligne dont la cellule de la colonne A contient DUPONT.
La userform contenant la listbox se fermer et s'ouvre une userform appellée "Modification" contenant 21 textbox nommées à la suite. C'est à dire que dans la textbox1 je veux incrémenter les données contenues dans la cellule de la colonne A de la ligne sélectionnée, dans la textbox2 je veux incrémenter les données contenues dans la cellule de la colonne B de la ligne sélectionnée, etc jusque 21.
Dans la userform "Modification" j'ai donc saisi le code suivant :
Code:
1
2
3
4
5
6
7
8
9
10
| Private Sub UserForm_Initialize()
Dim sht As Worksheet
Set sht = ThisWorkbook.Worksheets("Archives")
Dim c As Integer
Dim Range As Integer
For c = 1 To 21
Range = Rows.Select
Me.Controls("TextBox" & c) = sht.Cells(Range, c)
Next c
End Sub |
Et forcément ça ne fonctionne pas -))
J'ai tenté avec mes maigres connaissances d'adapter le code en écrivant moi même les lignes en rouge (5, 7 et 8) mais bon, c'est pas concluant -)) Pourtant j'ai cherché, promis
J'obtiens juste une ERREUR 1004, ERREUR définie par l'objet ou par l'application, ce qui en soit est déjà une réussite puisque j'obtiens quelque chose. Mais RE bon...
Quelqu'un pourrait-il me dire si je suis sur la bonne voie et/ou éventuellement me donner un coup de main ?
Merci par avance à ceux qui accepteront de se pencher sur mon cas.
Laurent
