Bonjour à tous et merci de prendre le temps de regarder à mon soucis.
J’ai préparé une macro de tri, mais à l’exécution, j’ai un message d’erreur 1004, m’indique que la taille des cellules fusionnées doit être identique.
Je suis clairement débutant, donc si quelqu’un peut m’expliquer et m’apporter la solution, je serai vraiment reconnaissant.
Je joins à ce post mon tableur contenant les macros en question, et je vous les remet également ci dessous pour plus de clarté.
Merci beaucoup aux personnes qui passerons un peu de temps pour m’aider.
Bonne journée à tous
Sub NOM_A_à_Z()
’
’ NOM_A_à_Z Macro
’
’
ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort.SortFields.Add Key:=Range(« F3:EH3 ») _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort
.SetRange Range(« F2: EJ3311 »)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Sub prenom_A_Z()
’
’ prenom_A_Z Macro
’
’
ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort.SortFields.Add Key:=Range(« F2:EH2 ») _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets(« Compte_Boisson »).Sort
.SetRange Range(« F2: EJ3311 »)
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
Compte boisson TEST MACRO TRI.xlsm (2,7 Mo)
