Propriétés de plage nommées

**MichStib** · 08/03/2019, 19h20

Bonjour à tous,

Je viens vers le forum ar je bute sur un petit problème....
Je travaille sous Excell 2013.
J'ai crée dans une feuille excell un formulaire. (J'ai oloriser toutes les cellule en bleu, sauf les cellules qui composent les champs à remplir).
chaques champs à remplir est composés de plusieurs cellules . J'ai nommé les champs pour avoir plus facile à les traiter dans les procédure VBA.

Pour parcourir toutes les plage nommée, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each oName In ActiveWorkbook.Names
 
    If oName.Name <> "Modele!Print_Area" Then
        wsNew.Range(oName) = ""
    End If
Next oName

Le but ici est de nettoyer les champ. DOnc d'avoir des champ vide après l'execution du code.

Dans la meme idée, je voulais bloquer ou debloquer l'accès aux champ suivant que l'on etait en edition ou en relecture.
J'ai donc ecrit le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For Each oName In ActiveWorkbook.Names
 
    If oName.Name <> "Modele!Print_Area" Then
        Range(oName) = ""
        Range(oName).Locked = True
    End If
Next oName

La propriété de l'objet oName existe dans l'espion VBa, et je peut meme relire sa valeur (False ou True).
Cependant l'execution de ce code me donne une erreur:

' Run-time error '1004'
Unable to set the Locked property of the Range class'

Je peux mettre la propriété 'Locked ' à true ou à False pour des cellules, meme si celles si sont assemblées.

J'en vies à ma question :
Y a-t-il moyen de modifier la propriété 'locked' d'une plage en la référencant par son nom ?

Merci de m'avoir lu jusqu'ici

Une bonne jornée/soirée à tous

Michel

**Menhir** · 11/03/2019, 09h00

Envoyé par MichStib

Pour parcourir toutes les plage nommée, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For Each oName In ActiveWorkbook.Names
 
    If oName.Name <> "Modele!Print_Area" Then
        wsNew.Range(oName) = ""
    End If
Next oName

A ta place, j'aurai plutôt mis un préfixe aux nom que j'utilise (par exemple "XXX_") et repéré mes noms avec ce préfixe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For Each oName In ActiveWorkbook.Names
    If Left(oName.Name, 4) = "XXX_" Then
        wsNew.Range(oName).ClearContents

La propriété de l'objet oName existe dans l'espion VBa, et je peut meme relire sa valeur (False ou True).
Cependant l'execution de ce code me donne une erreur:

As-tu ôté la protection de la feuille avant de modifier la propriété d'une de ses cellules ?
https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)

**MichStib** · 14/03/2019, 12h40

Bonjour MenHir,

Desolé de la réponse tardive.

Dans la feuille en question, il n'y a que des plages nommées, et une plage d'impression.
Donc le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
 
 For Each oName In ActiveWorkbook.Names
 
    If oName.Name <> "Modele!Print_Area" Then
        wsNew.Range(oName) = ""
    End If
Next oName

Ne pose pas de problèmes

La feuille est bien débloquée prtection est mise sur 'false'

De plus en passant par les cellules .cells(ligne,col) , j'ai accès à la propriété 'locked' de la plage.

Donc le problèmes reste entier, maintenant on ne peut peut-être pas accéder à cette propriété via Range .....??

Merci pour ta reponse

michel

**Philippe Tulliez** · 14/03/2019, 13h29

Bonjour Menhir,

A ta place, j'aurai plutôt mis un préfixe aux nom que j'utilise (par exemple "XXX_") et repéré mes noms avec ce préfixe

Je ne peux que plussoyer, je travaille de la même manière et notamment pour copier des données d'excel vers des signets de Word

**MichStib** · 14/03/2019, 13h45

Bonjour Philippe,

Je suppose que "plussoyer" signifie "être d'accord avec" et "approuver".

Si j'ai des objet différent sur la feuille, je les préfixe pour les parcourir comme decrit par Menhir.

Dans mon code je n'ai q'un type d' objet et donc pas de risque de confusion (sauf pour la zone d'impression d'où )

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
If oName.Name <> "Modele!Print_Area" Then

Mais cela ne fais pas avancer mon schimblik

michel

**MichStib** · 14/03/2019, 13h52

Pour Philippe,

Je viens de chercher sur internet et trouver la definition du mot "plussoyer".

