Ouvrir un classeur sur la première feuille "vierge"

[hypo78]

Bonjour à tous,

Mon classeur est constitué d 'une centaine de feuilles identiques.
Au fur et à mesure il se remplit avec une date en cellule AF2.

Ce que je souhaiterai, qu'à l'ouverture on soit directement sur la première feuille non remplie.

J'ai commencé à tatonner un code, mais si je suis là.... c'est que çà ne fonctionne pas.

Private Sub Workbook_Open()
w As Worksheet, cel As Range
For Each w In Worksheets
  For Each cel In w.[AF2]
    If cel = "" Then
      w.Activate
      Exit Sub
    End If
  Next
End Sub

Merci d'avance

 

[Dranreb]

Re : Ouvrir un classeur sur la première feuille "vierge"

Bons...jour.
Il manque le mot clé "Dim" devant vos déclaration.
AF2 est l'adresse d'une seule cellule, alors pour chaque cellule dedans ben ça ne bouclera qu'une fois.
Sinon c'est pas mal. Je préfère personnellement une majuscule pour commencer mes noms de variables. Je les tape ensuite en minuscule dans le code, comme ça s'il ne me corrige pas la casse je suis tout de suite averti d'une erreur de frappe ou que ma variable n'est pas déclarée.
Cordialement

 

[belerofon]

Re : Ouvrir un classeur sur la première feuille "vierge"

Salut Hypo,
Je me pose une question en rapport avec la tienne... Pour reussir a coder ta problematiqie, il faudrait hierarchiser toutes tes feuilles dans un ordre croissant pour qu a l issue de ta boucle VB s arrete sur la premiere feuille vierge... Il le fait peut etre automatiquement mais c est juste une question que je me posais...
J.

 

[belerofon]

Re : Ouvrir un classeur sur la première feuille "vierge"

En y pensant encore, ton code demande d ouvrir toutes les feuilles vierges donc normal que ca plante...
Tu as besoin de creer une boucle qui s arretera des qu elle rencontrera les conditions requises par la boucle...
Tu connais mon niveau je ne saurais te pondre une code mais deja je reflechirais a declarer une variable i de type Integer qui s incrementerait a chaque boucle de 1 grace a un truc du genre:

Private Sub Workbook_Open()
Dim Ws As Worksheet, Cel, Feuilx As String, i As Integer

i = 1
Feuilx = "Feuil" & i

For Each Ws In Worksheets
With Sheets(Feuilx)
Cel = Ws.Range("AF2")
If Cel <> "" Then
i = i + 1
Else
Ws.Activate
Exit Sub
End If
End With
Next
End Sub

A priori ca marche en theorie, a tester avec un pc....
La j peux pas le chef de salle ronfle devant le PC....
PS: j espere que t as pas renommer tes onglets sinon mon code sert a rien

Biz copain,
J.

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Bonjour à tous les 2,
danreb : j'ai ajouté un Dim devant ma déclaration, pour autant mon code s'arrête sur Next... normal il ne boucle pas. En tout cas merci pour l'astuce d'écriture minuscule/majuscule.

Juju : je teste et je reviens. Mes onglets sont renommés de 01 à 99.

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Juju,

çà bloque là :

Cel = Ws.Range("AF2")

Mes feuilles s'appellent 1, 2, 3 .......99 J'ai donc un peu changé ton code

Private Sub Workbook_Open()
Dim Ws As Worksheet, Cel As Range, Feuilx As String, i As Integer

i = 1
Feuilx = i

For Each Ws In Worksheets
With Sheets(Feuilx)
Cel = Ws.Range("AF2")
If Cel <> "" Then
i = i + 1
Else
Ws.Activate
Exit Sub
End If
End With
Next
End Sub

Par contre j'ai qd même quelques feuilles qui ne sont pas à tester (database, Dossards, masques)

je cherche.... mais un petit coup de main est le bienvenu

 

[geraldine69]

Re : Ouvrir un classeur sur la première feuille "vierge"

Bonjour hypo78

Je ne sais pas si je suis dans les règles de l'art avec cette macro mais je me lance LOL

Sub TestFeuilleVide()
Dim NbFeuille As Integer

NbFeuille = Worksheets.Count


For i = 1 To NbFeuille

Sheets(i).Select

If Cells.Find("*") Is Nothing Then
GoTo Sortie
Else

End If
Next i

Sortie:
Exit Sub
End Sub

Géraldine

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Bonjour géraldine,

C'est bien vu çà fonctionne.

XLDnaute nouveau : il y en a qui apprenne plus vite que d'autre...

Merci

Je vais m'inspirer de ton code pour le l'autre post que je viens de lancer.
https://www.excel-downloads.com/threads/colorer-onglet-si-cellule-non-vide.174184/

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Re,
euh.... en fin de compte mon test a fonctionné sur 2 feuilles,mais quand je le fais sur un classeur contenant plus de 2 feuilles la boucle ne s'arrête pas sur la 1ère feuille contenant la cellule "vide" il continue sa boucle jusqu'à la dernière.

Comment on lui dit "STOP" ,

 

[geraldine69]

Re : Ouvrir un classeur sur la première feuille "vierge"

Je suis heureuse de t'avoir dépanné.

Géraldine

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Re Géraldine,
nos réponses ont dû se croiser, petit pb pour arrêter la boucle sur la première feuille "vierge".

Cordialement

 

[geraldine69]

Re : Ouvrir un classeur sur la première feuille "vierge"

Je te met mon classeur de test en exemple.

Positionne toi sur la feuille Depart et clic sur le bouton.

Seule la feuille 18 est vide

Tu peux aussi essayer en remplaçant

If Cells.Find("*") Is Nothing Then

par

If Cells.Find("") Is Nothing Then

Pour moi, ça fonctionne dans les deux cas




Géraldine

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Effectivement çà fonctionne. Dans mon fichier je teste seulement la cellule AF2 sur chaque feuille.
Je dois louper qque chose dans l'adaptation d ton code.

Hypo78

 

[geraldine69]

Re : Ouvrir un classeur sur la première feuille "vierge"

Je viens de comprendre
Ce n'est pas la feuille qui t’intéresses mais la cellule.

Donc ça doit donner ceci

Sub TestFeuilleVide()
Dim NbFeuille As Integer

NbFeuille = Worksheets.Count


For i = 1 To NbFeuille

Sheets(i).Select

If Range("AF2").Value = ("") Then
GoTo Sortie
Else

End If
Next i

Sortie:
Exit Sub
End Sub

Géraldine

 

[hypo78]

Re : Ouvrir un classeur sur la première feuille "vierge"

Merci pour vos réponses, je venais tout juste de trouver la solution.

Bonne fin de WE à tous.

Cordialement.