Erreur 438

Résolu/Fermé

JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 - 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 - Accueil - Windows
Erreur 0x80070643 Windows 10 : comment résoudre le problème de la mise à jour KB5001716 - Accueil - Windows
Erreur 1001 outlook - Accueil - Bureautique
Code erreur f3500-32 ✓ - Forum Bbox Bouygues
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 334
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 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 464
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 334 > JCB40 Messages postés 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025
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 2978 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 1 février 2025 464
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 334
18 nov. 2019 à 16:47

Merci d'être repassé :-)

Discussions similaires

Erreur 3005 sur France TV

Code erreur 3000

Erreur 5000 message No Renderer Found

Instagram bloqué "une erreur s'est produite".

Reçoit-on des notifications pour un "j'aime" si on clique sue "je