XL 2016 VBA - Une manière rapide de trouver les cellules verrouillées ?

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #61

Comme celle de l'objet Workbook sauf qu'il faut qualifier de l'objet Worksheet au lieu du Workbook.
Et attention dans ce cas la propriété Name des objets Name trouvés portent le préfixe de feuille contairement à la clé des élément de la collection de l'objet Worksheet..

 

Dernière édition: 2 Mai 2024

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2024

• #62

@Dudu2

Désolé, je n'ai pas compris comment ça marche pour obtenir un Range des cellules verrouillées au final

Cliquez pour agrandir...

Voici de quoi faire le test sur une feuille vierge
1) Sur un classeur vierge, lance la macro ci-dessous

Code:

Sub Preparation()
Sheets.Add
Cells.Locked = False
    Range( _
        "B6,B5:B6,D3:D4,F4:F7,C11:C12,D8:D9,G13:G19,B15:C17,D22:E24,A28:C33,E28:E29,E32:F34,E12,G23:H26" _
        ).Locked = True
End Sub

Puis lance la macro, CellulesVerrouillées

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #63

Ok, dans ce cas, pour trouver un Name particulier de la Collection Worksheet, il faut que je fasse une boucle sur les Worksheet.Names. Je ne peux pas le trouver directement.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #64

Si, par le nom précisé sans préfixe de feuille ! Puisque leurs clés ne portent pas ce préfixe contrairement aux propriétés Name.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #65

@Staple1600 ,
Ok ça marche, j'ai du rouge.
Mais comment je récupère le Range qui a été coloré en rouge sans avoir à le colorer en rouge ?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #66

Exemple: un Range nommé par Activesheet.Names.Add "Toto", ActiveSheet.[A1:B10] se récupère par ActiveSheet.[Toto]

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Mai 2024

• #67

Bonjour à tous

Apparemment mon post # 13 doit sentir le pâté.... 😵
Pourtant je pense que tu peux même le faire en vba à la volée.

Bonne continuation

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #68

@Phil69970,
Je ne sais pas s'il sent le pâté, mais je ne vois pas le lien entre une MFC et retrouver le Range des cellules verrouillées. Il doit me manque quelque chose.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #69

En effet le gestionnaire de noms ne montre pas que le vrai nom tel qu'il est porté dans la propriété Name du second objet Name est en réalité Feuil2!FeuilleSpécific Il faut savoir que c'est la colonne Étendue qui le dit. Il montre le nom tel qu'il est compris par la méthode Range ou Evaluate de l'objet Worksheet plutôt que celle de l'objet Application.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Mai 2024

• #70

@Dudu2
La mfc te permet de retrouver visuellement les cellules verrouillées/déverrouillées rapidement c'est apparemment ce que tu veux faire.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #71

@Dranreb,
Ok je vois ce que tu veux dire. Mais je trouve que ces subtilités de scope / étendue sur feuille / classeur sont difficiles à intégrer dans une lecture rapide du code à moins d'être un expert de la chose.
Et une petite différence de syntaxe et tout change. Peut-être est-il plus prudent au niveau du code d'en rester à la notion de nom.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #72

@Staple1600 ,
Cette MFC est effectivement très subtile et efficace !
En réalité je suis en VBA pour essayer de trouver ce que ta MFC trouve rapidement visuellement.

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 2 Mai 2024

• #73

Dudu2 à dit:

@Staple1600 ,
Cette MFC est effectivement très subtile et efficace !
En réalité je suis en VBA pour essayer de trouver ce que ta MFC trouve rapidement visuellement.

Cliquez pour agrandir...

Staple tu es sur ?

De plus à la volée tu peux la créer en vba et toujours à la volée tu peux la supprimer quand tu n'en as plus besoin.
Perso j'ai trouvé cela sympa et qui pourrait convenir à ta demande ....

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #74

Oui bon, j'ai confusé. Désolé.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 2 Mai 2024

• #75

Re

@Dudu2
En partant du code précédent, on peut tenter ceci
(fonctionne sur un exemple simple avec une feuille ne contenant pas de formules)

Code:

Sub Range_Cell_VER()
Dim rng As Range, p As Range, vVals As Variant
Set p = ActiveSheet.UsedRange
vVals = p.Value
  With Application
    .FindFormat.Clear
    .ReplaceFormat.Clear
    .FindFormat.Locked = True
    .ReplaceFormat.Interior.Color = RGB(255, 0, 0)
    Cells.Replace "*", "#N/A", , , , , True, True
    Set rng = Cells.SpecialCells(2, 16)
    .FindFormat.Clear
    .ReplaceFormat.Clear
  End With
  MsgBox rng.Address
  p = vVals
End Sub

Les valeurs initiales de la feuille sont réinjectées en fin de macro

 

Vote positif 0 Vote négatif