Supp du contenu d'une cellule en fonct du début de son nom
Résolu
nilou82
Messages postés
21
Statut
Membre
-
nilou82 Messages postés 21 Statut Membre -
nilou82 Messages postés 21 Statut Membre -
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 ?
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 ?
4 réponses
-
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 -
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/ -
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 !-
-
-
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 -
-
-
Fichiers :
Motdepasse.xlsx -> https://www.cjoint.com/?DKukjXU5ird
Image.jpg -> https://www.cjoint.com/?DKukmYAMYkG
Bonne réception.
