Petite création

Bonjour a tous, petite question: Excel et il programmé pour mettre dans l'ordre et trié par lettre, avec mise en couleur pour chaque lettre identique, ou chaque chiffre identique, en sachant que parfois il faut prendre la deuxième, voir le tableau joint merci, je vous remercie de me tenir informer et de m'aider, mes salutations

Attention je suis débutant sur Excel, donc je ne connais pas la programmation, mes je fais des recherches partout, pour apprendre, merci

Bonjour,

On va avancer au fur et à mesure, dans un premier temps le tri soit sur la première lettre soit sur la deuxième des 2 tableaux.

Pour les A et B, j'ai pas bien compris, est-ce que le chiffre doit suivre le nom ou reste-il toujours à la même place?

CDlt

Bonjour ,merci de regarder ma demande, le A et B il n'y as rien a faire, juste la NBCAR , la même chose que les nom des chevaux merci d'avance, mes salutations

Si on ne tient pas compte de A et B alors les codes sont:

Sub Tri_Par_Nom_1er_Tableau_1ère_Lettre()
Application.ScreenUpdating = False
DerLig = Range("B5").End(xlDown).Row
Set Plage_Tab1 = Range("B6:G" & DerLig)
Plage_Tab1.Sort [B5], 1
End Sub

Sub Tri_Par_Nom_1er_Tableau_2ème_Lettre()
Application.ScreenUpdating = False
DerLig = Range("B5").End(xlDown).Row
For i = 6 To DerLig
Cells(i, "B") = Mid(Cells(i, "B"), 2, 1) & Cells(i, "B")
Next i
Set Plage_Tab1 = Range("B6:G" & DerLig)
Plage_Tab1.Sort [B5], 1
For i = 6 To DerLig
Cells(i, "B") = Right(Cells(i, "B"), Len(Cells(i, "B")) - 1)
Next i
End Sub

'***********************************************************************
Sub Tri_Par_Nom_2eme_Tableau_1ère_Lettre()
Application.ScreenUpdating = False
DerLig = Range("J5").End(xlDown).Row
Set Plage_Tab1 = Range("I6:O" & DerLig)
Plage_Tab1.Sort [J5], 1
End Sub

Sub Tri_Par_Nom_2eme_Tableau_2ème_Lettre()
Application.ScreenUpdating = False
DerLig = Range("J5").End(xlDown).Row
For i = 6 To DerLig
Cells(i, "J") = Mid(Cells(i, "J"), 2, 1) & Cells(i, "J")
Next i
Set Plage_Tab1 = Range("J6:O" & DerLig)
Plage_Tab1.Sort [J5], 1
For i = 6 To DerLig
Cells(i, "J") = Right(Cells(i, "J"), Len(Cells(i, "J")) - 1)
Next i
End Sub

Bonjour, merci pour votre aide, je viens de récupéré le fichier, je vous tiens au courant, merci beaucoup, mes salutations

Bonjour je viens de faire fonctionné le tableau Excel que vous m'avez envoyer, je laisse comme vous l'avez fait , ok pour moi un grand merci, pour votre aide Merci , mes salutations