Quelle type de boucle ?

Version imprimable

Bonjour à tous.

J'ai codé une grosse macro qui "subit" des ajouts de bouts de code au fur et à mesure que je rencontre des problèmes.
Aujourd'hui, je me suis dit qu'il serait préférable, avant de lancer les instructions de traitement d'un fichier, de contrôler si l'utilisateur n'a pas déjà un classeur d'ouvert.
Je vais donc tester si le classeur ouvert et actif est valide pour que ma macro puisse s'exécuter.
Évidemment, si l'opérateur a ouvert excel et qu'il y a un classeur vierge d'ouvert avec les 3 feuilles vierges que l'on connait bien ("Feuil1", "Feuil2" et "Feuil3"), ma macro va forcément planter (car elle dépend du contenu du fichier).
Je me suis donc dit que j'allais faire une boucle sur le nombre de feuilles présentes dans le classeur ouvert actif (tant pis s'il y a plusieurs classeurs d'ouverts) et contrôler le nom de chaque feuille afin de voir s'il y en a une dont le nom correspondrait à un nom requis (exemple: "Suivi actif").

Je ne parviens pas à traduire cela en algorithme et en boucles.
J'ai toujours eu l'habitude d'utiliser For Next et il n'y a que peu, que je me suis mis (je me suis obligé) à utiliser Do loop et peut-être les autres.
Pour de vrai, je n'utilise (en alternative à for next) que Do While loop.

Je ne sais pas traduire par une boucle tant que le nom de la feuille (n) n'est pas = à "Suivi actif", je continue de scanner les autres feuilles mais si RIEN n'est trouvé alors je sors de ma SUB.

La contrainte dans tout cela, c'est que je ne veux pas mettre un if et un else en début de procédure et un END IF tout en bas de ma précédure: j'ai peur de galérer en cas de dépannage à retrouver le IF correspondant au END IF.

L'idéal serait de récupérer le nom de toutes les feuilles et SEULEMENT à la fin de tester si au moins l'une d'entre elles a le nom requis pour continuer l'exécution de la macro sinon, EXIT SUB.
Mais je n'y arrive pas.
Si je mets une condition avec un If nom de la Feuille (n) <> "Suivi actif" then Exit Sub, je sors direct de la procédure sans avoir le temps de tester les autres feuilles.

J'aimerais rajouter un petit"bloc" de code qui teste ça mais sans englober toute ma "géante" macro (si, si je suis modeste) dans ce nouveau IF.

Si je trouve encore un autre IF à rajouter pour ajouter un nouveau contrôle, je vais me retrouver avec des milliards de If imbriqués, ce que je ne souhaite pas.

Je passe pas mal de temps sur le tuto e Silkyroad sur la gestion des boucles, mais je ne trouve pas la traduction de ce que je veux faire.
Code:

1 2 3 4 5 6 7 8 9 10 'Teste s'il y a plusieurs classeurs d'ouverts au lancement de la macro avec le risque d’exécuter la macro sur le mauvais classeur nbClasseurOuverts = Application.Workbooks.Count 'Teste si le classeur actif est valide en faisant un test sur le nom d'une des feuilles du classeur ("Suivi actif") For n = 1 To Application.ActiveWorkbook.Worksheets.Count NomSheetClasseurActif = Application.ActiveWorkbook.Worksheets.Item(i).Name If NomSheetClasseurActif <> "Suivi actif" Then 'Ne convient forcément pas Exit For End If Next
Code:

1 2 3 4 5 6 7 8 9 'Teste s'il y a plusieurs classeurs d'ouverts au lancement de la macro avec le risque d’exécuter la macro sur le mauvais classeur nbClasseurOuverts = Application.Workbooks.Count'Teste si le classeur actif est valide en faisant un test sur le nom d'une des feuilles du classeur ("Suivi actif") For n = 1 To Application.ActiveWorkbook.Worksheets.Count NomSheetClasseurActif = Application.ActiveWorkbook.Worksheets.Item(i).Name Do While NomSheetClasseurActif <> "Suivi actif" Then 'Ne convient forcément pas Exit For Loop Next
Code:

