Supp du contenu d'une cellule en fonct du début de son nom

Résolu/Fermé

nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 - Modifié par nilou82 le 20/11/2014 à 08:21
nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 - 20 nov. 2014 à 14:47

Suppression du contenu d'une cellule en fonction du début de son nom
Bonjour à tous,

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

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

Les cellules que je veux cacher s'appellent Motdepassexxx, et xxx est un numéro d'ordre.

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

Je peux vous enoyer un fichier exemple.

Pouvez-vous me venir en aide ?

A voir également:

Supp du contenu d'une cellule en fonct du début de son nom
Nom de l'adresse - Forum Réseaux sociaux
Comment colorer une cellule excel en fonction du contenu d'une autre cellule ✓ - Forum Excel
Trouver une adresse avec un nom de famille gratuit ✓ - Forum Mobile
Trouver un numéro de portable avec un nom ✓ - Forum Mobile
La création de contenu sous ce nom n’est pas autorisée. essayez un autre nom. ✓ - Forum Facebook

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
20 nov. 2014 à 10:41

Re,

un exemple de code recherche cellules nommee et modification contenu cellules, attention dans votre fichier il y a nom avec !Ref

Sub Recherche_Cellule_Nommee()
    Dim Mtp As Name, x As Integer, CelMod
    
    x = 0
    'liste des Noms Motdepassexxx
    For Each Mtp In ThisWorkbook.Names
        If Mtp.Name Like "Mot*" Then
            x = x + 1
            Worksheets("feuil1").Cells(x, 4) = Mtp.Name & " : " & Mtp.RefersTo
            'adresse cellule
            CelMod = Mtp.RefersTo
            'ecriture ***** dans cellule
            Range(CelMod) = "*****"
        End If
    Next Mtp
End Sub

Réponse 2 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
20 nov. 2014 à 09:55

Bonjour,

Suppression du contenu d'une cellule en fonction du début

et

Les cellules que je veux cacher s'appellent Motdepassexxx

pas la meme chose !!!!!!!!

mettez un fichier exemple sur https://www.cjoint.com/

Réponse 3 / 4

nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 3
20 nov. 2014 à 11:22

Comme on sera plusieurs à utiliser ce classeur, il risque bien d'y avoir des problèmes de !ref.

Est-il possible de faire un nettoyage par VB avant de lancer la procédure précédente ?

Un grand merci, vous fait un heureux !

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
20 nov. 2014 à 11:34

Re,

Est-il possible de faire un nettoyage par VB Qu'est ce a dire, supprimer les noms avec !Ref ???

nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 3
20 nov. 2014 à 13:44

Oui tous à fait, pour que la macro ne bug pas à la fin.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
20 nov. 2014 à 13:58

Re,

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
            Worksheets("feuil1").Cells(x, 4) = Mtp.Name & " : " & Mtp.RefersTo
            '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

nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 3
20 nov. 2014 à 14:47

Ca marche super ! Vous fait un heureux

Réponse 4 / 4

nilou82 Messages postés 21 Date d'inscription mercredi 19 novembre 2014 Statut Membre Dernière intervention 18 juillet 2018 3
20 nov. 2014 à 10:08

Fichiers :

Motdepasse.xlsx -> https://www.cjoint.com/?DKukjXU5ird

Image.jpg -> https://www.cjoint.com/?DKukmYAMYkG

Bonne réception.

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site

Annuaire portable gratuit à partir d'un nom

Nom de champs du tableau croisé dynamique non valide

A quoi correspond cette croix sur snapchat

Trouver un nom avec une adresse

Discussions similaires

Newsletters