1004 : la méthode range de l'objet Global a echoué

Public Sub trieAlpha(wb As Workbook, col As Integer)

Range(Cells(4, col), Cells(43, col)).Select

wb.Worksheets("Salarie").Sort.SortFields.Clear

wb.Worksheets("Salarie").Sort.SortFields.Add Key:=Range(Cells(4, col)), _

SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

mon erreur s'effectue sur la dernière fonction.

je ne comprend pas l'erreur mis à part que je sais qu'elle provient de mon Range(cells(4,col))

de plus que signifie cette erreur?

Merci d'avance

Bonsoir,

Et de cette façon ?

With wb.Worksheets("Salarie")

    .Range(.Cells(4, col), .Cells(43, col)).Select

    .Sort.SortFields.Clear

    .Sort.SortFields.Add Key:=Range(Cells(4, col)), _
                         SortOn:=xlSortOnValues, _
                         Order:=xlAscending, _
                         DataOption:=xlSortNormal

End With

Herv é.

Merci, de ton aide mais cela ne fonctionne pas complètement : désormais la fonction select de l'objet range échoue.

Bonsoir,

Contrôle la valeur de ta variable "Col" avec un MsgBox juste avant. Elle doit être supérieure à 0 et inférieure ou égale à "Columns.Count"

Hervé.

Bonsoir

Surement une bêtise mais ....

La page "Salarie" est elle la page active ?

Bonjour,

Banzai64, effectivement, quand j'ai posté j'ai oublié les points de référence dans la partie "Key" du tri

With wb.Worksheets("Salarie")

    .Range(.Cells(4, col), .Cells(43, col)).Select

    .Sort.SortFields.Clear

    .Sort.SortFields.Add Key:=.Range(.Cells(4, col)), _
                         SortOn:=xlSortOnValues, _
                         Order:=xlAscending, _
                         DataOption:=xlSortNormal

End With

Hervé.

ma feuille est bien activé Banzai,

est ce que vous pouvez m'expliquer ce que signifie cette erreur?

pour finir j'ai encore une erreur "erreur définis par l'application ou par l'objet." avec tes modifications Hervé

Merci pour le temps que vous me consacré.

Cordialement

@Earwenn

Bonjour

Erreur 1004 fais une recherche avec ton ami et tu verras qu'il n'y a pas qu'une explication

Je pense(j'en suis sur) qu'avec ton fichier comportant l'erreur la réponse à ta question aurait été trouvée

J'en suis désolée mais je ne peux pas donner tout mon code, regle de confidentialité oblige...

Bonjour

Fais un extrait de ton fichier mais avec l'erreur

Changes les données "sensibles"

Sinon cela ne va être facile