mettre dans l'ordre alphabetique

[bart4780]

Bonjour je suis en train de créer un tableau pour mon CE et je n'arrive pas a mettre dans l'ordre alphabétique les noms des agents avec leur conjoint et enfants.

Si je transmet le tableau une personne serais capable de me le faire?

cordialement.

 

[Gardien de phare]

Bonjour,

Oui certainement, mais penses à anonymiser tes données avant de les mettre dans le forum.

 

[bart4780]

si je mets le fichier et qu on me le renvoi et je supprime tout aussitot

 

[bart4780]

mon fichier est fini, il me manque plus que ca

 

[Gardien de phare]

Re, il vaut mieux anonymiser...

 

[bart4780]

je vais pas refaire un tableau pour me donner des explications

 

[bart4780]

voici comment est fait mon tableau

 

[job75]

Bonjour bart4780, Gardien de phare,

Je comprends qu'il y a des cellules fusionnées en colonnes A et B [Edit] et F.

Avant de trier il faut les défusionner et après le tri les refusionner.

Donc pour trier sur la colonne A exécuter cette macro :

Sub TrierColonneA()
Dim i&, n&
Application.ScreenUpdating = False
Application.DisplayAlerts = False
On Error Resume Next 'si aucune SpecialCell
With [A1].CurrentRegion
  .Cells.UnMerge 'défusionne toutes les cellules
  .Columns(1).SpecialCells(xlCellTypeBlanks) = "=R[-1]C"
  .Columns(1) = .Columns(1).Value 'supprime les formules
  .Sort .Columns(1), xlAscending, Header:=xlYes 'tri
  For i = 2 To .Rows.Count
    If .Cells(i, 1) <> "" Then
      n = Application.CountIf(.Columns(1), .Cells(i, 1))
      .Cells(i, 1).Resize(n).Merge 'refusionne en colonne A
      .Cells(i, 2).Resize(n).Merge 'refusionne en colonne B
      .Cells(i, 6).Resize(n).Merge 'refusionne en colonne F
    End If
  Next
End With
End Sub

A+