L
Leon de Marseille
Guest
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
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