Probleme de code dans UF

T

Tonio

Guest

• 18 Septembre 2005

• #2

Desole...

 

Vote positif 0 Vote négatif

T

Tonio

Guest

• 18 Septembre 2005

• #3

Rien ni fait, ça veut pas passer

 

Vote positif 0 Vote négatif

T

Tonio

Guest

• 18 Septembre 2005

• #4

Désoler d’encombrer le forum avec tout ça mais, le fichier zippe et moins de 50ko ne passe pas.

Private Sub CommandButton1_Click()
With Sheets('Feuil1')
.Range('D' & ListBox1.ListIndex + 2) = TextBox2.Value
.Range('C' & ListBox1.ListIndex + 2) = TextBox1.Value
End With
IniList1
'Unload Me
End Sub
Private Sub ListBox1_Click()
TextBox1 = ListBox1.List(ListBox1.ListIndex, 2)
TextBox2 = ListBox1.List(ListBox1.ListIndex, 3)
End Sub
Private Sub UserForm_Initialize()
IniList1
With ListBox1
.ColumnCount = 5
.ColumnWidths = '80;120;80;80;0'
End With
End Sub
Sub IniList1()
Dim Ligne As String
Ligne = Sheets('Feuil1').Range('A65536').End(xlUp).Row
ListBox1.RowSource = 'Feuil1!A2:E' & Ligne
End Sub

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 18 Septembre 2005

• #5

bonjour Tonio

ton fichier doit etre zippé ( avec WinZip ), de taille inferieure à 50 ko , sans espaces ni caracteres speciaux dans le nom ( é ,è , ç , à ' - , ...etc ...)


ci joint la description pour joindre un fichier

https://www.excel-downloads.com/external/flash/ZipperFichier.htm


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

T

Tonio

Guest

• 18 Septembre 2005

• #6

Bonjour le Forum
Bonjour MichelXld

Dernier essais d'envoie, malgré que les autres tentatives était identiques.
C'est a dire que le fichier ne dépassait pas les 50 ko et n’avait pas de caractère spécial.

A + Tonio.........
[file name=Tonio.zip size=16051]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Tonio.zip[/file]

 

Pièces jointes

• Tonio.zip

  15.7 KB · Affichages: 13

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 18 Septembre 2005

• #7

rebonjour Tonio

tu peux tester


Private Sub CommandButton1_Click()
Dim Donnee1 As String, Donnee2 As String

Donnee2 = TextBox2.Value
Donnee1 = TextBox1.Value

With Sheets('Feuil1')
.Range('D' & ListBox1.ListIndex + 2) = Donnee2
.Range('C' & ListBox1.ListIndex + 2) = Donnee1
End With

IniList1
'Unload Me
End Sub


bon apres midi
MichelXld

 

Vote positif 0 Vote négatif

T

Tonio

Guest

• 18 Septembre 2005

• #8

Bonjour le Forum
Bonjour MichelXld

Effectivement ça marche, je te remercie pour ton aide.
Mais comment ce fait il que le même code marche sur un autre USF
Avec 4 TextBox et pas ici avec 2, et comment faire s'il ya 10 TextBox, faut toutes les déclarer.
Je suis novice et j'aimerais beaucoup comprendre.

Encore une fois MERCI.


A+ Tonio............

 

Vote positif 0 Vote négatif

_Thierry

XLDnaute Barbatruc

Repose en paix

• 18 Septembre 2005

• #9

Bonjour Tonio, Michel

En reprenant ce que Michel a écrit, voici comme je ferais si j'avais 10 TextBox (Nommées TextBox1, TextBox2..... TextBox10) à reporter de la Cellule C x à L x....

Private Sub CommandButton1_Click()
Dim i As Byte

    For i = 1 To 10
        With Sheets('Feuil1')
            .Cells(ListBox1.ListIndex + 2, i + 2) = Me.Controls('TextBox' & i)
        End With
    Next i

IniList1
'Unload Me
End Sub

Cliquez pour agrandir...

Bon Dimanche,
[ol]@+Thierry[/ol]

J - 6

 

Vote positif 0 Vote négatif