Supp du contenu d'une cellule en fonct du début de son nom
Résolu
nilou82
Messages postés
21
Date d'inscription
Statut
Membre
Dernière intervention
-
nilou82 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
nilou82 Messages postés 21 Date d'inscription Statut Membre Dernière intervention -
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
- Comment colorer une cellule excel en fonction du contenu d'une autre cellule - Forum Excel
- Annuaire portable gratuit a partir d'un nom ✓ - Forum Mobile
- Excel cellule couleur si condition texte - Guide
- La création de contenu sous ce nom n’est pas autorisée. essayez un autre nom. ✓ - Forum Facebook
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.