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

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Ellimac
Le #5100001
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


Publicité
Poster une réponse
Anonyme