Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel formulaire & txt

formulaire & txt

7 réponses
Avatar
Chris
Bonjour à tous,
J'ai crée un fomulaire avec des txt "txt1" txtq1" "txtm1" et cela 30 fois,
seulement j'aimerai trouver une solution pour vider ces txt dans mon
fichirer recap sans écrir systématiquement .
.Range("n" & num).Value = TXT1
.Range("o" & num).Value = TXTq1
.Range("p" & num).Value = TXTP1
.Range("q" & num).Value = TXTM1
.Range("r" & num).Value = OPT1

.Range("s" & num).Value = TXT2
.Range("t" & num).Value = TXTq2
.Range("u" & num).Value = TXTP2
.Range("v" & num).Value = TXTM2
.Range("w" & num).Value = OPT2
autant de fois que j'ai de txt.

Avez vous une solution pour moi ?

OH dites moi oui s'il vous plaît........

Meci d'avance et bonne fin de soirée.
Signaler un problème avec ce contenu

7 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,


For i = 1 To 30
.Range("n" & num).Value = Me("TXT" & i)
.Range("o" & num).Value = Me("TXTq & i)
...
Next i

ou

For i = 1 To 30
.Range("n" & num).Value = Me.Controls("TXT" & i)
.Range("n" & num).Value = Me.Controls("TXTq" & i)
...
Next i

http://www.excelabo.net/compteclic.php?nom=jb-formulairequestionnaire

Cordialement JB
Avatar
Chris
Merci beaucoup pour ton aide JB, mais puis je abuser de ta patience :
Je n'avai pas précisé que je rangeait mes données en ligne et non en colonne
ex : "txt1", "txt2"... dans les colonnes a, b ainsi de suite et cela 30
fois, idem pour "txtp1" "txtp2" ... dans les colonnes suivantes.
Ne m'en voulez pas trop je suis débutante et je peux vous dire que je
m'arrache les chevaux, votre aide m'est précieuse.

Merci d'avance
"JB" a écrit dans le message de news:

Bonjour,


For i = 1 To 30
.Range("n" & num).Value = Me("TXT" & i)
.Range("o" & num).Value = Me("TXTq & i)
...
Next i

ou

For i = 1 To 30
.Range("n" & num).Value = Me.Controls("TXT" & i)
.Range("n" & num).Value = Me.Controls("TXTq" & i)
...
Next i

http://www.excelabo.net/compteclic.php?nom=jb-formulairequestionnaire

Cordialement JB



Avatar
JB
Pour que je comprenne ton pb, envoie ton fichier en PJ

http://www.cjoint.com

JB
Avatar
JLuc
*Bonjour Chris*,
En reprenant la solution de JB :

decale = 13
For i = 1 To 30 Step 5
.Range("A" & num).Offcet(0,decale).Value = Me.Controls("TXT" & i)
.Range("A" & num).Offcet(0,decale + 1).Value = Me.Controls("TXTq" & i)
.Range("A" & num).Offcet(0,decale + 2).Value = Me.Controls("TXTP" & i)
.Range("A" & num).Offcet(0,decale + 3).Value = Me.Controls("TXTM" & i)
.Range("A" & num).Offcet(0,decale + 4).Value = Me.Controls("OPT" & i)
decale = decale + 5
Next i

Ca devrait le faire, dis nous


Bonjour à tous,
J'ai crée un fomulaire avec des txt "txt1" txtq1" "txtm1" et cela 30 fois,
seulement j'aimerai trouver une solution pour vider ces txt dans mon fichirer
recap sans écrir systématiquement .
.Range("n" & num).Value = TXT1
.Range("o" & num).Value = TXTq1
.Range("p" & num).Value = TXTP1
.Range("q" & num).Value = TXTM1
.Range("r" & num).Value = OPT1

.Range("s" & num).Value = TXT2
.Range("t" & num).Value = TXTq2
.Range("u" & num).Value = TXTP2
.Range("v" & num).Value = TXTM2
.Range("w" & num).Value = OPT2
autant de fois que j'ai de txt.

Avez vous une solution pour moi ?

OH dites moi oui s'il vous plaît........

Meci d'avance et bonne fin de soirée.



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
JB
Voici un exemple joint

Est ce que cela correspond à ton cas?

http://cjoint.com/?mrsWTgU0ND


Private Sub b_valid_Click()
numLigne = 2
colDepart = 14
For i = 1 To 3
c = colDepart + (i - 1) * 5
Cells(numLigne, c) = Me.Controls("TXT" & i)
Cells(numLigne, c + 1) = Me.Controls("TXTq" & i)
Cells(numLigne, c + 2) = Me.Controls("TXTP" & i)
Cells(numLigne, c + 3) = Me.Controls("TXTM" & i)
Cells(numLigne, c + 4) = Me.Controls("OPT" & i)
Next i
End Sub

JB
Avatar
Chris
Merci beaucoup pour vos indications, j'ai utilisé ton prog JB et ça marche
impec.
A bientôt pour d'autres questions.

"Chris" a écrit dans le message de news:

Bonjour à tous,
J'ai crée un fomulaire avec des txt "txt1" txtq1" "txtm1" et cela 30 fois,
seulement j'aimerai trouver une solution pour vider ces txt dans mon
fichirer recap sans écrir systématiquement .
.Range("n" & num).Value = TXT1
.Range("o" & num).Value = TXTq1
.Range("p" & num).Value = TXTP1
.Range("q" & num).Value = TXTM1
.Range("r" & num).Value = OPT1

.Range("s" & num).Value = TXT2
.Range("t" & num).Value = TXTq2
.Range("u" & num).Value = TXTP2
.Range("v" & num).Value = TXTM2
.Range("w" & num).Value = OPT2
autant de fois que j'ai de txt.

Avez vous une solution pour moi ?

OH dites moi oui s'il vous plaît........

Meci d'avance et bonne fin de soirée.



Avatar
Chris
Merci beaucoup cet aid m'a été précieuse, j'ai utilisé ton prog JB et c'est
impec.

Bonne soirée
"JB" a écrit dans le message de news:

Voici un exemple joint

Est ce que cela correspond à ton cas?

http://cjoint.com/?mrsWTgU0ND


Private Sub b_valid_Click()
numLigne = 2
colDepart = 14
For i = 1 To 3
c = colDepart + (i - 1) * 5
Cells(numLigne, c) = Me.Controls("TXT" & i)
Cells(numLigne, c + 1) = Me.Controls("TXTq" & i)
Cells(numLigne, c + 2) = Me.Controls("TXTP" & i)
Cells(numLigne, c + 3) = Me.Controls("TXTM" & i)
Cells(numLigne, c + 4) = Me.Controls("OPT" & i)
Next i
End Sub

JB