Discussion :

[spileo]

Bonsoir,
j'utilise ce code pour trouver toutes les cellules d'une feuille qui contiennent "Sous Total", et mémoriser les indices des lignes dans un tableau.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
iLSTT = 0
With FExcel.Range(FExcel.Cells(1, 1), FExcel.Cells(dL, dC))
     Set PlageSTT = FExcel.Range(FExcel.Cells(1, 1), FExcel.Cells(dL, dC)).Find(what:="Sous Total", lookin:= xlvalues)
     If Not PlageSTT Is Nothing Then
          FirstAddress = PlageSTT.Address
          Do
               Set PlageSTT = PlageSTT.FindNext(PlageSTT)
               ReDim Preserve LSTT(iLSTT)
               LSTT(iLSTT) = PlageSTT.Row
               iLSTT = iLSTT + 1
          Loop While Not PlageSTT Is Nothing And PlageSTT.Address <> FirstAddress
     End If
End With

Je n'arrive qu'à trouver la première cellule contenant le critère "Sous Total".
dL et dC sont les dernières lignes et colonnes du tableau. J'ai essayé avec le range(FExcel.cells(1,1)) mais ça marche pas non plus.
Cela viendrait-il des cellules fusionnées?

[spileo]

J'ai trouvé!
Seulement je suis vraiment pas convaincu de l'efficacité du .findnext(laplagededépart)
Ca ça marche nettement mieux:

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
 
iLSTT = 0
With FExcel.Range(FExcel.Cells(1, 1), FExcel.Cells(65536, 256))
     Set PlageSTT = FExcel.Range(FExcel.Cells(1, 1), FExcel.Cells(65536, 256)).Find(what:="Sous total", LookIn:=xlValues, searchorder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True) ', searchorder:=xlByColumns)
     If Not PlageSTT Is Nothing Then
          FirstAddress = PlageSTT.Address
          ReDim Preserve LSTT(iLSTT)
          LSTT(iLSTT) = PlageSTT.Row
          iLSTT = iLSTT + 1
          Do
               Set cell = FExcel.Range(PlageSTT.Address).Offset(rowoffset:=1, columnoffset:=0)
               Set PlageSTT = cell.Find(what:="Sous total", LookIn:=xlValues, searchorder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True)
               ReDim Preserve LSTT(iLSTT)
               LSTT(iLSTT) = PlageSTT.Row
               iLSTT = iLSTT + 1
          Loop While Not PlageSTT Is Nothing And PlageSTT.Address <> FirstAddress
     End If
End With
ReDim Preserve LSTT(iLSTT - 2)

Si ça peut éviter quelque galère à quelqu'un...