Plantage dans Userform

[Léon de Marseille]

Bonjour à tous

J'ai un plantage dans un userform, surement très évident pour vous,
Private Sub CommandButton1_Click() 'bouton 'Ok'
Dim Dl As Long 'déclare la variable Dl (Dernière ligne)
Dim x As Byte 'déclare la variable x

With Sheets('Feuil2')
.Activate 'active l'onglet 'Feuil2'
Dl = .Range('A65536').End(xlUp).Row + 1 'définit la variable Dl

'place les donnés dans le tableau
For x = 1 To 19 'boucle sur 19 éléments
.Cells(Dl, x).Value = Me.Controls('TextBox' & x).Value
Next x
Unload Me 'vide et ferme l'UserFOrm

'tri selon le nom
.Range('A1').CurrentRegion.Sort Key1:=Range('A1'), Order1:=xlAscending, Header:= _
xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub

Ci joint fichier Merci d'avance
Léon
[file name=Isabelle.zip size=19520]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Isabelle.zip[/file]

 

[Jacques87]

Bonjour Léon de Marseille

Normal qu'il se plante ton code, tu fais une boucle sur tes TextBox de 1 à 19 alors que tu n'en as que 18
Quand il cherche le 19ème TextBox il se fache


A vrai dire en regardant de plus près le 19ème a pour nom TextBox23 !!!
Change son nom en TextBox19 pour pouvoir l'atteindre

Bonne journée

Message édité par: Jacques87, à: 22/01/2006 11:15

 

[pierrejean]

premier plantage du au fait que la 19 eme textbox s'appelle tetbox23
second :xlsortNormal ????
voir fichier joint [file name=Isabelle1.zip size=17478]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Isabelle1.zip[/file]

 

[Léon de Marseille]

Dur dur le Dimanche matin pas les yeux en face des trous
Merci à vous deux pour votre réponse dominicale
Léon