Discussion :

[Grem974]

Bonjour,
J'aimerais pouvoir lorsqu'une procédure événementielle s'exécute débloquer temporairement la feuille pour que cela se passe sans encombre. J'ai écrit le code 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
 
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.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=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
End Sub

Le problème est qu'un message "impossible de définir la propriété Hidden de la classe Range." qui apparaît pour le premier "entirecolumn.Hidden" à l'exécution seules certaines plages sont déverrouillées pour modification manuelle. Ce code en question fonctionne quand la feuille n'est pas bloquée.

Merci pour votre aide!

[Gado2600]

Bonjour,

D'un autre côté... ton code demande une protection de l'onglet actif...

Ce code en question fonctionne quand la feuille n'est pas bloquée.

Code :

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

1
2
 ActiveSheet.Protect Password:="test", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingCells:=True
    ActiveSheet.EnableSelection = xlUnlockedCells

A mon avis, ton code et toi n'êtes pas synchro. Tu penses avoir une chose alors que ton code fait l'inverse.

Cordialement,

[Grem974]

Effectivement apparemment le changement de ActiveSheet par sheets("NOM_Feuil") semble résoudre le problème.

Merci

[Gado2600]

Ah ben oui ! Ce genre de truc est un vrai sac à erreurs.
Pour ça, éviter au maximum les activesheets, activeworkbook, range("truc")...

[Grem974]

Il faut utiliser quoi comme alternative à range("truc")? parce que pour ActiveMachin j'ai Machin("nom")...

[Gado2600]

Bonjour,

Le mieux c'est de définir ce dont tu as besoin.

Par exemple, quand tu utilises :

Code :

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

Range("A1")

cela indique tu es sur la worksheet active. Or, quelle est la worksheet active ? Celle définit précédemment par un :

Code :

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

Sheets(1).activate

En allant plus loin, la sheets(1) vient de quel workbook ? Bref, voilà comment, au début, on fait ses codes VBA Excel.
Sauf que, pour une raison x ou y, durant le processus de ton code qui peut faire 15 000 lignes (avec tous ces .activate, .select...), la worksheet active change (exemple le plus simple mais tellement vrai : l'utilisateur est impatient et veut regarder un truc sur un autre fichier Excel que celui en cours d'exécution).
Ton workbook actif peut changer, ce qui implique que ta sheets(1) n'est plus la même que celle que tu voulais utiliser et, par conséquence, ta Range("A1") n'est, encore par exemple, plus de type numérique mais de type texte. (pas de chance, tu te retrouves avec du "TOTO+1" au lieu de "4+1").

Bref, ces petits événements de "pas de chance" font plantés ton code, ou pire, te retournent des résultats erronés, sans que tu tu le vois.

Pour être certain des choses sur lesquelles tu pointes, en début de code, définit tes objets proprement.
Exemple :

Code :

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

1
2
3
4
5
6
7
dim ExcelWkActive as workbook
dim ExcelWSActive as worksheet
dim rng as range
 
set ExcelWKActive = activeworkbook ' ou Thisworkbook qui fonctionne bien aussi
set ExcelWsActive = excelwkactive.sheets(1)
set rng = excelwkactive.range("A1")

Cela te permet de ne plus avoir besoin des .activates, .select, etc... etc..

Cordialement,