Discussion :

[bernard38]

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

[Montor]

Code :

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

Dim chemAmelio As String

[bernard38]

Bjr Delphi

Je ne coince pas au niveau de l'ouverture du fichier mais sur la fin pour récupérer mes variables pause"x" et m'en servir.
cdt

[JackOuYA]

Bonsoir,

pas clair ton code , tu commence par déclarer tes fameuses variables en range (plage de cellule)

Code :

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

1
2
Dim pause1 As Range
Dim pause2 As Range

puis plus loin tu leur affecte une chaine de caractére format...

[bernard38]

Ok.C'est parceque j'ai essayé un peu tout.Au début je n'avais pas déclaré les pause1 2 3..mais c'est pas mieux.

[JackOuYA]

Ok.C'est parceque j'ai essayé un peu tout.Au début je n'avais pas déclaré les pause1 2 3..mais c'est pas mieux.

Bon on va encore avoir besoin de madame soleil pour savoir ce que tu veux faire avec tes variables !!!

tout ce que je peu te dire c'est que c'est quand même mieux de les déclarer tes variables, mais dans le bon type et donc ne comprenant pas à quoi tu les destine j'ai du mal à te répondre !