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