Discussion :

[pachecojp01]

Bonjour,
je vous explique mon problème...
j'ai dans une colonne des heures affichées comme telle:
08:17 ou bien 09:54... Mon but est de créer à partir de ces heures différentes des plages horaires comme suit: 08h - 09h ; 09h - 10h; 10h - 11h...
J'ai mis un code qui à fonctionné mais qui d'un coup ne fonctionne plus du tout, sans doute trop simpliste. Je voulais tenter avec la fonction for each mais je ne suis pas encore très à l'aise avec.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
Sub Remplacer_heures()
 
Worksheets("Intégration").Columns("C").Replace _
 What:="08:**", Replacement:="08h - 09h", _
SearchOrder:=xlByColumns, MatchCase:=False, LookAt:=xlPart
 
Worksheets("Intégration").Columns("C").Replace _
 What:="09:**", Replacement:="09h - 10h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlPart
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="10:**", Replacement:="10h - 11h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlPart
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="11:**", Replacement:="11h - 12h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlPart
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="12:**", Replacement:="12h - 13h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="13:**", Replacement:="13h - 14h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="14:**", Replacement:="14h - 15h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="15:**", Replacement:="15h - 16h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="16:**", Replacement:="16h - 17h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="17:**", Replacement:="17h - 18h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="18:**", Replacement:="18h - 19h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="19:**", Replacement:="19h - 20h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="20:**", Replacement:="20h - 21h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="21:**", Replacement:="21h - 22h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="22:**", Replacement:="22h - 23h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="23:**", Replacement:="23h - 24h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="00:**", Replacement:="00h - 01h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="01:**", Replacement:="01h - 02h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 Worksheets("Intégration").Columns("C").Replace _
 What:="02:**", Replacement:="02h - 03h", _
 SearchOrder:=xlByColumns, MatchCase:=True, LookAt:=xlWhole
 
 
 
Range("A1").Select
End Sub

Pouvez-vous m'aider, je met en copie un fichier juste pour ce code là...

Merci à vous d'avance car je suis bloqué dessus

[Ben_L]

Bonjour,

S'il vous est possible de rajouter une colonne pour stocker les valeurs modifiées, vous pouvez vous passer d'une macro.
La formule suivante permet d'obtenir la conversion souhaitée (ici écrite pour la ligne 3) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEXTE(HEURE(C3-ENT(C3));"00\h")&" - "&TEXTE(HEURE(C3-ENT(C3))+1;"00\h")

Et pour ce qui est de votre macro, les paramètres de vos recherches ne sont pas cohérents entre eux.
Et une seule étoile suffit.

Cdt

[BENNASR]

sans VBA
en D2 et copier vers le bas :

CONCATENER(TEXTE(C2;"hh")&"H-"&TEXTE(C2+TEMPS(0;60;0);"hh")&"H")

[pachecojp01]

Merci je vais tester ça de suite et je reviens vers vous

[BENNASR]

et si vous insistez sur VBA :
la traduction de la formule donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub testtt()
'
Application.ScreenUpdating = False
Dim F As Worksheet
Set F = Sheets("Intégration")
Dim i As Long
i = F.Range("C" & Rows.Count).End(xlUp).Row
    Range("D2").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(TEXT(RC[-1],""hh"")&""H-""&TEXT(RC[-1]+TIME(0,60,0),""hh"")&""H"")"
    Range("D2").Select
    F.Range("D2").AutoFill Destination:=Range("D2:D" & i), Type:=xlFillDefault
    F.Columns("D:D").Copy
    F.Columns("D:D").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False      
    Application.CutCopyMode = False  
Application.ScreenUpdating = True
End Sub

[pachecojp01]

C'est parfait, c'est ce qu'il me fallait... Je vais pouvoir intégrer ça à mon gros code maintenant...
Merci à vous les gars vous êtes au top