Erreur 438
Résolu
Bonjour,
Avec cette macro sur mon pc tout fonctionne ,sur le pc du club il y a erreur 438 propriété ou méthode non géré par cette objet de quoi cela peut il provenir?
Merci pour votre aide
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
Si la réponse vous satisfait, le merci à gauche vous attend.
Avec cette macro sur mon pc tout fonctionne ,sur le pc du club il y a erreur 438 propriété ou méthode non géré par cette objet de quoi cela peut il provenir?
Merci pour votre aide
Sub tri()
'
' tri Macro
'
Range("A4:H123").Select
ActiveWorkbook.Worksheets("Brulage ").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Brulage ").Sort.SortFields.Add2 Key:=Range("A4"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortTextAsNumbers
Range("A4:H123").Select
With ActiveWorkbook.Worksheets("Brulage ").Sort
.SetRange Range("A4:H123")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Configuration: Windows / Firefox 70.0
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir
Si la réponse vous satisfait, le merci à gauche vous attend.
2 réponses
-
ModérateurBonjour,
Merci d'attribuer au code la couleur syntaxique et la forme correcte avec le bouton<>
▼
.
-
-
Modérateur@JCB40C'est peu grave, quand même ;-)
J'ai changé récemment d'ordi et le comportement du bouton est différent :-/
-
-
J'ai trouvé il faut supprimer le 2 qui suit Add
SortFields.Add2 Key:=Range("A4"), _
