Discussion :

[tempo-lyon]

Bonjour;
J'ai une macro qui me fais une mise en forme bordure sur tous les plages nommées de la feuille 4 (excel 97).
Les plages sont des plages nommées dynamique avec une formule du style =DECALER... .
Cet Macro marchait très bien jusqu'au jour ou j'ai créé d'autres plages nommées sur d'autres feuilles; depuis ca me fais m'importe quoi!
Voici le code (en fin de message):
Avez vous une idée du problème?
Je pense qu'il faut spécifier à la macro de travailler uniquement sur les plages nommées de la feuille 4 mais je suis débutant et je ne sais pas faire.
Merci par avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
Dim i As Byte
Dim n As Name 
 
For Each n In ActiveWorkbook.Names
For i = 0 To 15
Range(n.Name).Offset(0, i).BorderAround Weight:=xlMedium
On Error GoTo erreur
Next i
Next n
erreur:
Range("R5:AE1000").Select
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A6").Select
End Sub

[Pierre Fauconnier]

Bonjour. Bienvenue sur les forums de www.developpez.com. J'espère que tu trouveras ici un espace de partage de compétences, et que tu apporteras ta pierre à l'édifice...

Prends quelques minutes pour lire la façon d'intervenir sur les forums, les règles en usage, ...

Tu as la possibilité, dans les messages que tu rédiges, d'utiliser des balises qui mettent ton message en forme, et notamment la mise en forme du code. Ainsi, une fois ton code collé dans le corps de ton message, sélectionne-le et clique sur le bouton #. Cela ajoutera les balises de code et ton message sera plus lisible.


La plus générique des solutions est de vérifier si le nom de l'onglet est présent dans la référence de la plage nommée (= la formule decaler(...))

Code :

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

1
2
3
4
 
    For Each n In Names
        If InStr(1, n.Value, "Feuil1") Then MsgBox n.Name
    Next

Ok?

Au plaisir de te rencontrer à nouveau en ce lieu

[alsimbad]

tu peux toujour esayer de remplacer activeworkbook par ActiveSheet, ça me semble le plus simple, si tu lance ta macro depûis la feuille en question, sinon tu la nomme expressément.

Code :

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

1
2
 
For Each n In worksheets("mafeuille").Names

[Pierre Fauconnier]

Salut Alsimbad,

Ta solution ne reprendra pas tous les noms qui pointent vers des plages de Feuil1, mais seulement celles qui sont attribuées explicitement à Feuil1 par une affection du type Feuil1!MonNom.

[alsimbad]

salut pierre

Je pense qu'il faut spécifier à la macro de travailler uniquement sur les plages nommées de la feuille 4

mais a la fois c'est un peu ça qu'il veut, je pense

[Pierre Fauconnier]

Salut...

En fait, c'est une question d'appréciation de sa question. Soit il veut travailler uniquement sur les plages affectées explicitement à une feuille, soit il veut travailler avec les plages contenues sur la feuille.

Dans le premier cas, ta solution est la bonne, dans le deuxième, c'est la mienne.

Mais dans tous les cas, nos réponses l'éclaireront sur les manières de gérer les plages nommées...

Je te souhaite un bon dimanche (vaguement ensoleillé chez nous...)

A bientôt

Amicalement

[alsimbad]

ok alors, bon dimanche aussi.

[tempo-lyon]

Quelques détails:

1) le nom de l'onglet est présent dans la référence de la plage nommée.
2) Je veux que ma macro travail uniquement sur les plages nommées de la feuille 4 (plage nommées contenue dans la feuille 4).


J'ai testé la solution de Alsimbad (For Each n In worksheets("mafeuille").Names); mais le debegeur me renvoie une erreur d'exécution 9 "indice en dehors de la plage"

Pour la solution de Pierre ( If InStr(1, n.Value, "Feuil1") ...) ca fait rien du tout.

Je suis vraiment perdu.

[alsimbad]

Indice en dhors de la plage signifie généralement qu'il y a un difference dans les noms de feuilles. Vérifie que tu n'as pas "ma_feuille" ou "Mafeuille". le mieux est de copier/coller le nom de la feuille

[tempo-lyon]

J'ai résolu le problème; le code marche.
Je pense qu'il y avait un problème (de réference ou autre) sur le bouton de commande qui lance la Macro.

Enfin merci à tous pour votre aide; je pense que je ne tarderai pas à poster de nouveau pour un autre problème. Les macro et moi ca fait deux.

Bonne soirée.

[AlainTech]

Si ton problème est résolu, il y a un bouton, en bas de discussion pour le signaler aus autres intervenants de ce forum.

Merci.