Variable non définie en userform

[Leon de Marseille]

Bonjour à tous,

Dans un userform lorsque je veux valider mes saisies j'ai une erreur de compilation; variable non definie qui apparait

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 24 'boucle sur 24 é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

xlSortNormal apparait stabiloté en bleu or ce meme programme fonctionne sur deux autres pc tout à fait normalement
Merci si vous pouvez m'indiquer ou est le bleme
Merci d'avance
Léon

 

[_Thierry]

Bonjour Léon, le Forum

A mon humble avis ça sent un problème de version à plein nez...

Les deux autres PCs doivent être sous une version 2002 ou 2003 et celui où ça ne passe pas est en Excel 97 ou 2000.

Essaies tout simplement de faire une sélection de Cellule de ta Feuille 'Feuil2'... avant de fait le Sort... Ceci est souvent indispensable pour Excel 97. (pas nécessaire sous 2000)

Par contre si je ne m'abuse 'DataOption1:=xlSortNormal' n'existe que depuis Excel 2002, donc il faut supprimer cette Option facultative si tu souhaites obtenir une application couvrant plus de versions.

Bonne fin de Dimanche
[ol]@+Thierry[/ol]

 

[Léon de Marseille]

Salut Thierry

Effectivement cétait un bleme dut au différentes versions tout le monde sous 2003 à résolu le blême
Merci de ton renseignement
Bien informatiquement
Léon