Discussion :

[etorria]

Bonjour au Forum !

Je suis débutant sous VBA et je viens vers vous pour résoudre un problème.
Dans un USF, j'ai placé 4 colonnes de TextBox (TxtCode, TxtRef, TxtFar, TxtGro), tous numérotés de 1 à 12 puisque 12 TextBox par colonnes.
Mon souhait est que les saisies de ces TextBox soient recopiées dans les cellules de mon classeur (de "N74" à "Q83").
D'après ce que j'ai semblé comprendre, il faut utiliser une boucle (For ... to Next) ainsi que la propriété .Cells.
Mais bon, à l'heure actuelle, c'est trop compliqué pour moi.
Si vous pouviez me donner un coup de pouce...

D'avance merci
Etorria

[ouskel'n'or]

Pour placer les données des textbox dans tes cellules, c'est

Code :

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

1
2
3
4
5
6
7
8
Dim i as integer, NoCol as integer
NoCol = range("N1").column
For i = 74 to 83
      Cells(i, NoCol) =  Me.Controls("TxtCode" & i - 73)
      Cells(i, NoCol + 1) = Me.Controls("TxtRef" & i - 73)
      Cells(i, NoCol + 2) = Me.Controls("TxtFar" & i - 73)
      Cells(i, NoCol + 3) = Me.Controls("TxtGro" & i - 73)
Next

[etorria]

Merci ouskel'n'or !
Peux-tu m'expliquer cette partie de code :

Code :

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

For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

etorria

[ouskel'n'or]

Mon souhait est que les saisies de ces TextBox soient recopiées dans les cellules de mon classeur (de "N74" à "Q83").

J'ai donc utilisé cette plage. Ton nombre de texbox par colonne correspond au nombre de lignes. Ton nombre de colonnes correspond au nombre de "type" de textbox. Tout est ok !
Le code pour lequel tu demandes une explication indique le n° de la dernière ligne renseignée dans ta feuille de calculs. Il ne peut être utilisé dans ce cas là car si le nombre de lignes dépasse ton nombre de textbox par type, ça ne marche plus.
Au code que tu proposes il manque un bout que j'ajoute

Code :

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

1
2
With Worksheets("LaFeuille")
      For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row

Tu pourrais écrire

Code :

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

For i = 1 To Worksheets("LaFeuille").Cells(Rows.Count, 1).End(xlUp).Row

ou encore, pour connaître le No de la dernière ligne renseignée

Code :

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

NoLig = Worksheets("LaFeuille").Cells(Rows.Count, 1).End(xlUp).Row

Ai-je bien répondu ?

PS - Reste à préciser que c'est le N° de la dernière ligne renseignée de la colonne 1 ("A")