Bonsoir le forum,
j'ai un tableau horaires en colonne "F" doit se trouver les Intitulés suivant:
"CP","RTTD","SAM","DIM" etc...mon code est le suivant:
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6:NB41")) Is Nothing Then
onglet = Cells(x, 1)
lejour = Format(Cells(4, y), "dd/mmmm/yyyy")
Sheets(onglet).Cells(y + 2, 6) = Cells(x, y).Value
Sheets(onglet).Cells(y + 2, 1) = lejour
If Cells(x, y) = "" Then Sheets(onglet).Cells(y + 2, 1) = ""
End If
If Target.Address <> "$A$4" Then Exit Sub
Application.ScreenUpdating = False
Columns("B:NB").Hidden = True
Select Case Target
Case "Année complète"
Columns("B:NB").Hidden = False
Case "Janvier"
Columns("B:AF").Hidden = False
Case "Février"
Columns("AG:BH").Hidden = False
Case "Mars"
Columns("BI:CM").Hidden = False
Case "Avril"
Columns("CN:DQ").Hidden = False
Case "Mai"
Columns("DR:EV").Hidden = False
Case "Juin"
Columns("EW:FZ").Hidden = False
Case "Juillet"
Columns("GA:HE").Hidden = False
Case "Août"
Columns("HF:IJ").Hidden = False
Case "Septembre"
Columns("IK:JN").Hidden = False
Case "Octobre"
Columns("JO:KS").Hidden = False
Case "Novembre"
Columns("KT:LW").Hidden = False
Case "Décembre"
Columns("LX:NB").Hidden = False
End Select
Application.ScreenUpdating = True
End Sub
la ligne en rouge correspond au renvoi en colonne "F"
par contre je n'arrive pas a intégrer en plus ce morceau de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Sheets(onglet).Cells(y + 2, 7) = Cells(x, y).Value
qui me renverrai mes données dans la colonne "G" uniquement pour les "NUIT"
merci par avance de votre aide