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
---
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
---
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 ---