Boucle avec textbox varrible

Résolu/Fermé

aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017 - 7 août 2016 à 12:13
aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017 - 8 août 2016 à 09:57

Bonjour,

j'ai un userform qui contient plusieurs textbox qu j'ai nommer de cette maniéré :
code1, code2........code 13
debours1,...........debours13
ttc1......................ttc13

après avoir remplis les texbox il seront enregistre dans une feuille excel a partir de la colonne 23 sa veux dire code1 il sera enregistre dans la colonne W .

voici la boucle que j'ai fait :

For i = 1 To 13
    If TTC & i <> 0 Then
     Cells(finligne + 1, 20 + i * 3).Value = Code & i
     Cells(finligne + 1, 21 + i * 3).Value = Debour & i
     Cells(finligne + 1, 22 + i * 3).Value = TTC & i
    Else
     Cells(finligne + 1, 20 + i * 3).Value = 0
     Cells(finligne + 1, 21 + i * 3).Value = 0
     Cells(finligne + 1, 22 + i * 3).Value = 0

    End If
Next i

mais sa marche pas
help

A voir également:

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 744
8 août 2016 à 09:10

Bonjour,

Remplacer, par exemple :

Code & i

par :

Userform1.Controls("Code" & i).Value

aminesc Messages postés 70 Date d'inscription dimanche 25 octobre 2015 Statut Membre Dernière intervention 3 juillet 2017
8 août 2016 à 09:57

Bonjour pijkus ,
sa marche très bien merci beaucoup

Discussions similaires

Mon pc s'allume et s'éteint en boucle

Redémarrage en boucle Xiamo mi note 10

faire une boucle sans VBA

Boucle en Batch

Ma Freebox redémarre tout le temps

Discussions similaires

Newsletters