Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

sélections des cellules non "vérouilléesé

1 réponse
Avatar
Sunburn
Bonjour,
je voudrais sélectionner les cellules non "vérouillée" d'une feuille.
j'ai essayé ceci, sans succès :
---
Sub Macro1()
' rechercher les cellules non "verouillée"
Sheets("Liasse").Select
Application.FindFormat.Locked = False
Application.FindFormat.FormulaHidden = False
End Sub
---

Merci de votre aide
Yann

1 réponse

Avatar
Ellimac
Bonjour,

Pas forcément le plus concis :
Sub tutu()
For Each c In Selection
If c.Locked = True Then
If t = "" Then
t = c.Address
Else
r1 = Range(t).Address
r2 = c.Address
t = Union(Range(r1), Range(r2)).Address
End If
End If
Next
Range(t).Select
End Sub

Camille


Bonjour,
je voudrais sélectionner les cellules non "vérouillée" d'une feuille.
j'ai essayé ceci, sans succès :
---
Sub Macro1()
' rechercher les cellules non "verouillée"
Sheets("Liasse").Select
Application.FindFormat.Locked = False
Application.FindFormat.FormulaHidden = False
End Sub
---

Merci de votre aide
Yann