Discussion :

[NEC14]

Bonjour à tous,

Voici mon problème. Dans un formulaire, il y a un bouton (CmbAn) qui me permets lors d'un click de changer d'année. Le contenu de la zone "ZO1" est effacé (voir code ci-dessous). Ce que je souhaiterais faire c'est que le contenu des zones "ZO2", "ZO3" et "ZO4" qui se trouvent chacune dans une feuilles (2T, 3T, 4T) soit effacé également. Il faut que cela se fasse sans affichage des feuilles.

Comment dois-je procéder ?

Je vous remercie par avance de l'aide que vous m'apporterez.

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
Private Sub CmbAn_Click()
Dim Vpasse As Long
    Vpasse = Val(InputBox("Mot de Passe ?"))
        If Vpasse < 6100 Then Exit Sub
        If Vpasse = 6100 Then
        Sheets("1T").Activate
        Range("A4").Select
        ActiveCell.FormulaR1C1 = ActiveCell + 1
        Range("ZO1").Select
        Selection.Interior.ColorIndex = xlNone
        Selection.ClearContents
        Range("A4").Select
        End If
        Exit Sub
End Sub

[NEC14]

J'ai trouvé la réponse, en fait c'était assez simple

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
Private Sub CmbAn_Click()
Dim Vpasse As Long
    Vpasse = Val(InputBox("Mot de Passe ?"))
        If Vpasse < 6100 Then Exit Sub
        If Vpasse = 6100 Then
        Sheets("1T").Activate
        Range("A4").Select
        ActiveCell.FormulaR1C1 = ActiveCell + 1
        Range("ZO1").Select
        Selection.Interior.ColorIndex = xlNone
        Selection.ClearContents
        Range("A4").Select
        Sheets("2T").Activate
        Range("ZO2").Select
        Selection.Interior.ColorIndex = xlNone
        Selection.ClearContents
        Range("A4").Select
        Sheets("3T").Activate
        Range("ZO3").Select
        Selection.Interior.ColorIndex = xlNone
        Selection.ClearContents
        Range("A4").Select
        Sheets("4T").Activate
        Range("ZO4").Select
        Selection.Interior.ColorIndex = xlNone
        Selection.ClearContents
        Range("A4").Select
        Sheets("1T").Activate
        Range("A4").Select
        End If
        Exit Sub
End Sub