Pagination suivant ordre des onglets

Bonjour à tous,

Je vous sollicite car je n'arrive pas à trouver de solution à mon problème

J'aimerai créer un sub me permettant de numéroter mes onglets.

Et mes onglets seraient numérotés suivant l'ordre dans lequel ils apparaissent.

Exemple :

Onglet (1) => 1/4 en cellule A1

Onglet (3) => 2/4 en cellule A1

Onglet (4) => 3/4 en cellule A1

Onglet (2) => 4/4 en cellule A1

Si je ne me suis pas exprimé clairement n'hésitez pas à me le dire.

Merci d'avance !

Bonjour,

Une proposition à tester (cf PJ)

Public Sub Numerotation()

    Dim oSh As Worksheet
    Dim iNum As Integer

    iNum = 1

    For Each oSh In Worksheets
        oSh.Range("A1").NumberFormat = "@"
        oSh.Range("A1").Value = iNum & "/" & Worksheets.Count
        iNum = iNum + 1
    Next oSh

End Sub

Bonne journée

Bouben

Super !

Merci c'est exactement ce que je souhaite !

Bon seul soucis maintenant c'est que je n'arrive pas à adapter la macro à mon fichier.

J'ai remplacé

oSh.Range("A1").NumberFormat = "@"

oSh.Range("A1").Value = iNum & "/" & Worksheets.Count

Par

oSh.Range("DL1:DO3").NumberFormat = "@"

oSh.Range("DL1:DO3").Value = iNum & "/" & Worksheets.Count

Le soucis c'est que le message d'erreur suivant apparait :

"Impossible de définir la propriété NumberFormat de la classe Range"

Un petit coup de main ?

Ps : J'ai dans mon fichier des onglets cachés, faut-il ajouter quelque chose dans la macro pour qu'elle ne les prenne pas en compte ?

Encore merci !

Bonjour,

Ces modifications n'ont pas de rapport avec la demande initiale : écrire en A1

Sur le second point, pour tester si l'onglet est visible :

If osh.Visible Then

Bouben

Non pas de rapport avec "A1"

J'ai donné A1 pour faire simple pensant que je pouvait simplement remplacer ensuite pour l'adapter à mon fichier mais apparemment non

Edit :

Pour aller droit au but, voici en Pj le fichier sur lequel je travail.

J'aimerai que mes onglets soient numérotés suivant leur ordre d'apparition dans les cellules suivantes :

  • Pour Relevé de cotes (n) : (DL1:DO3)
  • Pour Plan (n) : (AW1:AZ3)
131-groupe-fic1-a.xlsm (472.46 Ko)

Toujours mieux avec un fichier et des explications claires

Ci-joint une nouvelle version à tester.

La pagination est ajoutée à la fin de la macro actuelle.

Bouben

Super c'est exactement ça !

Merci beaucoup Bouben !

Rechercher des sujets similaires à "pagination suivant ordre onglets"