Numérotation

Bonjour,

Pour mon club de sport, je dois préparer des tableaux pour les compétitions. Je suis bloqué il faudrait que lorsque je clique sur un bouton « numérotation » qu’une numérotation de 1 à X se face.

Sur mes tableaux, j’ai mis des lettres «A », « B », « C », etc. qui correspondent au tour. Il faudrait que la numérotation s'affiche dans la cellule de gauche. La complexité est du faite qu’il faut numéroter en premier tous les « A » dans toutes les feuilles après les « B », ainsi de suite jusqu’à « Z ». Mais il ne faut pas numéroter les feuilles qui servent de trame pour la création du tableau.

Sur la feuille « recap » si vous clique sur « A CREER » il vous fera les feuilles de tournois

Auriez-vous une idée

11test-competition.xlsm (497.24 Ko)

Bonjour,

merci de nous mettre un classeur exemple de tes données de départ et du résultat souhaité.

Bonjour,

je n'ai pas compris où il fallait mettre les numéros.

Bonjour

Lorsque nous créons des nouvelles pages, il va y avoir des lettres qui vont être visibles, seulement si il y a un match. Afin de faire un tableau et pouvoir prévoir les matchs, il faudrait les numéroté. Soit en remplaçants les lettres par un chiffre, ou dans la cellule d'a côté. Mais il faut que lorsque j'ai plusieurs feuilles de matchs. Il faut numéroté tous les "A" de toutes les feuilles, ensuite passer au "B" et ainsi de suite.

voici l'idée que j'ai eu

1/ Sélection feuille compteur

2/ Sélection cellule copiée

3/ Sélection 1er feuille

4/ Lettre à chercher (A)

5/ Recherche la lettre "A" dans la 1er feuille

6/ Récupérer la cellule

7/ Si cellule de droit vide = Copier le numéro

8/ Sélectionner la feuille compteur

9/ Numéro +1

10/ Sinon si « 7 » pas vide recherche lettre "A" suivante est allé au « 6 »

11/ si plus la lettre "A" dans la feuille aller à la feuille suivante puis reprendre au « 6 »

12/ si plus de feuilles retournées aux « 4 » lettre +1 (B)

13/ Dernier lettre « z » et la première lettre « A »

Bonjour,

je t'avais complètement oublié.

regarde si ceci peut te convenir, lancer la macro aargh via alt-F8

20test-competition.xlsm (477.35 Ko)

Bonjour,

C’est exactement ce que je voulais

Mais j' ai un message d'erreur

2erreur.docx (102.82 Ko)

Bonjour,

une précision, je me base sur la deuxième lettre du nom de la feuille (qui doit être une majuscule) pour déterminer les feuilles à numéroter.

Sub Numeroter()

'numérotation des combats portant les lettres de A à Z

Dim Listefeuilles()

ctrf = -1

For Each Ws In Worksheets 'on établit la liste des feuilles à numéroter

c = Mid(Ws.Name, 2, 1)

If c >= "A" And c <= "Z" Then 'nom en majuscule => feuille à numéroter

ctrf = ctrf + 1

ReDim Preserve Listefeuilles(ctrf)

Listefeuilles(ctrf) = Ws.Name

End If

Next Ws

'on numérote les feuilles lettre par lettre

For i = 1 To 26 ' 26 lettres

lettre = Chr(i + 64) ' lettre

For Each Wsn In Listefeuilles

Set Ws = Sheets(Wsn)

Ws.Unprotect

Set pl = Ws.Range("A1:BB100") 'on fait l'hypothèse que les lettres à numéroter sont toujours dans la plage "A1:BB100" de chaque feuille

Set re = pl.Find(lettre, lookat:=xlWhole, MatchCase:=True, LookIn:=xlValues)

If Not re Is Nothing Then

fa = re.Address

Do

ctr = ctr + 1

re.Offset(, 1) = ctr

Set re = pl.FindNext(re)

Loop Until re.Address = fa

End If

Ws.Protect

Next Wsn

Next i

End Sub

Rechercher des sujets similaires à "numerotation"