Comment inverser une boucle

Bonsoir à tous,

J'ai recopié sur le forum cette boucle qui m'évite de devoir créér 225 lignes
de code (TXTD1 à TXTD45 et idem pour les autres). J'arrive à la faire
fonctionner et, donc, à envoyer dans ma feuille "recap", les valeurs de tous
mes TXT. Par contre, j'ai besoin aussi d'avoir l'effet inverse.Je voudrais
récupérer dans mes TXT sur un autre userform1, toutes les données présentes
dans ma feuille "récap".
Pour cela, l'utilisateur choisira dans une combobox le numéro de fact voulue
(colonne A de ma feuille "recap") et les TXTD, TXTQ....se rempliront des
données de la ligne 3 (par exemple). J'ai essayé d'inverser la boucle mais
sans succés.

Merci d'avance
Justine

With sheets("recap")
colDepart = 13
For i = 1 To 45
C = colDepart + (i - 1) * 5
Cells(num2, C) = Me.Controls("TXTD" & i)
Cells(num2, C + 1) = Me.Controls("TXTq" & i)
Cells(num2, C + 2) = Me.Controls("TXTP" & i)
Cells(num2, C + 3) = Me.Controls("cboa" & i)
Cells(num2, C + 4) = Me.Controls("txtv" & i)

Next i
End with

*Bonjour justine*,
Si je comprends bien, ce n'est pas la boucle qu'il faut inverser !
With sheets("recap")
colDepart = 13
For i = 1 To 45
C = colDepart + (i - 1) * 5
Me.Controls("TXTD" & i) = Cells(num2, C)
Me.Controls("TXTq" & i) = Cells(num2, C + 1)
Me.Controls("TXTP" & i) = Cells(num2, C + 2)
Me.Controls("cboa" & i) = Cells(num2, C + 3)
Me.Controls("txtv" & i) = Cells(num2, C + 4)
Next i
End with

Bonsoir à tous,

J'ai recopié sur le forum cette boucle qui m'évite de devoir créér 225
lignes de code (TXTD1 à TXTD45 et idem pour les autres). J'arrive à la
faire fonctionner et, donc, à envoyer dans ma feuille "recap", les
valeurs de tous mes TXT. Par contre, j'ai besoin aussi d'avoir l'effet
inverse.Je voudrais récupérer dans mes TXT sur un autre userform1, toutes
les données présentes dans ma feuille "récap".
Pour cela, l'utilisateur choisira dans une combobox le numéro de fact
voulue (colonne A de ma feuille "recap") et les TXTD, TXTQ....se
rempliront des données de la ligne 3 (par exemple). J'ai essayé
d'inverser la boucle mais sans succés.

Merci d'avance
Justine

With sheets("recap")
colDepart = 13
For i = 1 To 45
C = colDepart + (i - 1) * 5
Cells(num2, C) = Me.Controls("TXTD" & i)
Cells(num2, C + 1) = Me.Controls("TXTq" & i)
Cells(num2, C + 2) = Me.Controls("TXTP" & i)
Cells(num2, C + 3) = Me.Controls("cboa" & i)
Cells(num2, C + 4) = Me.Controls("txtv" & i)

Next i
End with

--
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

*Bonjour justine*,
Si je comprends bien, ce n'est pas la boucle qu'il faut inverser !
With sheets("recap")
colDepart = 13
For i = 1 To 45
C = colDepart + (i - 1) * 5
Me.Controls("TXTD" & i) = Cells(num2, C)
Me.Controls("TXTq" & i) = Cells(num2, C + 1)
Me.Controls("TXTP" & i) = Cells(num2, C + 2)
Me.Controls("cboa" & i) = Cells(num2, C + 3)
Me.Controls("txtv" & i) = Cells(num2, C + 4)
Next i
End with

Bonsoir à tous,

J'ai recopié sur le forum cette boucle qui m'évite de devoir créér 225
lignes de code (TXTD1 à TXTD45 et idem pour les autres). J'arrive à la
faire fonctionner et, donc, à envoyer dans ma feuille "recap", les
valeurs de tous mes TXT. Par contre, j'ai besoin aussi d'avoir l'effet
inverse.Je voudrais récupérer dans mes TXT sur un autre userform1, toutes
les données présentes dans ma feuille "récap".
Pour cela, l'utilisateur choisira dans une combobox le numéro de fact
voulue (colonne A de ma feuille "recap") et les TXTD, TXTQ....se
rempliront des données de la ligne 3 (par exemple). J'ai essayé
d'inverser la boucle mais sans succés.

Merci d'avance
Justine

With sheets("recap")
colDepart = 13
For i = 1 To 45
C = colDepart + (i - 1) * 5
Cells(num2, C) = Me.Controls("TXTD" & i)
Cells(num2, C + 1) = Me.Controls("TXTq" & i)
Cells(num2, C + 2) = Me.Controls("TXTP" & i)
Cells(num2, C + 3) = Me.Controls("cboa" & i)
Cells(num2, C + 4) = Me.Controls("txtv" & i)

Next i
End with

--
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