1 2 3 4 5 6 7 8 9 'Teste s'il y a plusieurs classeurs d'ouverts au lancement de la macro avec le risque d’exécuter la macro sur le mauvais classeur nbClasseurOuverts = Application.Workbooks.Count'Teste si le classeur actif est valide en faisant un test sur le nom d'une des feuilles du classeur ("Suivi actif") Pour toutes les feuilles contenues dans le classeur actif If aucun des noms de toute les feuilles du classeur ne correspond à "Suivi actif" alors Msgbox "Le classeur actif n'est pas valide. Ouvrez ou activez un fichier valide." 'si le nb de classeurs ouverts est > 1 Exit Sub End If Ma macro qui poursuit le traitement
Si vous avez quelques lumières à jeter sur me zones d'ombre...

Merci d'avance.

Avec une fonction :) vous pouvez vous inspirer de ce qui suit :)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
' tester si la feuille existe
' ---------------------------
Function existe_feuille(nom_feuille)
    For i = 1 To Worksheets.Count
        If Worksheets(i).Name = nom_feuille Then
            existe_feuille = True
            Exit Function
        End If
    Next i
    existe_feuille = False
    Exit Function
 End Function

Code:

1
2
3
4
5
6
7
8
9
    'effacer si existe déjà la feuille "Ma_Feuille"
    If existe_feuille("Ma_Feuille") = True Then
       Application.DisplayAlerts = False
       Sheets("Ma_Feuille").Cells.ClearContents
       Application.DisplayAlerts = True
    Else
       Sheets.Add.Name = "Ma_Feuille"
       Sheets("Ma_Feuille").Move After:=Sheets(1)
    End If

Bonjour,
Pourquoi n'utiliserais-tu pas une boucle sur tes feuilles?

Code:

1
2
3
4
5
6
7
8
9
10
Dim feuillePresente As Boolean
Dim sh As Worksheet
feuillePresente = False
For Each sh In Worksheets
    If sh.Name = "Suivi Actif" Then
        feuillePresente = True
        Exit For
    End If
Next sh
MsgBox "La feuille est présente : " & feuillePresente

21/04/2017, 15h39
pipout64

Bonjour Riaolle et argoet.

Merci pour vos solutions qui se rejoignent grâce au subterfuge d'une variable true/false.
Je suis vraiment une quiche parce que j'ai déjà utilisé ce subterfuge (das une autre macro) mais pas assez pour que ça me saute à la figure.
Je voulais absolument essayer de passer par une formulation de boucle que je n'ai pas l'habitude ou ne sais pas utiliser.
Je vais modifier mon code.
Merci pour vos contributions.

@riaolle : je passe par une boucle: obligé sinon je ne peux pas scanner toute le feuilles...

Bonjour,

Pour déterminer l'existence d'une feuille, pas besoin de boucle.
On peut tenter d'instance une variable contenant cette feuille et utiliser la gestion d'erreur.
Exemple :
Code:

1 2 3 4 5 6 7 Function WorkSheet_Exist_1(ByVal NomFeuille As String) As Boolean Dim sh As Worksheet On Error Resume Next Set sh = ThisWorkbook.Sheets(NomFeuille) WorkSheet_Exist = Not sh Is Nothing Set sh = Nothing End Function
On peut même en imaginer une moins lourde en prenant l'adresse de la cellule A1 de cette feuille (variable String contre Objet WorkSheet) :
Code:

1 2 3 4 5 6 Function WorkSheet_Exist_2(ByVal NomFeuille As String) As Boolean Dim s$ On Error Resume Next s = ThisWorkbook.Sheets(NomFeuille).Cells(1).Address WorkSheet_Exist_2 = s <> "" End Function

21/04/2017, 16h08
pipout64

Bonjour antonysansh.

Merci pour ces nouvelles perspectives même si l'on m'a appris et si j'ai cru comprendre qu'il fallait plutôt utiliser les erreurs avec parcimonie.
En fait, j'utilise déjà dans mon code ce que tu prodigues, notamment pour l'ouverture d'un fichier qui n'existerait pas auquel cas je génère une erreur que j'exploite pas la suite.

On est quand même bien d'accord que je ne peux pas utiliser de while wend/ do loop/until/while pour traduire l'algorithme (c'est juste pour ma culture d'homme du monde et obliger mon cerveau à traduire un algorithme avec des syntaxes de code différentes).

Bonne après-midi à tous.
21/04/2017, 17h22
Marc-L

Bonjour,

on peut même utiliser le B-A-BA à savoir la simple fonction ESTREF de formule de calculs d'Excel
pour vérifier si un classeur et / ou une feuille de calculs existe ou pas, voir donc cette discussion !
Sinon un autre exemple ici …

___________________________________________________________________________________________________________
Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …
22/04/2017, 12h28
Invité

Bonjour,
@riaolle ravis de voir que le on error a disparu!