[VBA] Problème avec l'utilisation d'un TexBox

Version imprimable

23/03/2008, 10h38
etorria

[VBA] Problème avec l'utilisation d'un TexBox

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.:oops:
Si vous pouviez me donner un coup de pouce...

D'avance merci
Etorria

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

Code:

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

23/03/2008, 14h53
etorria

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

Code:

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

etorria
23/03/2008, 16h00
ouskel'n'or
Citation:

Envoyé par etorria

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:

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

Code:

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:

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

Ai-je bien répondu ? :mouarf:

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