Boucle for

bonjour a tous

voici mon problème

dans le code

For i = 1 To 12
 Cells(8 + i, 4) = Controls("TB" & i).Text
 Next

je cherche a copier mes textbox TB1 en cellule D9 TB2 en cellule D11 ect

les textbox dans l'ordre mais sur les cellules une sur deux

cela fonctionne mais sur les cellules a la suite D9,D10,D11 ect

comment Pui 'je sauter une cellule sur deux

amicalement

bonjour,

Essaie :

For i = 1 To 12
 Cells(7 + i * 2, 4) = Controls("TB" & i).Text
Next

A+

Bonjour Teddy33 et bonjour à tous,

Je propose ceci :

   
k = 0
For i = 1 To 12
     Cells(8 + i + k, 4) = Controls("TB" & i).Text
k = k + 1
Next

Bonne journée,

XLMent vôtre,

Joe.

merci bcp galopin

toujours aussi réactif sur le forum

cela fonctionne très bien

bien amicalement