tri sur 2 colonnes avec 1 colonne date et 1 colonne heure

[sebbbbb]

bonjour a tous

je me permets de vous solliciter à nouveau. J'ai un réel problème à vous soumettre .

Pour un doc du boulot j'ai réussi à faire une macro pour faire des tris de dates (seulement sur une colonne). Cependant lorsque plusieurs dates sont identiques, le tri n'est plus respecté à cause des horaires (sur une 2e colonne)

En gros j'aimerai que les lignes B21:AB 21 jusqu'à B30:AB30 soient triées en fonction des cellules N2121 (2 colonnes donc, la 1er tri se faisant sur la date puis ensuite sur l'horaire)

Idem sur la 2e partie du tableau mais le tri se faisant à partir des colonnes AA (dates) et AB (horaires)

un grand grand merci par avance pour votre aide
seb

 

[mapomme]

Bonjour sebbbbb,

Le tri ne se fera pas si le tableau comporte des cellules fusionnées.

 

[sebbbbb]

bjr
je suis surpris car mon fichier a des cellules fusionnées et le tri fonctionne tres bien (colonne N:O)
seb

 

[sebbbbb]

cool !
j'ai trouvé tout seul comme un grand (trop content !)
Ma pomme je te confirme que le tri sur colonne fusionnées fonctionne bien

ci-dessous mon code

Sub crewchrono()
'
' tri des embarquants / débarquants par date de vol
'

'
Range("B21:AB30").Select
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("N21:N30"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("P2130"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Crew change").Sort
.SetRange Range("B21:AB30")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

Range("B35:AB44").Select
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("N35:N44"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Crew change").Sort.SortFields.Add Key:=Range("P3544"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Crew change").Sort
.SetRange Range("B35:AB44")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

merci
seb

 

[Papou-net]

Bonjour,

Je rejoins l'affirmation de mapomme (que je salue au passage) concernant les cellules fusionnées (à éviter dans le cas d'utilisation de VBA).

Par ailleurs sebbbbb, si la mise en majuscule se fait bien en cas d'une cellule renseignée, essaie d'en effacer le contenu et tu constateras un message d'erreur. Erreur dûe là-aussi à l'usage de la fusion de cellules.

Enfin, je profite de mon intervention pour te proposer un code plus concis:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'Pour passer outre l'erreur en cas d'effacement

If Not Application.Intersect(Target, Range("B21:L30, B35:L44, R21:R30, Y35:Y44")) Is Nothing Then
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End If
End Sub

Cordialement.

 

[sebbbbb]

Hello
merci beaucoup
je teste
c'est sympa de ta part

 

[mapomme]

Re,

Ma pomme je te confirme que le tri sur colonne fusionnées fonctionne bien

Effectivement. J'avais essayé avec l'ancienne syntaxe (c'est ça les vieux ! ) et non pas avec l'objet SORT.

 

[sebbbbb]

pas de prob. tous les conseils sont bons a prendre

 

[sebbbbb]

Papou-net
merci merci !
effectivement c'est bcp mieux

 

[sebbbbb]

eh oui quel changement !
merci encore a vous 2