Discussion :

[Nilou82]

Bonjour à tous,

Après avoir fait pas mal de recherche sur internet et dans différents livres, j'ai le sentiment d’être dans une impasse :-(

Je souhaiterais remplacer les valeurs des cellules dont le nom commence par "Motdepasse" par "*****"

Cette fonction doit porter dans l’intégralité de mon classeur.

Motdepasse 00.xlsm

J’ai essayé d’utiliser la fonction Find et FindNext mais celle-ci tien compte que de la valeur de la cellule et non de son nom.

Avez-vous déjà utilisé une fonction équivalente ou avez-vous un début d’idée ?

Merci pour votre aide.

[Marc-L]

Bonjour,

oui comme l'aide VBA de la méthode Find l'indique pourtant clairement …

Il suffit de parcourir la collection des noms du classeur ou d'une feuille.

Comme je le dis souvent, chercher sur le net est une perte de temps quand tout est déjà là à portée de clic ‼
A partir d'un classeur vierge, activer le Générateur de macros et nommer une cellule de la même manière
de celles créées sur le classeur de travail : un code est livré sur un plateau !
Ce code dévoilant la collection à utiliser, reste juste à écrire une boucle pour parcourir les éléments de cette collection …

[Nilou82]

Merci Marc pour ton retour,

Donc si je comprends bien : je dois créer une collection pour rassembler les noms des objets.

Mais comment faire pour ne prendre en compte que les noms d’objet qui commence par "Motdepasse" ?

J'avoue ne pas être à l'aise avec les collections, mais qu'importe je suis prêt à m'investir.

[Marc-L]

La collection est déjà présente dans les propriétés d'un classeur comme celles d'une feuille de calculs !

Ensuite pour le nom il y a la simple fonction de texte VBA Left ou l'opérateur Like …

[Nilou82]

Franchement je suis perdu. je vois l'idée mais je ne sais pas comment récupérer la collection.

J'ai l'impression que le fonctionnement des collections n'est pas à la porté des débutants.

Merci pour votre aide.

[Marc-L]

C'est une collection - du genre Names - comme une autre : Workbooks, Worksheets, Cells, …
Sauf qu'elles sont deux : une pour le classeur, une par feuille de calculs …
Tout dépend donc comment a été créé le nom et c'est simple en suivant le modus operandi du post #2 …

[Nilou82]

Bonjour,

J'ai finalement réussit :

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
Sub Recherche_Cellule_Nommee()
    Dim Mtp As Name, x As Integer, CelMod As String
 
    x = 0
    'liste des Noms Motdepassexxx
    For Each Mtp In ThisWorkbook.Names
        If Mtp.Name Like "Mot*" Then
            x = x + 1
            'adresse cellule
            CelMod = Mtp.RefersTo
            If InStr(1, CelMod, "!#REF!") > 0 Then
                Mtp.Delete
            Else
                'ecriture ***** dans cellule
                Range(CelMod) = "*****"
            End If
        End If
    Next Mtp
End Sub

Merci pour votre aide.