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 colonne.
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...
Dim i As Integer For i = 1 To 12 Cells(73+i,14) = Controls("TxtCode" & i).Text Cells(73+i,15) = Controls("TxtRef" & i).Text Cells(73+i,16) = Controls("TxtFar" & i).Text Cells(73+i,17) = Controls("TxtGro" & i).Text Next
Cordialement.
Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new bie...)
Il y a une erreur dans ton code !
A revoir !!!
"Excel...lent" <vpco97@orange.fr> a écrit dans le message de news:
F3191532-3823-4F7D-816B-98D699BDE399@microsoft.com...
Bonsoir,
Un truc dans ce goût la ( non testé ) :
Dim i As Integer
For i = 1 To 12
Cells(73+i,14) = Controls("TxtCode" & i).Text
Cells(73+i,15) = Controls("TxtRef" & i).Text
Cells(73+i,16) = Controls("TxtFar" & i).Text
Cells(73+i,17) = Controls("TxtGro" & i).Text
Next
Cordialement.
Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new
bie...)
Dim i As Integer For i = 1 To 12 Cells(73+i,14) = Controls("TxtCode" & i).Text Cells(73+i,15) = Controls("TxtRef" & i).Text Cells(73+i,16) = Controls("TxtFar" & i).Text Cells(73+i,17) = Controls("TxtGro" & i).Text Next
Cordialement.
Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new bie...)
Modeste
Bonsour® Excel...lent avec ferveur ;o))) vous nous disiez : ;o)))
Un truc dans ce goût la ( non testé ) : Dim i As Integer For i = 1 To 12 Cells(73+i,14) = Controls("TxtCode" & i).Text Cells(73+i,15) = Controls("TxtRef" & i).Text Cells(73+i,16) = Controls("TxtFar" & i).Text Cells(73+i,17) = Controls("TxtGro" & i).Text Next Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new bie...)
voyons Excel....lent !!!! voilà encore une réponse qui va discréditer ce mauvais forum.... ;o)))
Il y a une erreur dans ton code ! A revoir !!! ;o)))
en effet on parcourt 12 fois la boucle alors qu"il n'y a que 10 lignes dans la cible demandée par "kookoo40"
tous numérotés de 1 à 12 puisque 12 TextBox par colonne. Mon souhait est que les saisies de ces TextBox soient recopiées dans les cellules de mon classeur (de "N74" à "Q83").
-- -- @+ ;o)))
Bonsour® Excel...lent avec ferveur ;o))) vous nous disiez :
;o)))
Un truc dans ce goût la ( non testé ) :
Dim i As Integer
For i = 1 To 12
Cells(73+i,14) = Controls("TxtCode" & i).Text
Cells(73+i,15) = Controls("TxtRef" & i).Text
Cells(73+i,16) = Controls("TxtFar" & i).Text
Cells(73+i,17) = Controls("TxtGro" & i).Text
Next
Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new
bie...)
voyons Excel....lent !!!!
voilà encore une réponse qui va discréditer ce mauvais forum....
;o)))
Il y a une erreur dans ton code !
A revoir !!!
;o)))
en effet on parcourt 12 fois la boucle
alors qu"il n'y a que 10 lignes dans la cible demandée par "kookoo40"
tous numérotés de 1 à 12 puisque 12 TextBox
par colonne. Mon souhait est que les saisies de ces TextBox soient
recopiées dans les cellules de mon classeur (de "N74" à "Q83").
Bonsour® Excel...lent avec ferveur ;o))) vous nous disiez : ;o)))
Un truc dans ce goût la ( non testé ) : Dim i As Integer For i = 1 To 12 Cells(73+i,14) = Controls("TxtCode" & i).Text Cells(73+i,15) = Controls("TxtRef" & i).Text Cells(73+i,16) = Controls("TxtFar" & i).Text Cells(73+i,17) = Controls("TxtGro" & i).Text Next Excel...lent Dit " Mr je sais tout du Forum " ( vous savez, le new bie...)
voyons Excel....lent !!!! voilà encore une réponse qui va discréditer ce mauvais forum.... ;o)))
Il y a une erreur dans ton code ! A revoir !!! ;o)))
en effet on parcourt 12 fois la boucle alors qu"il n'y a que 10 lignes dans la cible demandée par "kookoo40"
tous numérotés de 1 à 12 puisque 12 TextBox par colonne. Mon souhait est que les saisies de ces TextBox soient recopiées dans les cellules de mon classeur (de "N74" à "Q83").
-- -- @+ ;o)))
Modeste
Bonsour® pierrejean,kookoo40,pierrot93 avec ferveur ;o))) vous nous disiez :
Il y a une erreur dans ton code ! A revoir !!!
pourquoi t'obstines-tu à venir ici àlors que la réponse à été donnée là : http://www.developpez.net/forums/showthread.php?tQ4063
-- @+ ;o)))
Bonsour® pierrejean,kookoo40,pierrot93 avec ferveur ;o))) vous nous disiez :
Il y a une erreur dans ton code !
A revoir !!!
pourquoi t'obstines-tu à venir ici
àlors que la réponse à été donnée là :
http://www.developpez.net/forums/showthread.php?tQ4063
Bonsour® pierrejean,kookoo40,pierrot93 avec ferveur ;o))) vous nous disiez :
Il y a une erreur dans ton code ! A revoir !!!
pourquoi t'obstines-tu à venir ici àlors que la réponse à été donnée là : http://www.developpez.net/forums/showthread.php?tQ4063
-- @+ ;o)))
Excel...lent
Salut mon camarade,
Ben oui qu'est ce que tu veux, on peut pas être un "New bie" et être bon... Me demande pas pourquoi j'ai absolument voulu répondre à ce post "vérolé" je ne le sais pas moi même... lol En fait en même temps que je pressais sur la touche "envoi" je le regretais déjà. Mon bon coeur me perdra ! ! ;-))) Le mieux qu'on est à faire c'est de ne plus alimenter ce post... Ho ! vraiment navré pour la réputation de ce mauvais forum.... lol Il me semble qu'on s'en remettra mon camarade. Amicalement. Excel...lent
Salut mon camarade,
Ben oui qu'est ce que tu veux, on peut pas être un "New bie" et être bon...
Me demande pas pourquoi j'ai absolument voulu répondre à ce post "vérolé" je
ne le sais pas moi même... lol
En fait en même temps que je pressais sur la touche "envoi" je le regretais
déjà.
Mon bon coeur me perdra ! ! ;-)))
Le mieux qu'on est à faire c'est de ne plus alimenter ce post...
Ho ! vraiment navré pour la réputation de ce mauvais forum.... lol
Il me semble qu'on s'en remettra mon camarade.
Amicalement.
Excel...lent
Ben oui qu'est ce que tu veux, on peut pas être un "New bie" et être bon... Me demande pas pourquoi j'ai absolument voulu répondre à ce post "vérolé" je ne le sais pas moi même... lol En fait en même temps que je pressais sur la touche "envoi" je le regretais déjà. Mon bon coeur me perdra ! ! ;-))) Le mieux qu'on est à faire c'est de ne plus alimenter ce post... Ho ! vraiment navré pour la réputation de ce mauvais forum.... lol Il me semble qu'on s'en remettra mon camarade. Amicalement. Excel...lent
