numérotation Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
h
humadome
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par humadome » 6 février 2018, 14:07

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
test competition.xlsm
base de départ
(497.24 Kio) Téléchargé 7 fois
Modifié en dernier par humadome le 6 février 2018, 14:19, modifié 1 fois.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'977
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 6 février 2018, 14:09

Bonjour,

merci de nous mettre un classeur exemple de tes données de départ et du résultat souhaité.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'977
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 8 février 2018, 10:03

Bonjour,

je n'ai pas compris où il fallait mettre les numéros.
h
humadome
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par humadome » 8 février 2018, 15:00

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.
h
humadome
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par humadome » 14 février 2018, 09:41

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 »
test competition.xlsm
(458.4 Kio) Téléchargé 2 fois
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'977
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 14 février 2018, 10:28

Bonjour,

je t'avais complètement oublié.

regarde si ceci peut te convenir, lancer la macro aargh via alt-F8
test competition.xlsm
(477.35 Kio) Téléchargé 19 fois
h
humadome
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par humadome » 14 février 2018, 10:35

Bonjour,

C’est exactement ce que je voulais
Mais j' ai un message d'erreur
erreur.docx
(102.82 Kio) Téléchargé 2 fois
Modifié en dernier par humadome le 14 février 2018, 10:53, modifié 1 fois.
h
h2so4
Passionné d'Excel
Passionné d'Excel
Messages : 8'977
Appréciations reçues : 359
Inscrit le : 16 juin 2013
Version d'Excel : 365 UK Windows 10

Message par h2so4 » 14 février 2018, 10:41

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.
1 membre du forum aime ce message.
h
humadome
Jeune membre
Jeune membre
Messages : 10
Inscrit le : 6 février 2018
Version d'Excel : 2010

Message par humadome » 2 août 2018, 09:09

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
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • numérotation
    par yoda60 » 28 avril 2015, 10:56 » dans Excel - VBA
    2 Réponses
    231 Vues
    Dernier message par yoda60
    28 avril 2015, 11:09
  • Numerotation
    par lemarindu13 » 18 mars 2015, 21:40 » dans Excel - VBA
    3 Réponses
    211 Vues
    Dernier message par VBABEGINNER
    18 mars 2015, 22:11
  • Numérotation incrémentale
    par kenny972 » 1 février 2017, 17:04 » dans Excel - VBA
    3 Réponses
    342 Vues
    Dernier message par kenny972
    2 février 2017, 12:32
  • Numérotation automatique
    par DD1009 » 6 juin 2018, 09:43 » dans Excel - VBA
    2 Réponses
    197 Vues
    Dernier message par DD1009
    6 juin 2018, 11:22
  • Numérotation GED
    par Marinem77 » 25 octobre 2016, 17:54 » dans Excel - VBA
    2 Réponses
    150 Vues
    Dernier message par Marinem77
    26 octobre 2016, 10:31
  • Numérotation de facture
    par djodjo » 21 mai 2016, 14:05 » dans Excel - VBA
    2 Réponses
    138 Vues
    Dernier message par djodjo
    21 mai 2016, 21:38