Bjr,

Avec ce code je n'arrive pas à avancer ou est mon erreur ?Je n'arrive pas à faire évoluer ma variable:

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
Sub DéplacementPauses()
'
Dim PlageDonnees As Range
Dim SousPlage As Range
Dim CelDonnee As Range
Dim objCell As Range
Dim rechcel As Range
Dim pause1 As Range
Dim pause2 As Range
 
 
chemAmelio = "\\H3DEDSECDX1\DFS_DEDSE\D0\GN6\GN6Commun\Appairage\RAA-712\AMELIOR Pauses Repas.xls"
 
 
 Worksheets("service").Activate
 
 jour = Range("F1").Value
     StCh = " "
   iPos = InStr(1, jour, StCh)
   chaine = Mid(jour, 1, iPos - 1)
 
    Workbooks.Open chemAmelio, , True
    Worksheets("sem37").Activate
        Select Case chaine
        Case "JEUDI":
         Set SousPlage = Worksheets("sem37").Range("A119:AG135")
        End Select
 
 
Windows("copiecptheure_VO.xls").Activate
 
Set PlageDonnees = Worksheets("service").Range("F3:F" & Range("D65536").End(xlUp).Row)
 
 
 
For Each rechcel In SousPlage
  Select Case rechcel
    Case "VP1":
    pause1 = Format(rechcel.Offset(-1, 0).Value, "hh:mm") & "-" & Format(rechcel.Offset(-1, 7).Value, "hh:mm")
    Case "VP2":
    pause2 = Format(rechcel.Offset(-3, 0).Value, "hh:mm") & "-" & Format(rechcel.Offset(-3, 7).Value, "hh:mm")
    Case "VP3":
    pause3 = Format(rechcel.Offset(-5, 0).Value, "hh:mm") & "-" & Format(rechcel.Offset(-5, 7).Value, "hh:mm")
    Case "VP4":
    pause4 = Format(rechcel.Offset(-7, 0).Value, "hh:mm") & "-" & Format(rechcel.Offset(-7, 7).Value, "hh:mm")
    Case "VP5":
    pause5 = Format(rechcel.Offset(-9, 0).Value, "hh:mm") & "-" & Format(rechcel.Offset(-9, 7).Value, "hh:mm")
 End Select
Next rechcel
 cpt = 1
 For Each CelDonnee In PlageDonnees
   If CelDonnee.Interior.ColorIndex = 15 And CelDonnee.Value <> "" Then
   CelDonnee.Value = Range("pause" & cpt).Value
   CelDonnee.Interior.ColorIndex = xlNone
   CelDonnee.HorizontalAlignment = xlCenter
   CelDonnee.VerticalAlignment = xlCenter
 
    cpt = cpt + 1
   End If
  Next CelDonnee
 
Set PlageDonnees = Nothing
Set SousPlage = Nothing
 
End Sub