[XL-2007] Pb avec la suppression de noms en erreur

[mep1607]

Bonjour.
J'ai fait une macro pour supprimer les noms définis dans mon classeur en erreur mais elle ne fonctionne pas pour tous les noms.
Je cherche "REF" dans le RefersTo mais parfois, ça n'apparaît pas à cet endroit.
Quand je regarde dans Excel, je le vois dans un champ qui s'appelle "Valeur" mais je ne trouve pas comment il s'appelle en VB.
Est-ce que quelqu'un pourrait m'aider SVP ?
Voici le code que j'ai écrit :

Code :

1
2
3
4
5
6
7
8
9
10
 
For Each nm In ActiveWorkbook.Names
 
      RECUPRefersTo = nm.RefersTo
 
      If RECUPRefersTo Like "*REF*" Then
               nm.Delete
      End If
 
Next

Merci beaucoup.

[jfontaine]

Bonjour,

Pour rechercher une chaine de caractère dans une autre => INSTR

Code :

1
2
3
If Instr(RECUPRefers, "REF")>0 Then
      nm.Delete
End If

A tester dans ton cas de figure

[mep1607]

C'est gentil mais ça ne répond pas à mon problème, le like fonctionne.

Mon problème est que, pour que je sache que le nom défini est en erreur, il y a une façon habituelle, c'est de tester le RefersTo qui contient #REF.

Seulement, ce n'est pas toujours le cas.

Quand je fais Alt/I/N/D dans Excel et que je regarde le nom défini, je vois le #REF dans un champ qui est appelé VALEUR, pas dans le champs qui correspond au RefersTo.

Et ce champ Valeur, je n'arrive pas à y accéder en VB. J'ai mis des espions partout, sur toutes les variables possibles, et je ne le trouve pas.

Vous pourriez m'aider ?

[jfontaine]

dans un champ qui est appelé VALEUR

Est ce que tu parles d'une plage nommée "VALEUR" ?

[mep1607]

Envoyé par jfontaine

Est ce que tu parles d'une plage nommée "VALEUR" ?

Non. Quand je vais dans le gestionnaire de noms (par Alt/I/N/D, je ne sais pas y aller autrement), j'ai :
Nom / Valeur / Fait référence à / Etendue.

[jfontaine]

Désolé, mais je n'ai pas la version 2007 sous la main et je ne vois pas du tout a quoi correspond Valeur

[mep1607]

Envoyé par jfontaine

Désolé, mais je n'ai pas la version 2007 sous la main et je ne vois pas du tout a quoi correspond Valeur

Merci quand même.

[gFZT82]

Bonjour,

Dans le gestionnaire de noms, le champ Valeur indique la valeur de la cellule à laquelle il est fait référence.
Si j’affecte le nom "Toto" à la cellule A1 de la feuille "Feuil1" qui contient la valeur "Tutu", dans le gestionnaire de nom je vais lire :
Nom : Toto
Valeur : Tutu
Fait référence à : =Feuil1 !$A$1

Cordialement.

[mep1607]

Envoyé par gFZT82

Bonjour,

Dans le gestionnaire de noms, le champ Valeur indique la valeur de la cellule à laquelle il est fait référence.
Si j’affecte le nom "Toto" à la cellule A1 de la feuille "Feuil1" qui contient la valeur "Tutu", dans le gestionnaire de nom je vais lire :
Nom : Toto
Valeur : Tutu
Fait référence à : =Feuil1 !$A$1

Cordialement.

Merci mais je ne peux pas accéder aux cellules elles-mêmes.
Je vais dans un classeur que je ne connais pas et quand j'y entre, j'ai un message qui me dis "la mise à jour des liaisons ne peut pas se faire etc...".
Je veux donc juste supprimer toutes les liaisons incorrectes.
Je n'ai aucun moyen de savoir à quelles cellules ces liaisons font référence.

[jfontaine]

Je vais dans un classeur que je ne connais pas et quand j'y entre, j'ai un message qui me dis "la mise à jour des liaisons ne peut pas se faire etc...".
Je veux donc juste supprimer toutes les liaisons incorrectes.

Es tu certaines que toutes les liaisons vers l'autre classeur sont en plages nommées?

[mep1607]

Envoyé par jfontaine

Es tu certaines que toutes les liaisons vers l'autre classeur sont en plages nommées?

Celles qui ne sont pas en plages nommées ne m'embêtent pas.

Je veux juste supprimer celles qui sont en plages nommées.

Ca fonctionne sur toutes celles dont le code "#REF" est présent dans RefersTo mais je me suis aperçue depuis peu que ce n'est pas toujours le cas et qu'il y en a dont le "#REF" est dans un autre champ...

[mep1607]

Envoyé par mep1607

Merci mais je ne peux pas accéder aux cellules elles-mêmes.
Je vais dans un classeur que je ne connais pas et quand j'y entre, j'ai un message qui me dis "la mise à jour des liaisons ne peut pas se faire etc...".
Je veux donc juste supprimer toutes les liaisons incorrectes.
Je n'ai aucun moyen de savoir à quelles cellules ces liaisons font référence.

Excuse-moi, je ne t'ai pas bien répondu. En fait, dans le champ Valeur dont tu parles, j'ai #REF. Le problème, c'est que je le vois à l'écran mais je ne peux pas y accéder en VB.

[Ormonth]

Bonjour,

pour info le gestionnaire de nom a évolué depuis 2007, d'où les quiproquos, cf image...

OrmonthData446.jpg

cordialement,

Didier

[Ormonth]

Bonjour,
@mep1607, essayes ainsi :

Code :

1
2
3
4
5
6
7
Sub RobotMenage() 'pour version 2007 et plus !
Dim Nme As Name
    For Each Nme In ActiveWorkbook.Names
        If Nme.ValidWorkbookParameter = False Then Nme.Delete
    Next Nme
Exit Sub
End Sub

Cordialement,

Ps : si le côté technique de la réponse = OK ou pas => pensez à cliquer sur les pouces et quand question résolue à la taguer résolue, et chaque action vous rapporte des points

Didier