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
yg_be
- Messages postés
- 13943
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 18 janvier 2021
bonjour, sur quelle ligne de code?
jordane45
- Messages postés
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
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
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
- Messages postés
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
Bonjour
Il suffit de remplacer add2 par add.
Il suffit de remplacer add2 par add.
Tomsuper
- Messages postés
- 1922
- Date d'inscription
- mardi 24 mai 2011
- Statut
- Membre
- Dernière intervention
- 19 août 2020
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
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
- Messages postés
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
Bonjour à tous
Merci pour vos réponses
Ci-dessous la macro qui concerne 8 plages
https://www.cjoint.com/c/IJyjkOeIIUh
Merci pour vos réponses
Ci-dessous la macro qui concerne 8 plages
https://www.cjoint.com/c/IJyjkOeIIUh
jordane45
- Messages postés
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
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
Explications disponibles ici :
https://codes-sources.commentcamarche.net/faq/11288-les-balises-de-code
JCB40
- Messages postés
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
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
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
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
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
- Messages postés
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
Je vois cela avec lui et je vous tiens au courant
Crdlt
Crdlt
JCB40
- Messages postés
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
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
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
- 13943
- Date d'inscription
- lundi 9 juin 2008
- Statut
- Contributeur
- Dernière intervention
- 18 janvier 2021
dans ce cas-là, la première chose que je ferais, pour confirmer que c'est la méthode Add2 qui pose problème:
peux-tu partager le fichier qui provoque l'erreur?
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
- Messages postés
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
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
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
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
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
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
- 2194
- Date d'inscription
- lundi 2 juillet 2018
- Statut
- Membre
- Dernière intervention
- 18 janvier 2021
- Messages postés
- 31087
- Date d'inscription
- mercredi 22 octobre 2003
- Statut
- Modérateur
- Dernière intervention
- 18 janvier 2021
Merci pour ces renseignements
Bonne journée
Bonne journée