Il existe depuis le XXi° siècle, donc, sorry mais j'en suis resté au XX° siècle

michel

**Philippe Tulliez** · 14/03/2019, 16h21

Bonjour Michel,
Cette procédure fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Sub t()
 Dim oName As Name
 For Each oName In ActiveWorkbook.Names
   If oName.Name = "Feuil1!Print_Area" Then
      oName.RefersToRange.Locked = False
   End If
 Next
End Sub

Mais comme tu sembles connaître le nom de la feuille et le nom de la plage nommée, tu peux également écrire ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveWorkbook.Worksheets("Feuil1").Range("print_Area").Locked = True

et j'éviterais d'utiliser Activeworkbook. Il est préférable de définir le classeur explicitement

Je viens de chercher sur internet et trouver la definition du mot "plussoyer".
Il existe depuis le XXi° siècle, donc, sorry mais j'en suis resté au XX° siècle

Tu as parfaitement raison et en général, j'évite d'utiliser les néologismes mais comme sur ce forum ce verbe est de plus en plus employé, je ne me suis pas privé.

**MichStib** · 15/03/2019, 07h10

Bonjour Philippe et les autres,

J'ai modifier mon code pour correspondre a ta version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For Each oName In ActiveWorkbook.Names
    If oName.Name <> "Modele!Print_Area" Then
        oName.RefersToRange.Locked = True
        Range(oName) = ""
    End If
Next oName

Mais chez moi, j'ai toujours

"Erreur 1004", "Unable to set the locked property of range class"

La feuille est bien débloquée.
J'ai remplace "ActiveWorkbook" par la definition explicit du workbook, mais l'erreur reste la même

Problème de référence ??
Parce que j'ai le même problèmes avec Excell2013 et Excell2016 (j'ai plus de version plus ancienne, sauf peut être un symphony qui tourne encore

)

He voulais eviter de traduire l'adresse de la plage en cellule, mais je crois que je vais être obligé

Michel

**MichStib** · 15/03/2019, 07h12

Bonjour Philippe et les autres,

J'ai modifier mon code pour correspondre a ta version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For Each oName In ActiveWorkbook.Names
    If oName.Name <> "Modele!Print_Area" Then
        oName.RefersToRange.Locked = True
        Range(oName) = ""
    End If
Next oName

Mais chez moi, j'ai toujours

"Erreur 1004", "Unable to set the locked property of range class"

La feuille est bien débloquée.
J'ai remplace "ActiveWorkbook" par la definition explicit du workbook, mais l'erreur reste la même

Problème de référence ??
Parce que j'ai le même problèmes avec Excell2013 et Excell2016 (j'ai plus de version plus ancienne, sauf peut être un symphony qui tourne encore

)

Je voulais eviter de traduire l'adresse de la plage en cellule, mais je crois que je vais être obligé

Michel

**MichStib** · 15/03/2019, 07h24

Bonjour Philippe et les autres,

J'ai modifier mon code pour correspondre a ta version :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
For Each oName In ActiveWorkbook.Names
    If oName.Name <> "Modele!Print_Area" Then
        oName.RefersToRange.Locked = True
        Range(oName) = ""
    End If
Next oName

Mais chez moi, j'ai toujours

"Erreur 1004", "Unable to set the locked property of range class"

La feuille est bien débloquée.
J'ai remplace "ActiveWorkbook" par la definition explicit du workbook, mais l'erreur reste la même

Problème de référence ??
Parce que j'ai le même problèmes avec Excell2013 et Excell2016 (j'ai plus de version plus ancienne, sauf peut être un symphony qui tourne encore

)

Je voulais eviter de traduire l'adresse de la plage en cellule, mais je crois que je vais être obligé

Michel

**Menhir** · 15/03/2019, 08h22

Histoire d'essayer de diminuer le périmètre de recherche, essaye ça pour voir ce que ça donne.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim MyRange As Range
For Each oName In ActiveWorkbook.Names
    Set MyRange = oName.RefersToRange
    Debug.Print oName.Name
    Debug.Print MyRange.Address
    If oName.Name <> "Modele!Print_Area" Then
        oName.RefersToRange.Locked = True
        Range(oName) = ""
    End If
Next oName

Et regarde ce qui s'affiche dans la fenêtre d'exécution.

**MichStib** · 15/03/2019, 10h00

Bonjour Menhir

Merci de vous intéresser à mon problème.

