Insérer une heure dans une plage d'heure classé chronologiquement

[Guigui]

Bonjour,

Voici mon probleme.

J'ai un tableau avec des heures en colonne.
je cherche à inserer une heure (issue d'un USF) entre 2 heures existantes dans le tableau.

Ex :
08:05
08:10
09:00
09:20

>> inserer 08:35 entre 08:10 et 09:00

Je vous joint un fichier d'exemple.

Slts
Guillaume

 

[Dull]

Re : Insérer une heure dans une plage d'heure classé chronologiquement

Salut Guigui, le Forum

Essaye ce code à mettre a l'activation du Bouton CommandButton1

Private Sub CommandButton1_Click()
Dim DerLig As Long
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row + 1
If MIN Is Nothing Then Exit Sub
Cells(DerLig, 1) = MIN & ":" & HEU
Range("A1.A" & DerLig).Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

A tester

EDITION: Salut Papou 🙂
Bonne Journée

 

[Papou-net]

Re : Insérer une heure dans une plage d'heure classé chronologiquement

Bonjopur Guigui,

Voici ton fichier avec la macro complétée.

Espérant avoir répondu.

Cordialement.

Edit : bonjour Dull

 

[Guigui]

Re : Insérer une heure dans une plage d'heure classé chronologiquement

Hello,

Merci à vous deux, c'est tout juste .... merveilleux

Slts
Guillaume