Erreur 438

Résolu/Fermé

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - Modifié le 18 nov. 2019 à 16:11
Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 - 18 nov. 2019 à 16:47

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

A voir également:

Erreur 438
Erreur 0x80070643 - Guide
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
Erreur 10016 epson - Forum Imprimante
Erreur c2002 western union ✓ - Forum Vos droits sur internet
Erreur g030 - Forum Bbox Bouygues

2 réponses

Réponse 1 / 2

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 325
18 nov. 2019 à 16:12

Bonjour,

Merci d'attribuer au code la couleur syntaxique et la forme correcte avec le bouton

<>

▼

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
18 nov. 2019 à 16:16

Bonjour
J'ai fait cette manipe qui n'a pas du être prise en compte,j'en suis désolé

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 325 > JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024
18 nov. 2019 à 16:19

C'est peu grave, quand même ;-)

J'ai changé récemment d'ordi et le comportement du bouton est différent :-/

Réponse 2 / 2

JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
18 nov. 2019 à 16:28

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

Chris 94 Messages postés 50978 Date d'inscription mardi 8 janvier 2008 Statut Modérateur Dernière intervention 17 février 2023 7 325
18 nov. 2019 à 16:47

Merci d'être repassé :-)

Discussions similaires

Instagram "Désolé, une erreur s'est produite"

Erreur vidéo inconnue sur le Freebox Player

Free erreur 38 : impossible d'envoyer des SMS

Erreur de lecture sur iptv smarters

erreur 438

Discussions similaires

Newsletters