Erreur 438 [Résolu/Fermé]

Question

Erreur 438 [Résolu/Fermé]

Signaler

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

- 24 oct. 2019 à 10:03
JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

- 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

Afficher la suite

A voir également:

Vba erreur 438
Erreur 438 - Meilleures réponses
Erreur 438 vba - Meilleures réponses
Erreur 438 VBA Excel ✓ - Forum - VB / VBA
Vba erreur 438 propriété méthode non gérée cet objet ✓ - Forum - VB / VBA
VBA ✓ - Forum - VB / VBA
Problème Instrcutions code VBA - Erreur 438 ✓ - Forum - Excel
Erreur 438 ✓ - Forum - VB / VBA

8 réponses

Réponse 2 / 8

jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

3 193
24 oct. 2019 à 10:18

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

Réponse 3 / 8

jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

3 193
24 oct. 2019 à 18:47

Bonjour
Il suffit de remplacer add2 par add.

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

370
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

Réponse 5 / 8

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366
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

Signaler

jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

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

Réponse 6 / 8

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366
Modifié le 24 oct. 2019 à 11:58

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

Signaler

jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

3 193
24 oct. 2019 à 12:24

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 ?

Signaler

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366 > jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

24 oct. 2019 à 13:43

Je vois cela avec lui et je vous tiens au courant
Crdlt

Réponse 7 / 8

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366
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

Signaler

yg_be

Messages postés: 13943
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 18 janvier 2021

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

Réponse 8 / 8

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366
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

Signaler

jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

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

Signaler

JCB40

Messages postés: 2194
Date d'inscription: lundi 2 juillet 2018
Statut: Membre
Dernière intervention: 18 janvier 2021

366 > jordane45

Messages postés: 31087
Date d'inscription: mercredi 22 octobre 2003
Statut: Modérateur
Dernière intervention: 18 janvier 2021

25 oct. 2019 à 10:27

Merci pour ces renseignements
Bonne journée

Posez votre question

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

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

Réponse 1 / 8

yg_be

Messages postés: 13943
Date d'inscription: lundi 9 juin 2008
Statut: Contributeur
Dernière intervention: 18 janvier 2021

785
24 oct. 2019 à 10:13

bonjour, sur quelle ligne de code?

Erreur 438 [Résolu/Fermé]

8 réponses

Votre réponse

Newsletter