Bonsoir Xplorer,
Utilisez 2 tableaux :
f = Array("Feuil1", "Feuil2")
col = Array("D", "G", "H")
et faites 2 boucles imbriquées sur les éléments de f et de col.
A+
merci beaucoup !
Je suis en train de me dire que je me suis peut-être trompé dans ma demande. J'essaye d'analyser et mieux comprendre le code écrit par lolotte 83 qui m'a bien aidé.
C'était peut-être pas "for each" .... For each ici a l'air de faire une recherche dans tout le classeur, pour des onglets s'appelant "Cat1", pour y travailler.
Mais ce qu'il se passe dans Cat1 suppose une analyse de tous les onglets et colonnes : c'est ces onglets ci, et colonnes que je voudrais mieux définir.
dans cette portion de code :
Select Case xOng.Name
Case Is <> "CAT1", "macros"
With Sheets(xOng.Name)
.... je devrais peut-être rajouter Case Is <> "feuille1", "feuille2" .... ou plutôt :
Case is <>
f = Array("Feuil1", "Feuil2")
col = Array("D", "G", "H")
?
Voilà le code dans son ensemble :
Sub TEST_XPLORER()
Dim xTablo()
xPreLig = 10
xDerLig = 200
xCpt = 0
With Sheets("CAT1")
.Range("C7:C100").ClearContents
End With
For Each xOng In ThisWorkbook.Sheets
Select Case xOng.Name
Case Is <> "CAT1", "macros"
With Sheets(xOng.Name)
For F = 1 To 50
For Each xCell In .Range(.Cells(xPreLig, F * 1), .Cells(xDerLig, F * 1))
If xCell.Offset(0, 1) = 1 Then
xCpt = xCpt + 1
ReDim Preserve xTablo(1 To xCpt)
xTablo(xCpt) = xCell.Value
End If
Next xCell
Next F
End With
End Select
Next xOng
With Sheets("CAT1")
For F = 1 To UBound(xTablo)
.Range("C" & 7 + F) = xTablo(F)
Next F
End With
End Sub