Discussion :

[Grem974]

Bonjour,
j'aimerais pourvoir transférer le code suivant appliqué sur une feuille nommée "TRAME" sur ThisWorkbook mais je n'y parviens pas suite à des erreurs.

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
 
Private Sub Worksheet_Change(ByVal Target As Range)
'empêcher de faire scintiller l'écran pendant l'éxécution du programme
    Application.ScreenUpdating = False
    Dim plage As Range, C As Range, d As Range
 
    ActiveSheet.Unprotect Password:="isped", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True, AllowFormattingRows:=True, AllowFormattingColumns:=True
    'ActiveSheet.EnableSelection = xlUnlockedCells
 
' automatisation de la trame de base
'masquage des lignes vides lorsque le service n'est pas pourvu en fonction (IDE nuit, ASD)
    Set plage = [a7: a100]
    For Each C In plage
 
        If C.Value = "0" Then
            C.EntireRow.Hidden = True
        Else
            C.EntireRow.Hidden = False
        End If
    Next C
    Set plage = Nothing
'masquage de Colonnes pour respect de la longueur des mois (calendrier)
'(doit être associé àune formule conditionnelle =SI(AD6<>"";SI(MOIS(AD6)=MOIS(AD6+1);AD6+1;"");"")
    Set plage = Range("AD5:AF5")
    For Each d In plage
        If d.Value = "" Then
            d.EntireColumn.Hidden = True
        Else
            d.EntireColumn.Hidden = False
        End If
    Next d
    Set plage = Nothing
    Columns("AG").EntireColumn.Hidden = True
    Sheets("TRAME").Protect Password:="isped", DrawingObjects:=False, Contents:=False, Scenarios:=False, AllowFormattingCells:=False, AllowFormattingRows:=False, AllowFormattingColumns:=False
End Sub

L'idée est que ce code puisse ensuite être utilisé par des feuilles similaires portant le nom d'un mois. N'étant pas professionnel et n'ayant pas eu de formation je suis coincé.

Merci pour votre aide!

[OBO29]

Bonjour,

Quelle erreur et sur quelle ligne ?

[Grem974]

Bonjour,
Apparemment le code marche. Comme j'ai modifié pas mal de choses entre maintenant et au moment du post je ne me souviens plus des erreurs mais c'est probablement lié aux mots de passes.

Par contre je constate que l'ordinateur a tendance à "réfléchir" un peu trop à chaque fois que je change de cellule.

[OBO29]

Bonjour,
je constate que l'ordinateur a tendance à "réfléchir" un peu trop à chaque fois que je change de cellule.

Normal, ce code est effectué à chaque changement de cellule.

Quand veux tu qu'il s'exécute ?

[Grem974]

Re,
en fait je voudrais que ce code s’exécute uniquement si je change 2 cellules d'une feuille (seulement 2 par feuille) une qui fait référence à une date, l'autre à un service.

[OBO29]

Bonjour,

Penses-tu m'avoir donné suffisamment d’indications pour pouvoir adapter ton code?

- où est la date ?
- où est le service ?

Met toi à ma place. Je ne connais ni ton besoin exact , ni ton fichier.