Sélectionner tout, sauf les formules...

[Claudy]

Bonsoir,
il existe un sélectionner constantes, formules, objets, ...je connais
Mais y a t'il moyen de sélectionner tout mais pas les formules objets , constantes,?
sélectionner en fait tout ce qui n'est pas protégé!
merci ,
Claudy

 

[Misange]

Re : Sélectionner tout, sauf les formules...

Bonjour
pas sans macro à ma connaissance
avec macro (pour les cellules non protégées)

Sub SelectCellulesdeprotegées)     Dim Plage As Range     Dim NonProtegees As Range     Dim Cellule As Range     Set WorkRange = ActiveSheet.UsedRange     For Each Cellule In Plage         If Cellule.Locked = False Then             If NonProtegees Is Nothing Then                 Set NonProtegees = Cellule             Else                 Set NonProtegees = Union(NonProtegees, Cellule)             End If         End If     Next Cellule     If NonProtegees Is Nothing Then         MsgBox "Aucune cellule non protégée"     Else         NonProtegees.Select     End If End Sub

on doit pouvoir trouver plus rapide je pense...

 

[Gelinotte]

Re : Sélectionner tout, sauf les formules...

Bonsoir,

Sub SelectCellulesdeprotegées()

Dim Plage As Range
Dim NonProtegees As Range
Dim Cellule As Range

Set Plage = ActiveSheet.UsedRange

For Each Cellule In Plage
   If Cellule.Locked = False Then
      If NonProtegees Is Nothing Then
         Set NonProtegees = Cellule
      Else
         Set NonProtegees = Union(NonProtegees, Cellule)
      End If
   End If
Next Cellule

If NonProtegees Is Nothing Then
   MsgBox "Aucune cellule non protégée"
Else
   NonProtegees.Select
End If

End Sub

Moins une petite coquille : Set Plage = ActiveSheet.UsedRange
Ça fonctionne bien.

À vous lire, je découvre sans cesse. Je vais peut-être devenir savant. 😱

G

 

[Claudy]

Re : Sélectionner tout, sauf les formules...

Oufti....
Misange, merci...
ça fait longtemps que je te suivais sur Excellabo...
Merci
A+