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

mapomme

XLDnaute Barbatruc

• 2 Mai 2024

• #91

Re,

job75 à dit:

Mes sélections se font dans la feuille entière comme je l'ai dit.

Cliquez pour agrandir...

Je n'ai pas étudié ton code très attentivement (ni lu correctement). Je vais le faire après ma visite chez le dentiste .

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 2 Mai 2024

• #92

J'ai corrigé mon post #88 car il y avait une coquille dans la définition de la zone4.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #93

Re-bonjour les forçat du verrouillage,
Et merci @job75 pour ta proposition.

En effet, scanner le UsedRange c'est bien quand on considère les données.
En l'occurrence, "mon" utilisateur va préférentiellement sélectionner des colonnes entières sur un tableau parce que ça va plus vite que de scroller lignes et colonnes et ajuster la sélection (qui sert de base au verrouillage) exactement sur les limites du tableau.

De plus le verrouillage n'est pas lié au UsedRange, et si la colonne A est verrouillée par l'utilisateur, s'il ajoute une valeur au-delà du UsedRange dans une colonne verrouillée, il faut qu'il soit rejeté par Excel.

Alors oui, ton système peut aller au-delà du simple UsedRange, mais comme il y a un scan des cellules, ça peut durer assez longtemps si une certain nombre de colonnes sont verrouillées, voire la feuille entière.
Enfin il me semble...

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Mai 2024

• #94

Dudu2 à dit:

d'autre part utiliser des propriétés de cellules (couleur MFC) qui certes ne vont pas tilter avec les couleurs natives des cellules mais peuvent tilter avec des MFC utilisateur.

Cliquez pour agrandir...

La couleur de fond d'une cellule n'est pas la même que la couleur affichée par une MFC.
Autrement dit, ce sont deux paramètres différents.

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Mai 2024

• #95

Dudu2 à dit:

La solution de @TooFatBoy d'utiliser des noms de gestionnaire de noms est finalement la plus simple.

Cliquez pour agrandir...

Cette idée vient bien de mon cerveau, mais en fait ça ne vient pas de ma propre réflexion mais de ma mémoire...
En effet, je crois me rappeler d'un fil de discussion dans lequel l'excellent job75 utilisait un Nom pour mémoriser quelque chose (logiquement se devait être une plage, mais je ne me souviens plus très bien...).

Ce n'est donc pas vraiment ma solution mais plutôt celle de job75 !

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #96

La MFC de @Phil69970 serait une bonne solution s'il ne fallait pas parcourir les cellules pour savoir si son format a été appliqué. C'est le parcours des cellules qui est rédhibitoire.

A priori, il n'existe pas de méthode pour avoir le Range qu'une MFC a défini pour sa condition réalisée.
Pourtant Excel le sait forcément.

 

Dernière édition: 2 Mai 2024

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #97

Si, c'est la propriété AppliesTo de l'objet FormatCondition

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #98

Le propriété AppliesTo donne le Range sur lequel s'applique la MFC.
Il ne donne pas hélas le Range sur lequel la MFC a réalisé sa condition.

Pareil pour le ActiveSheet.Cells.SpecialCells(xlCellTypeAllFormatConditions) à supposer qu'il n'y ait qu'une seule MFC.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #99

Si ce n'est pas la même chose il faut je suppose analyser ses FormulA1 et 2

 

Vote positif 0 Vote négatif

TooFatBoy

XLDnaute Barbatruc

• 2 Mai 2024

• #100

Dudu , tu parlais de faire commencer chaque Nom par le CodeName de sa feuille, pour pouvoir le retrouver facilement en fonction de la feuille, si j'ai bien compris.

Mais si au lieu de cela, tu donnes exactement le même nom à tous les Nom de plages, tu peux alors utiliser Sheets(LeNomDeTaFeuille).Range(LeNomDeLaPlage), et ça devrait utiliser automatiquement le bon Nom, c'est-à-dire celui faisant référence à la feuille en question.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #101

Certes, mais d'une manière ou d'une autre ça revient à parcourir les cellules.

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #102

Sheets(LeNomDeTaFeuille).Range(LeNomDeLaPlage), et ça devrait utiliser automatiquement le bon Nom, c'est-à-dire de la feuille en question.

Cliquez pour agrandir...

Ça je suis pas sûr. C'est un peu ce à quoi faisait référence @Dranreb. Mais les noms ne semblent pas qualifiés par le nom de la feuille dans le Gestionnaire de noms même si leur "étendue" est la feuille.
Alors j'ai des gros doutes. Le préfixage par le CodeName fonctionne tel que je l'ai implémenté, alors...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #103

Explorez la collection Names du classeur, vous verrez bien que les Name.Name des noms de portées feuille portent les préfixes de feuilles, même si le gestionnaire de noms ne le montre pas …

 

Vote positif 0 Vote négatif

Dudu2

XLDnaute Barbatruc

• 2 Mai 2024

• #104

Oui, c'est sûr on peut, manuellement ici, définir des noms identiques sur des "étendues" de feuilles différentes.

Alors il faudrait que j'adapte mon code pour indiquer l'"étendue" des valeurs à définir et retrouver.
Oui, ok... c'est possible.

D'ailleurs d'un point de vue syntaxique en VBA, je sais pas trop comment faire pour désigner un nom spécifique d'une feuille.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 2 Mai 2024

• #105

Mais de toute façon ce préfixe de feuille n'est pas à préciser pour retrouver un nom de la collection Names de la feuille

 

Vote positif 0 Vote négatif