XL pour MAC macro pour vider cellules non verrouillées

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 17 Mai 2021

• #2

Bonjour Choise,
Essayez cela :

VB:

Sub Clearpage()
    Application.ScreenUpdating = False
    For Each C In [D1:P29]
        On Error Resume Next
        C.Value = ""
    Next C
End Sub

C'est long mais efficace.
Sauf en F16 qui est jaune et ...protégée.

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Mai 2021

• #3

Bonjour choise62, sylvanu,

ton fichier en retour ; fais Ctrl e ➯ travail effectué !

VB:

Sub ClearYellowCells()
  Dim plg$: Application.ScreenUpdating = 0: ActiveSheet.Unprotect
  plg = "E3:F3, K3:P3, G4:H7, K4:L4, K5, F8:L8, G9:G10, J9:L9, J10:M10, F11:G11, J11:K11, " _
    & "G12:K12, P4:P12, H13:J13, G14:K14, N13:P14, H15:I15, O15:P15, F16:P16, E17:P18, " _
    & "G19:P19, D21:L23, E25:P28, F29:P29"
  Range(plg) = Empty: ActiveSheet.Protect
End Sub

soan

 

Pièces jointes

• Classeur1.xlsm

  21.6 KB · Affichages: 3

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 17 Mai 2021

• #4

Bonjour @choise62
Edit Bonjour Sylvain et Soan

Je te propose ceci et c'est très rapide et le code s'adapte automatiquement si tu rallonges la zone à éffacer

@Phil69970

 

Pièces jointes

• Raz cellule en jaune.xlsm

  23.6 KB · Affichages: 6

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Mai 2021

• #5

Bonjour Phil,

j'y ai pensé, moi aussi, à effacer les cellules dont la couleur de remplissage est jaune, et ça serait valable si c'était pareil dans le fichier réel du demandeur ; mais d'après moi, le jaune est mis seulement pour mieux nous indiquer quelles sont les cellules à effacer ; c'est un jaune « temporaire » de travail, comme si choise62 avait utilisé un stabylo jaune fluo. ​

soan

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 17 Mai 2021

• #6

Soan

Peut être mais il aurait du le préciser dans sa demande car j'ai pris sa demande au pied de la lettre c'est à dire effacer le contenu des cellules en jaune.

choise62 à dit:

les cellules en jaunes sont celles qui ne sont pas verrouillées et qui doivent être vidées par la macro

Cliquez pour agrandir...

*D'où l'utilité d'être précis dans sa demande....
@Phil69970

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Mai 2021

• #7

@choise62

choise62 à dit:

pour info : les cellules en jaunes sont celles qui ne sont pas verrouillées et qui doivent être vidées par la macro

Cliquez pour agrandir...

contrairement à ce que tu as écrit, certaines cellules jaunes sont verrouillées ; par exemple D21: D23 ; c'est pour ça que ma macro doit déprotéger la feuille avant l'effacement des cellules, puis la verrouiller après.

suggestion : déverrouille la protection de toutes tes cellules jaunes, sans aucune exception, et ma macro pourra alors être simplifiée ainsi :​

VB:

Sub ClearYellowCells()
  Dim plg$: Application.ScreenUpdating = 0
  plg = "E3:F3, K3:P3, G4:H7, K4:L4, K5, F8:L8, G9:G10, J9:L9, J10:M10, F11:G11, J11:K11, " _
    & "G12:K12, P4:P12, H13:J13, G14:K14, N13:P14, H15:I15, O15:P15, F16:P16, E17:P18, " _
    & "G19:P19, D21:L23, E25:P28, F29:P29"
  Range(plg) = Empty
End Sub

si besoin, revérifie les références de cellules à effacer : peut-être que tu t'es trompé et qu'il ne faut pas effacer D21: D23 avec les autres cellules ? ensuite, tu pourras adapter plg. ​

soan

 

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 17 Mai 2021

• #8

désolée ! je constate mon manque de précision et l'erreur du jaune sur une cellule verrouillée......
....le jaune est mis uniquement pour vous montrer les cellules qui ne sont pas verrouillées ; il ne peux donc pas servir d'indiquation

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Mai 2021

• #9

@choise62

choise62 à dit:

le jaune est mis uniquement pour vous montrer les cellules qui ne sont pas verrouillées ; il ne peux donc pas servir d'indiquation

Cliquez pour agrandir...

alors essaye le fichier de mon post #3 : ça devrait marcher,
même ensuite sur ton fichier réel sans couleur jaune.

lis aussi très attentivement mon post #7.

soan

 

Vote positif 0 Vote négatif

Solution

C

choise62

XLDnaute Nouveau

• 17 Mai 2021

• #10

c'est parfait !
j'ai ajusté en remplaçant D21 par E21 et les deux fonctionnent
merci merci

 

Vote positif 0 Vote négatif

S

soan

XLDnaute Barbatruc

Inactif

• 17 Mai 2021

• #11

ok, impeccable ! bonne continuation !

soan

 

Vote positif 0 Vote négatif