Boucle sur Textbox pour remplir tableau

Salut chers tous

J'ai une plage de cellules que je dois renseignée via userform.

Mon userform contient plusieurs textbox

Dans mon bouton enregistrer je pense à quelque chose du genre:

Texbox1.value=cells( 6,3)

Texbox2.value=cells(6,4)

Textbox6.value=cells(7,3).....

Mais je sens que ce sera très très fastidieux.

Quelqu'un pourrait il me donner une ébauche de solution ?

Bonsoir,

Le mieux est de nommer vos cellules et d'affecter ces noms aux TextBox correspondantes.

Avantages :

1- permet le remplissage des cellules via une boucle simple,

2- le code est plus parlant

3- pas de problème d'ordre des cellules et des TextBox

4- maintient le remplissage en cas d'insertion de ligne ou de colonne

Exemple :

Texbox1.value=cells( 6,3) : la cellule C6 est nommée data1 ainsi que Textbox1

Texbox2.value=cells(6,4) : la cellule D6 est nommée data2 ainsi que Textbox2

alors, le remplissage devient :

data1.value = range("data1")

data2.value = range("data2")

du coup, une boucle de ce type effectue le remplissage :

    Dim ctrl As Control

    On Error Resume Next
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is MSForms.TextBox Then ctrl.Value = Range(ctrl.Name)
    Next ctrl

Voir cette discussion : https://forum.excel-pratique.com/viewtopic.php?f=2&t=117818 avec le fichier Gestion_des_Réparations 3.xlsm