Discussion :

[rom05]

Bonjour à tous,
voilà j'ai un classeur avec plusieurs feuilles et seulement que quelques une m'intéressent.. les feuilles qui m'intéressent ont en commun la valeur de la cellule A2 et une partie de leur nom de feuille en commun (partie commune = flore)
le soucis c'est que j'essai de faire une boucle pour que une fois que la macro fini son application sur la première feuille , elle aille sur la nouvelle feuille...

voici mon script :

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
Sub MacroR(CL1 As ThisWorkbook, FL1 As Worksheet, Fichier)
 
Dim CL2 As Workbook  'classeur de données originales
Dim FL2 As Worksheet 'feuille de données originales
Dim FL4 As Worksheet
 
Application.ScreenUpdating = False
Application.DisplayAlerts = False
 
Set CL2 = Workbooks.Open(Fichier)
    For Each FL2 In CL2.Worksheets
    If Cells(2, 1) = "Relevé" Then
    Set FL4 = ActiveSheet
    End If
 
'suite du script
 
next
End sub

le problème c'est que çà ne me prend réellement et me renvoie que la dernière feuille.
Un peu d'aude svp

[Jean-Pierre49]

Bonjour

Sans test, je tenterais

Code :

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

1
2
3
4
5
Set CL2 = Workbooks.Open(Fichier)
    For Each FL2 In CL2.Worksheets
    If FL2.Cells(2, 1) = "Relevé" Then
    Set FL4 = FL2 
    End If

[rom05]

merci pour ta réponse
ta solution me paraît bien mais je viens de l'essayé et j'ai l'impression que
set FL4 = FL2
marche pas car quand je fais appel à FL4 par la suite çà bug...
quand je fais avancé la macro pas à pas je remarque qu'il ne prend pas en compte : set FL4 = FL2
et passe directement à end if...
as-tu une idée?

[Jean-Pierre49]

Test en remplacant

Code :

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

Set FL4 = FL2

par

Code :

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

FL2.select

[rom05]

çà marche, je te remercie... en fait c'était surtout moi qui me plantait et ne mettait pas le end if ainsi que le next au bon endroit...