Boucle avec textbox varrible

Résolu
aminesc Messages postés 70 Statut Membre -  
aminesc Messages postés 70 Statut Membre -
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

1 réponse

  1. pijaku Messages postés 13513 Date d'inscription   Statut Modérateur Dernière intervention   2 773
     
    Bonjour,

    Remplacer, par exemple :
    Code & i

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

    1
    1. aminesc Messages postés 70 Statut Membre
       
      Bonjour pijkus ,
      sa marche très bien merci beaucoup
      0