XL 2019 boucle et colonne

[poussy67]

Bonjour Le forum

J’essaye de trouver une solution avec un USF lors d'une saisi. Mon Problème est j'ai une boucle qui me permet de saisir des valeurs
dans une cellule a la dernière ligne et dans plusieurs colonnes, jusqu’à ce point cela fonctionne. Je cherche sans résultat une manière
d'espacer de 2 colonnes entre chaque boucle.

Exemple: Colonne G =Valeur1, Colonne J = valeur2, Colonne M = Valeur3

Dim i As Integer
Set f2 = Sheets("Etat Precommade Cash")
L = Sheets("Etat Precommade Cash").Range("G65536").End(xlUp).Row + 1
For i = 1 To 10
f2.Cells(L, i + 6) = Me.Controls("Cde_" & i)

Next i

en vous remerciant d'avance pour votre aide

 

[M12]

Bonjour,
sur ta boucle, il te faut rajouter la fonction STEP

For i = 1 To 10 STEP 2

2 étant le saut sur la boucle

 

[Dudu2]

Bonjour,
Ou alors, si les Controls sont de Cde_1 à Cde_10 :

For i = 1 To 10
    f2.Cells(L, (i * 2) - 1 + 6) = Me.Controls("Cde_" & i)
Next i

 

[poussy67]

Impeccable

Merci beaucoup M12 et Dudu2 pour votre aide