XL 2019 VBA permettant de parcourir certain onglet d'un classeur

[ANTONY34200]

Bonjour le Forum,
encore une fois, j'ai besoin d'un coup de main.
Je cherche un code VBA à associer à un bouton me permettant de parcourir l'ensemble des onglets.
Je m'explique.
Dans mon onglet "G", j'aimerais créer un bouton, afin de parcourir un à un mes onglet nommer AGTxx (AGT1, AGT2, ...) et à la fin de la boucle, revenir sur l'onglet "G".
J'ai bien trouvé quelque code, mais je n'arrive pas à les adapter ...
Merci d'avance pour le coup de main.

 

[sylvanu]

Bonsoir Antony,

Dans mon onglet "G", j'aimerais créer un bouton, afin de parcourir un à un mes onglet nommer AGTxx (AGT1, AGT2, ...) et à la fin de la boucle, revenir sur l'onglet "G".

C'est pas clair comme demande.
Je traduis comme je le comprends :
J'ai un bouton sur "G", si je clique dessus je vais sur "AGT1" sur lequel j'ai un bouton.
Si je clique je vais sur "AGT2"sur lequel j'ai un bouton qui m'emmène sur "AGT3" ect, ect .
Sur le "dernier" AGT j'ai un bouton si je clique alors je reviens sur "G".
C'est ça ?

 

[Phil69970]

Bonjour @ANTONY34200
Edit Re-bonjour Sylvain

Je te propose ce code

Sub ParcoursFeuille()
Dim i%
For i = 1 To Worksheets.Count
    MsgBox Worksheets(i).Name
Next
End Sub

Merci de ton retour

 

[sylvanu]

Re, bonsoir Phil,
"Just for the fun...." même si c'est pas le but recherché, c'est amusant, avec :

Sub Suivant()
    If ActiveSheet.Name = "G" Then
        If FeuilleExiste("AGT1") Then Sheets("AGT1").Select Else Exit Sub
    Else
        Num = CInt(Mid(ActiveSheet.Name, 4)) + 1
        If FeuilleExiste("AGT" & Num) Then Sheets("AGT" & Num).Select Else Sheets("G").Select
    End If
End Sub
Function FeuilleExiste(Nom As String) As Boolean
  On Error Resume Next
  FeuilleExiste = Sheets(Nom).Name <> ""
  On Error GoTo 0
End Function

 

[ANTONY34200]

Bonjour,
merci pour vos retours.
Sylvanu, j'ai juste besoin d'un bouton dans G qui ouvre un à un, mes onglets AGT (je n'ai pas de bouton dans AGT) ... le bouton doit ouvrir, agt1, puis agt2, puis AGT3, ... et quand il ni a plus d'onglet AGT, revenir sur l'onglet G

 

[ANTONY34200]

Phil, merci pour ton retour, je test le code et je te dit ...

 

[sylvanu]

Mais comment revient t-on d' AGT1 vers G ?
Directement par les onglets ?
Voir PJ. Des feuilles AGT on revient à G par le nom des onglets.
Si c'est pas ça, alors donnez un fichier ce sera plus simple.

 

[Phil69970]

En fait que cherches tu à faire exactement ?
==> Finalité, but, etc....
On peut par exemple écrire dans une feuille sans y aller

 

[ANTONY34200]

En fait en ouvrant mes onglets AGT, cela mets à jour automatiquement l'onglet.
je cherche a ouvrir un a un les onglet (afin qu'ils se mettent a jour)

 

[ANTONY34200]

C'est un le style de fichier du post 7, mais il ni a pas écrit AGT1 à l'intérieur de la feuille, uniquement écrit sur l'onglet

 

[Phil69970]

@ANTONY34200

On peut par exemple écrire dans une feuille sans y aller

Pas besoin d'aller dans une feuille pour écrire dedans
Si tu veux résoudre ton pb fourni un fichier avec les explications :
Exemple :
Je veux copier ceci dans le feuille1 à tel endroit
Je veux copier cela dans le feuille2 à tel endroit
Je veux copier aussi cela dans le feuille3 à tel endroit
etc....

Et on te fera la macro

 

[ANTONY34200]

C'est vraiment pas ca ... mon fichier est très lourd. c'est un fichier de planning.
je cherche juste a avoir un bouton qui ouvre la AGT1, puis la AGT2, puis la AGT3, et ainsi de suite, jusqu'à la dernière feuille AGT ...

 

[ANTONY34200]

Le fichier de sylanu avec une petite explication

 

[Phil69970]

@ANTONY34200

On peut par exemple écrire dans une feuille sans y aller

Pas besoin d'aller dans une feuille pour écrire dedans
Si tu veux résoudre ton pb fourni un fichier avec les explications :
Exemple :
Je veux copier ceci dans le feuille1 à tel endroit
Je veux copier cela dans le feuille2 à tel endroit
Je veux copier aussi cela dans le feuille3 à tel endroit
etc....

Et on te fera la macro

C'est la 2 eme fois que je te dis que l'on peux écrire sans aller dans la feuille

Et que veux tu faire en clair à quoi cela sert ?
De plus faire une macro sur le fichier de quelqu'un d'autre qui ne ressemble pas au fichier de l'utilisateur, c'est une blague non !