Aide pour réduire un code

Bonjour,

Je suis novice avec les codes VBA, j'aimerais réduire un code(qui est trop long pour fonctionner) que j'ai écris mais je ne sais pas si c'est possible de le réduire avec des boucles ou alors le fractionner et comment faire. Le code a réduire est celui du commandbutton1 (nom:"Modifier") du userform1 du document excel ci-joint. Si qqn a la patience de de jeter un coup d’œil, je vous en remercie.

Bonsoir,

je ne fais pas tout mais ceci est la réduction de la première volée de données à tester et à inscrire sur la feuille "Vitros" :

    With Sheets("Vitros")
        For i = 1 To 4
            ' pas besoin de test puisque si c'est vide on met vide dans la cellule et si c'est plein on met plein
            ' du coup on met la valeur du text_lot dans la cellule !
            Sheets("Vitros").Cells(13 + i, 2) = Controls("Text_Lot" & i).Value
            ' ici on fait un test car une date = à rien donne 01/01/1900 je crois
            Sheets("Vitros").Cells(13 + i, 3) = IIf(Controls("Text_Date" & i) = "", "", CDate(Text_Date1.Value))
            ' idem que le "1"
            Sheets("Vitros").Cells(13 + i, 5) = Controls("Text_Stock" & i).Value
        Next i
        ' [...]
    End With

A vous de faire le reste

L'instruction Controls() permet de mettre "en variable" le nom des contrôles d'un USF, donc s'ils sont "bien numérotés" ou nommés, il est alors facile de boucler dessus.

@ bientôt

LouReeD

Merci LouReeD, je vais tester ça. De mon côté j'ai testé en fractionnant la procédure en 5 et en utilisant "Callbyname" pour les appeler et ça fonctionne aussi.