enregistrer contenu de 75 txtbox dans un fchier excel Résolu

Question

Bonjour,  

salut mes amis 

l'idée : 

j'ai un fichier excel qui en effet une facture que je doit remplir chaque fois avec different nom et different article,et blablabla.alors j'ai essayé de faire ça avec vb.net 2010.la facture contient 75 case a remplir chaque fois alors j'ai creé un form avec 75 txtbox et la ou il ya la probleme. 

problematique: 

si avec mais connaissance je veux remplir tous ces case avec l'instruction suivant 

worksheet.range("la case que je specifie").value =Txt_boxN.text (N et le nombre de du TXTbox correspandant a la case demandé) 

bon si je veut utilser cetter methode alors je dois creer cette instruction 75 fois.(l'idée est fatiguant meme avant la coder) 

question: 
y'a t il une autre methode pour faire ça.? 

PS:pardonne ma francaise. 

je crois que c'est claire 

Configuration: Windows 7 / Chrome 23.0.1271.64

Heliotte · Answer

ca a l'avantage d'être clair, c'est sûr
Comme tu l'as dit, c'est une façon de faire
Si tu avait VB6, comme les textbox peuvent être indexés, c'était juste un boule, par exemple de 0 à 74
En VB.Net, ton textbox peut se nommer d'un radiacal "Txt_box" & d'un suffixe, tu joues avec des objets (les contrôles textbox) ou plutôt avec les ".name" des contrôles

tsri_badr_esgi · Answer

merci bcp Heliotte pour votre idée

mais en effet j'ai reussi de reoudre la probleme avec ce code

Dim CaseExcel() As String = {"J17", "J18", "J19", "M17", "M18", "C24", "C25", "C26", "C27", "C28", "C29", "C30", "C31", "C32", "C33", "C34", "C35", "C36", "C37", "I24", "I25", "I26", "I27", "I28", "I29", "I30", "I31", "I32", "I33", "I34", "I35", "I36", "I37", "K24", "K25", "K26", "K27", "K28", "K29", "K30", "K31", "K32", "K33", "K34", "K35", "K36", "K37", "L24", "L25", "L26", "L27", "L28", "L29", "L30", "L31", "L32", "L33", "L34", "L35", "L36", "L37", "M24", "M25", "M26", "M27", "M28", "M29", "M30", "M31", "M32", "M33", "M34", "M35", "M36", "M37"}

Private Sub BT_ENREGISTRER_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT_ENREGISTRER.Click
    
        Dim x As Integer = 1
        Dim i As Integer = 0
        Do
            worksheet.Range(CaseExcel(i)).Value = Me.Controls("TXT" & CStr(x) & "").Text
            x += 1
            i += 1
        Loop Until x = 75 And i = 74
    End Sub


j'avais aucune idée a propos CStr,mais un peu de recherche enrichira ma tete.

j'ai nommée tous mes textbox TXTx ou x et le est un nombre qui va de 1 a 75,comme ça j'ai reussi de remplir la facture depuis VB.net

votre opinion m'interesse plz.

Heliotte · Answer

Dim x As Integer = 1
Dim i As Integer = 0
cela fonctionne-t-il ?

tsri_badr_esgi · Answer

oui on peut attribuer une valeur a notre variable des qu'on la declare: c'est pareil a : 
dim x as integer 
dim i as integer 
x=1 
i=0
c 'est ça votre question?

Heliotte · Answer

tout à fait, merci

Enregistrer contenu de 75 txtbox dans un fchier excel

5 réponses

Votre réponse

Discussions similaires