Copie données usf dans une certaine ligne tableau excel

Question

Bonjour à tous,
Vu mon niveau de débutant en VBA j' n'arrive pas à résoudre un problème afin de copier les données des textbox d'un userform dans un tableau excel.

En gros, en fonction de la valeur se trouvant dans la textbox 1, je voudrais que l'ensemble des données de l'usf soit copié dans telle ou telle ligne de mon tableau.
Ex : si textbox1="401" je veux copier dans la ligne8 par ex
     si textbox1="503 je veux copier dans la ligne18 par ex

J'avais fait un truc de ce style mais ce n'est pas jouable car j'ai environ 60 possibilité de choix de ligne en fonction de ma valeur dans textbox1 :

 If Me.tboxnumch.Text = "402" Then
    Sheets("Tableau synthétique").Select
    [d3] = tboxnom.Text
    [e3] = tboxprenom.Text
    [f3] = tboxdatnai.Text
    [n3] = cbsitmat.Text
    [o3] = cbnbeft.Text
    [q3] = cbmedecin.Text
    [m3] = tbnumss.Text
    [h3] = cbcmu.Text
    [i3] = tboxexpcmu.Text
    [l3] = tboxmut.Text
    [j3] = cbtaux.Text
    [k3] = tboxexo.Text
    [r3] = tboxpath1.Text
    [s3] = tboxpath2.Text
    [t3] = tboxpath3.Text
    [u3] = tboxtitsej.Text
    [v3] = tboxexptit.Text
    [w3] = tboxmontretr.Text
    [x3] = tboxmontcom.Text
    Sheets("Accueil").Select
Exit Sub
    End If
 If Me.tboxnumch.Text = "403" Then
    Sheets("Tableau synthétique").Select
    [d4] = tboxnom.Text
    [e4] = tboxprenom.Text
    [f4] = tboxdatnai.Text
    [n4] = cbsitmat.Text
    [o4] = cbnbeft.Text
    [q4] = cbmedecin.Text
    [m4] = tbnumss.Text
    [h4] = cbcmu.Text
    [i4] = tboxexpcmu.Text
    [l4] = tboxmut.Text
    [j4] = cbtaux.Text
    [k4] = tboxexo.Text
    [r4] = tboxpath1.Text
    [s4] = tboxpath2.Text
    [t4] = tboxpath3.Text
    [u4] = tboxtitsej.Text
    [v4] = tboxexptit.Text
    [w4] = tboxmontretr.Text
    [x4] = tboxmontcom.Text
    Sheets("Accueil").Select
Exit Sub
    End If
 
Si je fais ca pour mes 60 possibilités ce serait bien trop long.

Quelqu'un aurait-il une petite idée pour me simplifier tout ce bazar ?
Merci d'avance à tous

cs_rt15 · Answer

Bonjour,

Pour une question VBA, merci de poster sur vbfrance dans le thème approprié.

[ Déplacé sur vbfrance ]

Copie données usf dans une certaine ligne tableau excel

1 réponse

Votre réponse

Discussions similaires