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 ?
A voir également:
- Supp du contenu d'une cellule en fonct du début de son nom
- Fusionner deux cellules excel en gardant le contenu - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Nom de l'adresse - Forum Réseaux sociaux
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Nom d'adresse - Forum Jeux vidéo
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
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/
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 !
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.
Motdepasse.xlsx -> https://www.cjoint.com/?DKukjXU5ird
Image.jpg -> https://www.cjoint.com/?DKukmYAMYkG
Bonne réception.