Discussion :

[Equipassion]

Bonjour à tous

J'ai un classeur Excel contenant 3 feuilles de calcul dont les deux dernières dépendent de la première. Comment faire une macro associée à un bouton sur la première feuille qui n'effacerait que les cellules déverrouillées de l'ensemble du classeur, sans avoir à les sélectionner une à une sur l'ensemble des feuilles pour faire la macro, les cases non verrouillées étant regroupées deux par deux et il y en a pas mal...

Merci d'avance pour votre aide ;

Bien cordialement ;

JP

[jerome.vaussenat]

Salut,

au départ je me suis dit, "je ne vais pas lui donner la solution toute crue". Mais comme çà fait deux imbrications de for each ...

Voila un bout de code avec les commentaires (c'est toujours mieux)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub videtableaux()
Dim C As Range
Dim F As Worksheet
'boucle pour passer en revue toutes les feuilles
    For Each F In Worksheets
        'on active la feuille à traiter
        F.Activate
        'boucle pour tester les cellules vérouillées ou non
        For Each C In Range("A1:F50")  '<-- à adapter
            'si la cellule n'est pas vérouillée on efface
            If C.Locked = False Then C.ClearContents
        Next
    Next
End Sub

La partie en rouge est à modifier. Ne pas hésiter à être large

[Equipassion]

Merci ! Super ! Du coup, j'ai ajouté des p'tits trucs...

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
Sub tableau_individuel()
 
Application.ScreenUpdating = False
 
'Msgbox Ok + Annuler
 yourmsgbox = MsgBox("Êtes-vous sûr de vouloir effacer ce classeur entièrement ?", vbOKCancel, "Confirmation")
 
If yourmsgbox = vbCancel Then
    Exit Sub
End If
 
Dim C As Range
Dim F As Worksheet
'boucle pour passer en revue toutes les feuilles
    For Each F In Worksheets
        'on active la feuille à traiter
        F.Activate
        'boucle pour tester les cellules vérouillées ou non
        For Each C In Range("A1:T50")  '<-- à adapter
            'si la cellule n'est pas vérouillée on efface
            If C.Locked = False Then C.ClearContents
        Next
    Next
 
  Application.Goto (ActiveWorkbook.Sheets("Poules de classement").Range("B9"))
 
End Sub

Encore merci !

JP

[Tinolacoro]

J'ai plusieurs feuilles Excel, je veux l'appliquer que sur les feuilles "paramètre 1","paramètre 2" et "BASE DE DONNÉES"