Erreur 438

Question

Sujet Précédent Sujet Suivant

Erreur 438

Résolu/Fermé

JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

- 24 oct. 2019 à 10:03
JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

- 25 oct. 2019 à 10:27

Bonjour,

J'ai fait une macro pour le fichier d'un membre CCM pour le tri de plusieurs plages excel,avec un bouton activx,chez moi cela fonctionne très bien,chez lui il a le message suivant:

erreur d’exécution 438
propriété ou méthode non gérée par cet objet

D’où peut provenir le problème?
Merci pour votre aide
Cordialement

Configuration: Windows / Firefox 69.0

A voir également:

Erreur 438 propriété ou méthode non gérée par cet objet
Vba erreur 438 - Meilleures réponses
Erreur 438 vba - Meilleures réponses
Erreur 438 propriété ou méthode non gérée par cet objet ✓ - Forum - VB / VBA
Vba erreur 438 ✓ - Forum - VB / VBA
Erreur 438 vba ✓ - Forum - VB / VBA
Erreur 438 ✓ - Forum - Excel
Bug fonction VBA qui retourne erreur 438 ✓ - Forum - VB / VBA

8 réponses

Posez votre question

yg_be · Answer 1 · 2019-10-24T10:13:16+0200

Réponse 1 / 8

yg_be

Messages postés: 18316
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 25 janvier 2022

1 003
24 oct. 2019 à 10:13

bonjour, sur quelle ligne de code?

jordane45 · Answer 2 · 2019-10-24T10:18:09+0200

Bonjour,

Version du excel utilisé ?
Système d'exploitation ?
Langue de son Excel et de son OS ?
Références chargées par son Excel (dans l'éditeur de macros VBE ) ?
Code utilisé ?
Sur quelle ligne le message apparaît ?

Bref... que d'informations manquantes pour espérer obtenir une réponse fiable...
Merci de faire un petit effort.

Et au cas où, une petite recherche sur cette erreur m'a permis de trouver une discussion traitant d'un souci lié à une mise à jour :
https://forum.excel-pratique.com/viewtopic.php?t=60484

jordane45 · Answer 3 · 2019-10-24T18:47:46+0200

Réponse 3 / 8

jordane45

Messages postés: 34708
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 26 janvier 2022

4 000
24 oct. 2019 à 18:47

Bonjour
Il suffit de remplacer add2 par add.

Tomsuper · Answer 4 · 2019-10-24T10:12:13+0200

Réponse 4 / 8

Tomsuper

Messages postés: 1922
Date d'inscription: mardi 24 mai 2011
Statut: Membre
Dernière intervention: 19 août 2020

400
24 oct. 2019 à 10:12

Bonjour,

Il se peut que tu utilises un élément comme un objet sans que s'en soit un.

Comme str = trim(quelquechose) str.lenght

Dans cette exemple trim retourne un string et non un objet. Ce qui fait que str.lenght ne peut fonctionner.

Regarde les type de retours des fonction que tu utilises.

Cordialement

JCB40 · Answer 5 · 2019-10-24T11:11:13+0200

Réponse 5 / 8

JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

457
24 oct. 2019 à 11:11

Bonjour à tous
Merci pour vos réponses
Ci-dessous la macro qui concerne 8 plages
https://www.cjoint.com/c/IJyjkOeIIUh

jordane45

Messages postés: 34708
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 26 janvier 2022

4 000
24 oct. 2019 à 11:49

Merci de poster ton code directement sur le forum (en utilisant les balises de code )
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code

JCB40 · Answer 6 · 2019-10-24T11:53:35+0200

Sub tri_poules()
'
' TRI_POULES Macro
'

'
    Range("A7:G10").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("G7:G10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("A7:G10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I7:O10").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("O7:O10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("I7:O10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Q7:W10").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("W7:W10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("Q7:W10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Y7:AE10").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("AE7:AE10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("Y7:AE10")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    ActiveWindow.ScrollColumn = 1
    ActiveWindow.SmallScroll Down:=12
    Range("A24:G24").Select
    Range("A24:G27").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("G24:G27"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("A24:G27")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("I24:O27").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("O24:O27"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("I24:O27")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Q24:W27").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("W24:W27"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("Q24:W27")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Range("Y24:AE27").Select
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
        Range("AE24:AE27"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("Classement Poules").Sort
        .SetRange Range("Y24:AE27")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Maintenant il faudrait répondre aux questions que nous t'avons posé :

Version du excel utilisé ?
Système d'exploitation ?
Langue de son Excel et de son OS ?
Références chargées par son Excel (dans l'éditeur de macros VBE ) ?
Sur quelle ligne le message apparaît ? — jordane45

JCB40 · Answer 7 · 2019-10-24T14:34:49+0200

Réponse 7 / 8

JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

457
24 oct. 2019 à 14:34

Re bonjour

Version excel 2016 français
Système exploitation Win 10
Ligne qui bug

ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields.Add2 Key:= _
Range("G7:G10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
merci pour l'aide

yg_be

Messages postés: 18316
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 25 janvier 2022

1 003
24 oct. 2019 à 18:43

dans ce cas-là, la première chose que je ferais, pour confirmer que c'est la méthode Add2 qui pose problème:

Dim sf As SortFields
Set sf = ActiveWorkbook.Worksheets("Classement Poules").Sort.SortFields
sf.Add2 Key:= _
    Range("G7:G10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
    xlSortNormal

peux-tu partager le fichier qui provoque l'erreur?

JCB40 · Answer 8 · 2019-10-25T10:00:41+0200

Réponse 8 / 8

JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

457
25 oct. 2019 à 10:00

Bonjour à tous les 2
Il semblerait que le fichier fonctionne normalement ,j'ai remplacé add2 par add.
Pouvez vous svp me dire pourquoi cela fonctionnait chez moi et pas chez lui?
Cordialement

jordane45

Messages postés: 34708
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 26 janvier 2022

4 000
25 oct. 2019 à 10:04

La fonction add2 a été ajoutée dans les versions "récentes" d'office (après 2016 il me semble)
Il faut croire que ça version est plus ancienne ou qu'il n'a pas fait les mises à jour.
Mais bon... à moins d'avoir réellement besoin du add2 (pour du sous sous item... )... il n'y a acun intérêt à l'utiliser à la place de la fonction add

JCB40

Messages postés: 2518
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 24 janvier 2022

457 > jordane45

Messages postés: 34708
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 26 janvier 2022

25 oct. 2019 à 10:27

Merci pour ces renseignements
Bonne journée

Erreur 438

8 réponses

Votre réponse

Newsletter