Erreur 438

Résolu
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   -  
Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   -
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


2 réponses

Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345
 
Bonjour,

Merci d'attribuer au code la couleur syntaxique et la forme correcte avec le bouton
<>
.
1
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
Bonjour
J'ai fait cette manipe qui n'a pas du être prise en compte,j'en suis désolé
0
Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345 > JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention  
 
C'est peu grave, quand même ;-)

J'ai changé récemment d'ordi et le comportement du bouton est différent :-/
0
JCB40 Messages postés 3013 Date d'inscription   Statut Membre Dernière intervention   463
 
J'ai trouvé il faut supprimer le 2 qui suit Add
SortFields.Add2 Key:=Range("A4"), _

1
Chris 94 Messages postés 54087 Date d'inscription   Statut Modérateur Dernière intervention   7 345
 
Merci d'être repassé :-)
0