Informations cachées dans une cellule

Version imprimable

19/07/2008, 12h11
NoCxDev2

Informations cachées dans une cellule

Bonjour,

Provenant du monde .Net (C#), je suis en train de m'initier au VBA Excel.

Je me retrouve face à un petit problème :

J'aimerais faire un système qui permettrais de locker une partie des cellules d'une feuille.
Pour cela j'avais pensé lier à certaines cellules (celles que je veux locker) une donnée totalement invisible à l'utilisateur de façon à les différencier des cellules normales.
Ainsi, au chargement de la feuille il me suffirais de locker toutes les cellules ayant cette donnée (exemple un booléen à true)

Problème : Je ne trouve pas le moyen d'ajouter à une cellule des (meta) données accessible uniquement en VBA.

Suis-je sur la bonne piste ? ou totalement égaré ? :)

Et existe-t-il une solution à mon problème ?

Merci d'avance.
19/07/2008, 12h19
ouskel'n'or

Une petite explication :
Par défaut, toutes les cellules sont verrouillées.
Pour que ce verrouillage prenne effet, la feuille doit être protégée.
Il existe plusieurs types de protection dont une qui empêche la modification des cellules... sauf modifications effectuées par macro.
Chaque cellule peut être verrouillée ou nom : Dans Excel -> Format -> Cellule -> Onglet Protection.
Dans le même onglet, tu as également l'option "Masqué"
Tu regardes déjà ça et si tu n'y arrives pas, tu dis
Bonne journée
19/07/2008, 12h33
NoCxDev2

Bonjour,

Merci pour cette précision, j'ai oublié de préciser que mon problème n'était pas sur le fait de protéger les cellules mais plutôt sur le fait de "tagger" les cellules devant-être protégée.

Un autre exemple serait de pouvoir, sur n'importe quelle feuille, reconnaitre une zone précise en parcourant les cellules et en recherchant un marqueur spécial, qui m'indiquerais par exemple que cette ligne est une ligne de résultat qu'il faut traiter (sachant qu'a la base je n'ai aucunes information concernant l'emplacement de cette ligne).

Et je voudrais pouvoir la localiser autrement qu'en utilisant le contenu visible d'une cellule pour des raisons de sécurité et de confort de lecture.

Pour être plus clair, voici mon objectif final, permettre à un utilisateur identifié de choisir quelles cellules il veux protéger pour ensuite diffuser le document en toute sécurité.

