Tableau de rangement par date

VBA
1

Bonjour à toutes et tous,

Je viens ici en espérant trouver une aide.

Je dois depuis un fichier Excel entrer une série de valeur dans un tableau avec tri automatique par date.

Je ni connais pas grand chose en macro et formules :sweat_smile: .

Donc dans mon fichier j’ai une ligne ou je peu entrer une date, une désignation, une autre date et un dernier élément.

J’ai créé une image +.

Quand je clic sur l’image, je voudrais que les éléments inscrit dans la première ligne de cellules, s’inscrivent dans la ligne de cellules situé dessous en se triant par date (future à passé).

Est-ce possible ?

Merci d’avance

Rangement.xlsx (10,6 Ko)

2

Bonjour,

Quelle date ?

Daniel

3

Bonjour,

Et bien trie des dates de la colonne de gauche de la plus récente (en haut) à la plus ancienne (en bas).

4

Oui mais en fait, le tri ne fonctionne pas sur des cellules fusionnées. Désolé.

Daniel

5

Ok, si je mets la cellule date en cellule simple ?

6

En supprimant les fusions sans changer l’apparence :

Rangement.xlsm (20,5 Ko)

Daniel

7

Merci.

Du coup voilà où j’en suis.

Donc ça fonctionne super bien pour mon usage.

Le seul point, est il possible que ce soit trié dans l’ordre en fonction de la date de la plus récente a la plus ancienne ?

CONSIGNES.xlsm (22,0 Ko)

8

Essaie :

Sub test()

  Dim C As Range, L As Long
  L = Cells(Rows.Count, 3).End(xlUp).Row + 1
  [C4:F4].Copy
  Cells(L, 3).PasteSpecial xlPasteFormats
  Cells(L, 3).Resize(, 11).Value = [C4:M4].Value
  Rows(L).RowHeight = [C4].RowHeight
  Range("C5:F" & L).Sort [C5], xlDescending, Header:=xlNo
 Dim I
For I = 1 To 3
Beep
Next I
[C4:F4].ClearContents
End Sub

Daniel