Discussion :

[andy05]

Bonjour, comme dit dans l'intitulé je cherche a obtenir le nombre max de ligne de chacun de mes tableaux pour pouvoir apres les remettre dans l'ordre ( ordre croissant des chiffres) de la colonne A
Mes tableaux vont de la colonne A3 a W quelque chose , c'est donc le nombre de ligne que je cherche.( au quel il faut je retire 3)


pour ce faire j'ai écris le code suivant;
mais j'ai une erreur je pense que c'est dans la formulation d'une ligne mais je ne sais pas la syntaxe exacte

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub tri()
 
 

For Each Sheet In Worksheets
 
Dim DernLigneTab As Integer
DernLigneTab = Range("A" & Rows.Count).End(xlUp).Row
DernLigneTab = DernLigneTab - 3
 
 
If Sheet.Name = "Resultat_General" Then
Else
 
Sheets.Activate
 
'je pense que l'erreur est la 
Range("A3" & ":" & "W" & DernLigneTab).Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 
End If
Next Sheet
End Sub

[patricktoulon]

Bonjour

Code :

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

DernLigneTab = Range("A" & range("A" & Rows.Count).End(xlUp).Row)

Te donne la dernière ligne utilisée de la colonne A

[andy05]

je suis tout a fait d'accord mais du coup comment j'ai écris cette ligne de code correctement ?

Code :

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

Range("A3" & ":" & "W" & DernLigneTab).Select

[parmi]

Code :

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

Range("A3:W" & DernLigneTab).Select

Mais j'éviterais le Select
Si c'est pour trier, j'irais comme suit

Code :

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

Range("A3:W" & DernLigneTab).Sort '.... avec les paramètres nécessaires

[andy05]

merci mais j'ai toujours une erreur dans ma syntaxe vous la voyez ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub tri()
 
 
For Each Sheet In Worksheets
 
Dim DernLigneTab As Integer
 
 
DernLigneTab = Range("A" & Range("A" & Rows.Count).End(xlUp).Row - 3)
 
 
If Sheet.Name = "Resultat_General" Then
Else
 
Sheets.Activate
 
 
Range("A3:W" & DernLigneTab).Select
 
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
 
End If
Next Sheet
End Sub

[Invité]

Bonjour Andy05,

Suit le code corrigé. Plusieurs petites choses n'allaient pas dont une (Range) provoquait une erreur il semble que tu le traitais comme pour une sélection de cellule.
Cordialement.
Jean-Claude

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Sub tri()
    'Pour accélérer le traitement on peut utiliser
    Application.ScreenUpdating = False
    Dim DernLigneTab As Integer
    For x = 1 To Worksheets.Count
        Sheets(x).Activate
        'DernLigneTab = Range("A" & Range("A" & Rows.Count).End(xlUp).Row - 3)
        DernLigneTab = Range("A" & Rows.Count).End(xlUp).Row - 3
        If Not ActiveSheet.Name = "Resultat_General" Then
            Range("A3:W" & DernLigneTab).Select
            Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal
        End If
    Next
    Application.ScreenUpdating = True
End Sub