Discussion :

[Liloo14]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jijie]

Et comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 LiGne As Integer
 For c = 1 To 21
 LiGne = activecell.Rows
  Me.Controls("TextBox" & c) = sht.Cells(LiGne, c)
 Next c
End Sub

Ne pas utiliser Range en variable

reste à vérifier!! car pas essayé !

[Liloo14]

Merci à toi.
En effet ce n'était pas judicieux d'utiliser Range.
J'avais juste une incompatibilité de type avec ton code alors j'ai supprimé le S de RowS

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LiGne = activecell.Row

Merci beaucoup