Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1757 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copie données usf dans une certaine ligne tableau excel

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Copie données usf dans une certaine ligne tableau excel

n°1998645
mikam1660
Posté le 03-06-2010 à 09:44:25  profilanswer
 

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

mood
Publicité
Posté le 03-06-2010 à 09:44:25  profilanswer
 

n°1998732
dje69r
Arme de distraction massive
Posté le 03-06-2010 à 12:21:08  profilanswer
 

Hello
 
Soit tu te fais un tableau de correspondance dans une nouvelle feuille
A1 : 401 B1 : 8
A2 : 503 B2 : 18
etc.
 
Comme ca tu recuperes le numéro de ligne facilement
 
Ou sinon un Select Case, mais ca risque d'etre chaud.
 
J'opterais pour la 1ere solution. Une fois le tableau de correspondance fait, c'est un jeu d'enfant...


---------------
Plus tu pédales moins vite, moins tu avances plus vite — SuperLoustic ! La radio des Loustics !

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Copie données usf dans une certaine ligne tableau excel

 

Sujets relatifs
VBA Trier date min max d'une serie de donnéesPB EXCEL VBA
Problème pour créer une fonction sous excel[VB - Excel] Insertion ligne qui n'incrémente pas formules [résolu]
Indiquer numéro de ligne VBA excelProblème copie de cellule entre 2 classeur
Type de variable tableautableau associatif + HashMap
Plus de sujets relatifs à : Copie données usf dans une certaine ligne tableau excel


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR