Discussion :

[Titened]

Bonjour,

comme beaucoup de monde sur ce forum, j'ai des problèmes avec mon programme.

Le but du programme est de trier dans l'ordre décroissant 36 colonnes, sauf si sa ligne 3 est vide. Quand je lance mon programme, on me dit qu'il il y une erreur d'exécution '1004' (erreur définie par l'application ou par l'objet) au niveau de la ligne en rouge.

Je suppose que mon erreur vient de la ligne en bleue...

Merci d'avance pour votre aide,

Titened

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
For col = 1 To 36
    If IsEmpty(Sheets("brouillon").Cells(3, col)) = True Then
        fun = 2
    Else
        derlig = Sheets("brouillon").Cells(65536, col).End(xlUp).Row
     
        Worksheets("brouillon").Range(Cells(3, col), Cells(derlig, col)).Select
    
        Selection.Sort Key1:=Sheets("brouillon").Range(Cells(3, col)), Order1:=xlDescending, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

    End If
Next col

[casefayere]

Bonjour,
essayes comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
With Sheets("brouillon")
    For col = 1 To 36
        If IsEmpty(.Cells(3, col)) Then
            fun = 2
        Else
            derlig = .Cells(65536, col).End(xlUp).Row
            .Range(Cells(3, col), Cells(derlig, col)).Sort Key1:=.Range(Cells(3, col).Address), Order1:=xlDescending, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        End If
    Next col
End With

[Titened]

Maintenant il m'affiche une erreur d'exécution '9' sur cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
.Range(Cells(3, col), Cells(derlig, col)).Sort Key1:=.Range(Cells(3, col).Address), Order1:=xlDescending, _
                OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

Merci beaucoup pour ton aide !

[Titened]

Je me sens bête, le programme a marché une fois. Je n'ai rien changé et il me remet l'erreur 9 (l'indice n'est pas dans la sélection) ou 1004 (erreur définie par l'application ou l'objet)

Merci pour votre aide et votre patience

[casefayere]

Peux-tu mettre ton code complet et indiquer sur quellle ligne, une erreur est générée, parce que j'avais testé sur un fichier bidon avant de t'envoyer mon code, sans problème.

PS : je pense qu'il faut ajouter un point "." devant chaque "cells" car tu ne provoques peut-être pas la procédure à partir de la même feuille

[Titened]

en ajoutant les points devant Cells, ça marche

Une fois de plus merci beaucoup !!!!!