Erreur 438 [Résolu]

Réponse 2 / 8

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour, sur quelle ligne de code?

Réponse 3 / 8

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 753

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 4 / 8

Tomsuper Messages postés 1926 Date d'inscription Statut Membre Dernière intervention 360

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

JCB40 Messages postés 3040 Date d'inscription Statut Membre Dernière intervention 468

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 38486 Date d'inscription Statut Modérateur Dernière intervention 4 753

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 3040 Date d'inscription Statut Membre Dernière intervention 468

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

jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention 4 753

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 ?

JCB40 Messages postés 3040 Date d'inscription Statut Membre Dernière intervention 468 > jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention

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

Réponse 7 / 8

JCB40 Messages postés 3040 Date d'inscription Statut Membre Dernière intervention 468

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 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

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 3040 Date d'inscription Statut Membre Dernière intervention 468

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 38486 Date d'inscription Statut Modérateur Dernière intervention 4 753

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 3040 Date d'inscription Statut Membre Dernière intervention 468 > jordane45 Messages postés 38486 Date d'inscription Statut Modérateur Dernière intervention

Merci pour ces renseignements
Bonne journée

Erreur 438

8 réponses

Votre réponse

Discussions similaires