Benjy51190
XLDnaute Nouveau
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 (à télécharger via we transfert car trop volumineux pour l'ajouter à ce message): https://we.tl/t-0PoQWxTkm8
et je vous les remet également ci dessous ma macro pour plus de clarté et la photo du message d'erreur.
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
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 (à télécharger via we transfert car trop volumineux pour l'ajouter à ce message): https://we.tl/t-0PoQWxTkm8
et je vous les remet également ci dessous ma macro pour plus de clarté et la photo du message d'erreur.
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