(On pourrais imaginer que l'utilisateur marque les cellules devant être protéger en changeant la couleur de fond, ensuite à l'ouverture je lock toutes les cellules ayant un fond rose^^ par exemple. Mais c'est pas vraiment propre)

Je voudrais réussir a faire tout cela sans passer par l'interface de Excel, uniquement en VBA.

J'espère avoir été plus compréhensible.

Bonne journée

Bonjour,

En fait je comprends pas en quoi c'est plus simple de colorer une cellule en rose que directement la protéger depuis excel ?

on peu par exemple rajouter une modification de la cellule sur double clic

avec un code dans ce genre pour le code de la feuille.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Locked Then Target.Locked = False Target.Interior.ColorIndex = xlNone Else Target.Locked = True Target.Interior.Color = vbBlue Target.Interior.ColorIndex = 7 Target.Interior.Pattern = xlSolid End If Cancel = True End Sub
faudrai surement rajouter quelques tests sur target, pour être sur d'être sur une zone verrouillable .

Ou bien modifier le menu contextuel "Cells" d'excel et rajouter une entrée verrouiller/deverouiller...

dis nous quoi.

19/07/2008, 13h15
NoCxDev2

Merci pour l'exemple, cela se rapproche de ce dont j'ai besoin.

Cependant mon véritable problème est d'ajouter des données personnalisé à la cellule qui sont invisible à l'utilisateur de la feuille. Pour ensuite locker "automatiquement" certaines cellules.

D'après ce que j'ai vu on peut donner un "name" à une cellule, c'est presque ce dont j'ai besoin à ceci près qu'il me faudrait pouvoir stocker plusieurs informations.

Exemple :

Rechercher les cellules marquées "Résultat".
Pour ensuite locker les 3 cellules de dessous. (Car elles contiennent des formules qui ne doivent pas être édité par les simple lecteurs)
Sachant que je ne sais pas où sont les cellules "Résultat".

J'imagine que se sont des réflexes typique du dev C#, mais je ne vois pas d'autres solutions pour l'instant.

Reformulation :

Je voudrais pouvoir typer les cellules, sachant que chaque cellule pourrais avoir plusieurs types simultanément.

Pour avoir des cellules du Type "Protected", ou "à exporter", ou "legende".

Pour effectuer des traitement automatiques spécifiques à ces cellules précisément.

C'est peut-être plus clair.
19/07/2008, 13h41
ouskel'n'or

Tu pourrais nommer les cellules "résultat" en créant un index à un nom identique puis, avec offset, verrouiller les cellules qui t'intéressent dans une boucle.
Juste une idée
Mais qu'est censé faire l'utilisateur dans l'histoire ?
19/07/2008, 13h44
DarkVader

Et en créant une image de ta feuille avec une feuille en mode hidden ?
19/07/2008, 13h49
NoCxDev2

Finalement pas grand chose :

Il va ajouter une cellule, dire (Grâce à une UserForm, mais comment le stocker c'est la le problème) que cette cellule est une cellule de type "Résultat" et "Protected".

Ensuite dans une feuille de synthèse, faire la moyenne de toutes les cellules résultat de la feuille initiale.

Le but étant de calculer la moyenne automatiquement sans changer la formule et sans savoir où sont situé les cellules résultats.
19/07/2008, 13h53
NoCxDev2

Citation:

Envoyé par DarkVader

Et en créant une image de ta feuille avec une feuille en mode hidden ?

Voila exactement le "principe" de fonctionnement dont j'ai besoin.

Mais étant donné la quantité de données, ça risque de ne pas être performant.
Et je pense (et j'espère) qu'il existe un moyen plus simple et ciblé pour faire cela.

Dans l'idéal je voudrais pouvoir lier simplement une liste de string à une cellule.

En tous cas cet exemple illustre parfaitement le problème.
19/07/2008, 14h44
ouskel'n'or
Si tu nommes par macro les cellules "résultat" (tu peux faire ça ?) Resultat1, Resultat2, Resultat3, ... tu peux faire une boucle sur les noms contenus dans ta feuille et récupérer les valeurs.
Nomme deux cellules renseignées et teste ça.
Code:

1 2 3 4 5 6 7 8 Sub Test() Dim LeNom As Name For Each LeNom In ThisWorkbook.Names i = i + 1 Total = Total + Range(LeNom) Next MsgBox Total & vbCrLf & "pour " & i & " résultats" End Sub
19/07/2008, 19h23
DarkVader

Citation:

Envoyé par NoCxDev2

Voila exactement le "principe" de fonctionnement dont j'ai besoin.

Mais étant donné la quantité de données, ça risque de ne pas être performant.
Et je pense (et j'espère) qu'il existe un moyen plus simple et ciblé pour faire cela.

Dans l'idéal je voudrais pouvoir lier simplement une liste de string à une cellule.

En tous cas cet exemple illustre parfaitement le problème.

L'idée était d'affecter 1 à la cellule image d'un résultat et de calculer sommeprod(cellule*celluleimage)/somme(celluleimage).
Vrai, ce n'est pas top.
Qu'entends-tu pas beaucoup de données ?
19/07/2008, 23h26
NoCxDev2

Merci tout le monde.

Je crois avoir trouver une solution plus élégante.

Utiliser les Properties des SmartTags qui permettent d'ajouter une liste de KeyValues spécifique à une cellule.

C'est totalement invisible à l'utilisateur.

Nikel
20/07/2008, 00h04
DarkVader

Je ne connaissais pas : c'est un object ajouté depuis XL XP ?
20/07/2008, 10h13
ouskel'n'or

Salut Dark, je ne connaissais pas non plus. Existe sur VBA 2003 (F1) mais pas sur 97.
Merci NoCxDev2, tu devrais revenir plus souvent ;)
20/07/2008, 17h23
NoCxDev2

Hey :)

De rien vous m'avez bien guidé !

Je risque de repasser bientôt, je me lance dans une génération de graphiques automatiques à partir de données complexe (c'était aussi pour ça que je devais pouvoir localiser certains types de cellules)

Bye
20/07/2008, 21h48
edelweisseric

Bonsoir à tous

Citation:

Envoyé par NoCxDev2

Merci tout le monde.

Je crois avoir trouver une solution plus élégante.

Utiliser les Properties des SmartTags qui permettent d'ajouter une liste de KeyValues spécifique à une cellule.

C'est totalement invisible à l'utilisateur.

Nikel

Je suis ce fil avec un très grand intérêt. Quand NoCxDev2 dit "...C'est totalement invisible à l'utilisateur" et bien c'est totalement incompréhensible pour mon petit cerveau.

Y aurait il quelqu'un pour me guider ? car c'est une solution qui pourrait m'intéresser. Je ne connais pas les "SmartTags " encore moins leur "Properties " et donc "...KeyValues ..."

Merci beaucoup d'avance

Eric
20/07/2008, 22h48
SilkyRoad

bonsoir

Citation:

Y aurait il quelqu'un pour me guider ? car c'est une solution qui pourrait m'intéresser. Je ne connais pas les "SmartTags " encore moins leur "Properties " et donc "...KeyValues ..."

Tu trouveras un exemple de création et d'utilisation des smarttags (balises actives)

http://silkyroad.developpez.com/excel/smarttags/

par contre moi non plus je ne vois pas trop le rapport avec la question initiale.

bonne soirée
michel
21/07/2008, 10h36
edelweisseric

Bonjour à tous

Merci pour le lien SilkyRoad, je me plonge dedans.

Eric
12/08/2008, 22h32
NoCxDev2

Re,

Citation:

par contre moi non plus je ne vois pas trop le rapport avec la question initiale.

Je comprend ta réaction puisque ce n'est pas vraiment fait pour ça.

Cela répond à mon problème par le faite qu'en créant une balise SmartTags (que je n'utilise pas du tout pour ces fonctionnalité) cela permet de lier facilement une liste de KeyValues à la cellule de façon "presque" invisible à l'utilisateur.

Presque : Puisque l'utilisateur peux aller regarder le code VBA et surement accéder a cette liste dans les options avancées d'Excel (dont je ne suis absolument pas spécialiste)

Tchuss