J'ai insérer ton code dans mon programme, voici les résultat

Debug.Print oName.Name = "Alnom" Qui est bien le nom de la plage nommée
Debug.Print MyRange.Address = $F$26 qui est bien l'adresse de la première cellule de la plage nommée "Alnom"

l'erreur est toujours présente sur la ligne:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oName.RefersToRange.Locked = True

Michel

**Philippe Tulliez** · 15/03/2019, 10h24

Bonjour,
Es-tu certain que toutes les cellules nommées sont des Range ?
Je te propose d'ajouter dans la liste des impressions cette ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Print oName.RefersTo

**Menhir** · 15/03/2019, 10h30

Ca signifie donc que la plage est bien trouvée et que RefersToRange renvoie bien une référence de cellule valide.

Je crois qu'on est passé à côté d'une évidence : si tu modifies Locked, c'est sans doute que ta feuille est protégée, non ?
As-tu ôté cette protection avant de générer des modifications ?

Que donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim MyRange As Range
For Each oName In ActiveWorkbook.Names
    Set MyRange = oName.RefersToRange
    If oName.Name <> "Modele!Print_Area" Then
        MyRange.WorkSheet.Unprotect
        MyRange.Locked = True
        MyRange.Value = ""
    End If
Next oName

S'il y a un mot de passe à ta protection, il faudra le rajouter à Unprotect.
https://msdn.microsoft.com/fr-fr/lib...3(v=office.15)

**Philippe Tulliez** · 15/03/2019, 10h40

Bonjour,
Pour lever tout doute quant à la protection de la feuille, je propose d'ajouter la ligne 2 ci-dessous

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Debug.Print MyRange.Address(external:=True)
If MyRange.Worksheet.ProtectContents = True Then MsgBox MyRange.Worksheet.Name & " Protégée"

ou cette ligne qui signifie qu'en cas d'arrêt la feuille parente de MyRange est protégée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.Assert MyRange.Worksheet.ProtectContents = False

**zenpbb** · 15/03/2019, 10h43

Bonjour,

A tout hasard, si ta plage nommée fait référence à des cellules fusionnées, essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oName.RefersToRange.MergeArea.Locked = True

**MichStib** · 15/03/2019, 10h54

Pour augmenter le taux d'information, le code suivant ne donne pas d'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
For Each oName In wbMoi.Names
    If oName.Name <> "Modele!Print_Area" Then
        Range(oName) = ""
       Range(oName).Select
       Selection.Locked = True
    End If
Next oName

non, la feuille n'est pas protégée. Je le verifie chaque fois

**MichStib** · 15/03/2019, 11h03

Ouuups j'ai pousser trop vite sur "Envoyer"

La feuille est la seule dans le classeur.
Elle est normalement protégée, seul les plage nommée ne sont pas protégées. Ainsi on peut ecrire dedans.

Pour faire passer cette feuile en mode consultation des donnée déjà existantes, je voulais faire passer les plage nommée en mode
protégé pour eviter les modification.

Et la mes problèmes ont commencés.

Je crois que je vais rester sur la séquence décrite dans mon post précedent,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range(oName) = ""
Range(oName).Select

en bloquant le screenupdating, cela reste invisible, mais je trouve ce code un peu "primaire". m

**zenpbb** · 15/03/2019, 11h36

Envoyé par MichStib

...chaques champs à remplir est composés de plusieurs cellules...

Ces cellules composant un champ sont-elles fusionnées ? Si oui, voir mon post précédent #16.

Bonjour,

A tout hasard, si ta plage nommée fait référence à des cellules fusionnées, essaie
oName.RefersToRange.MergeArea.Locked = True

**Menhir** · 15/03/2019, 11h46

Envoyé par MichStib

Elle est normalement protégée, seul les plage nommée ne sont pas protégées. Ainsi on peut ecrire dedans.

As-tu vraiment vérifié ça ?
Parce qu'après avoir fait tourné plusieurs fois une macro qui met leur Locked à True, j'espère que tu as pensé à chaque fois à ôter la protection.

Une chose est sûre : les noms sont détectés et le RefersToRange renvoie bien la référence valide de la plage.
Donc le problème vient de la manipulation des cellules concernées.

A mon avis, le fait que ce soit des plages nommées n'a rien à voir avec le problème.

Propriétés de plage nommées

Excel

Discussions similaires

Partager

Partager