transfère de cellules protégées

[terpick]

Salut le Forum !

Aujourd'hui je me bloque sur une chose pas trop compliquée, mais je me bloque quand même.

Je dois protéger certaines cellules dans plusieurs tableaux. Jusqu'ici tout va bien.

Le problème, c'est que je transfère ces tableaux dans une autre feuille. Une fois sur nouvelle feuille, les cellules ne sont plus protégées, bien sûr.

Je suis obligé de faire la protection sur la feuille mère, puisque je ne connais pas le positionnement exacte de mes tableaux sur la feuille de destination.

Je joins un exemple.

Cijoint.fr - Service gratuit de dépôt de fichiers

Les cellules protégées sont sur la feuille Feuille_Tableau. Sur la feuille Matrice il y a un bouton. Il transfère les tableaux nécessaires sur cette feuille. Et les cellules ne sont plus figées.

Merci d'avance pour votre aide !

 

[phlaurent55]

Re : transfère de cellules protégées

Bonjour terpick,

si tu veux te donner la peine d'aller lire ce fil:
https://www.excel-downloads.com/threads/remplacer-message-dalerte.158947/

on y parle des protections

à+
Philippe

 

[terpick]

Re : transfère de cellules protégées

Bonjour, Phlaurent55 !

Merci pour votre réponse rapide. J'ai étudié le fil proposé, mais ce n'est pas tout à fait ce qu'il me faut.

En effet je dois figer uniquement certaines cellules sur une feuille par rapport au tableau, qui est transféré d'une autre.

Si ce n'est pas possible, peut-être je pouvais figer que des cellules avec le mot TOTAL?

J'ai essayé adapter votre Macro à ce besoin:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("TOTAL")) Is Nothing Then
MsgBox ("Cette cellule est protégée contre modification")
[E1].Select
End If
End Sub

mais elle bogue. Je sais qu'il y a une erreur, mais mes connaissances du VBA ne vont pas si loin.
à vrai dire, je ne comprends pas trop ces deux lignes:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("TOTAL")) Is Nothing Then

ou, plutôt, je les comprends à moitié seulement.

Cijoint.fr - Service gratuit de dépôt de fichiers

A +

 

[Hippolite]

Re : transfère de cellules protégées

Bonjour,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Le sous-programme est lancé quand une sélection est effectuée dans la feuille, la sélection est déinie par Target.

If Not Intersect(Target, Range("TOTAL")) Is Nothing Then

Si la sélection et les cellules "TOTAL" ont une partie commune, alors...
Si les deux n'ont qu'une seule cellule, celà revient à dire Si je clique sur "TOTAL", alors...

 

[terpick]

Re : transfère de cellules protégées

Bonsoir, Hippolite,
Salut, le Forum!

Je vous remercie, Hippolite, pour les explications. Le truc, c'est que la macro ne marche pas.
Vous voyez peut-être, pourquoi? Je serai très reconnaissant.
Voilà le classeur:

Cijoint.fr - Service gratuit de dépôt de fichiers

Encore merci!

A +

 

[Staple1600]

Re : transfère de cellules protégées

Bonsoir

TOTAL fait référence à :=#REF!#REF!

Forcément ca marche tout de suite moins bien

Réaffectes correctement TOTAL avec une référence valide, et cela devrait aller mieux.

 

[phlaurent55]

Re : transfère de cellules protégées

Re,

il n'y a pas de zone nommée "Total" dans le fichier joint
je suppose que trepick parle de la cellule qui contient le mot "Total"
et qu'il veut se servir de la position de cette cellule comme point de départ

à+
Philippe

 

[terpick]

Re : transfère de cellules protégées

Bonsoir, Staple1600 !
Merci pour votre réponse. Ce n'est pas la mauvaise foi, mais je n'ai vraiment pas compris ce que vous voulais dire.
Mon niveau dans VBA pour l'instant ne va pas si loin.
Si vous avez qques instants, le vous serais reconnaissant pour les explications.

Merci encore

A+

 

[Staple1600]

Re : transfère de cellules protégées

Re


Si il y a une zone nommée TOTAL
(Voir la copie d'écran ci-dessous)

Et comme tu le sais phlaurent, en VBA
Range("TOTAL") renvoie forcément à une plage de cellules nommées TOTAL

(d'ou mon précédent message)

 

[terpick]

Re : transfère de cellules protégées

Phlaurent55, vous avez raison. Je voudrais protéger toutes les cellules avec le mot total, au plus simple.
Mais, si c'est possible, je voudrais protéger également et tout ce qui est indiqué en jaune dans le fichier joint, c-a-d, les pieds et les têtes des tableaux.

Merci pour votre intérêt.

 

[phlaurent55]

Re : transfère de cellules protégées

Re,

Re


Si il y a une zone nommée TOTAL
(Voir la copie d'écran ci-dessous)

Et comme tu le sais phlaurent, en VBA
Range("TOTAL") renvoie forcément à une plage de cellules nommées TOTAL

(d'ou mon précédent message)

j'ai tout simplement cliqué dans la zone Nom dans laquelle il n'y a qu'une zone nommée " montanthoraires"
c'est vrai qu'en faisant Ctrl+F3 on découvre des choses hallucinantes 😕

à+
Philippe

 

[terpick]

Re : transfère de cellules protégées

C'est moi qui a créé toutes ces zones.
Ce fichier, c'est juste un moreau.
Je reviens en effet, à mon besoin, qui n'a rien avec les zones nommées. Il faut que je fige les en-tetes et les pieds des tableaux qui sont transfères de la page Feuille_tableau vers la page Matrice. Mais, si ce n'est pas trop faisable, je voudrais figer au moin toutes les cellules avec le mot TOTAL.
Dites, s'il vous plaît, si c'est possible.

Merci pour votre patience.

A+

 

[terpick]

Re : transfère de cellules protégées

Merci pour astuce Ctrl+F3.
Tous les jours je découvre avec vous de nouvelles choses dans Excel.