erreur 438 Résolu

Question

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

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

Chris 94 · Answer

Bonjour,

Merci d'attribuer au code la couleur syntaxique et la forme correcte avec le bouton <>▼.

JCB40 · Answer

J'ai trouvé   il faut supprimer le 2 qui suit Add 
SortFields.Add2 Key:=Range("A4"), _

Erreur 438

2 réponses

Votre réponse

Discussions similaires