effacement cellules définies (2)

[mythotem]

Bonsoir,
Qui peux me fournir la macro qui effacerait dans la colonne H, uniquement les cellules d'un même intitulé ( 12 12, 01 13,...,ou 04 13) ?

Merci d'avance.

Mythotem

PS désolé pour le 1er envoi avec mot de passe sur la PJ.

 

[jpb388]

Re : effacement cellules définies (2)

Bonjour à tous
regarde si cela te conviens

 

[mythotem]

Re : effacement cellules définies (2)

Merci jpb388 !
c'est exactement ce que je recherchais.
bonne journée.
mythotem

 

[mythotem]

Re : effacement cellules définies (2)

Rebonjour jpb388,

Etant vraiment novice, peux-tu me donner la marche à suivre pour voir la formule et pour la coller sur une autre feuille ?

Encore merci.

mythotem

 

[jpb388]

Re : effacement cellules définies (2)

Bonjour à tous
pour l'installer

ouvrir le classeur
bouton office
option excel
cliquez sur case à cocher onglet développeur
ok
aller sur la feuille que tu as choisi
cliquer sur l'onglet développeur
insérer
choisir contrôles activex et cliquer sur bouton de commande ensuite le dessiner sur la feuille
copier le code

Dim reponse$, Cellule As Range, Lg&
 reponse = Application.InputBox("Selectionner la case représentant le chiffre ou le texte à annuler", "Supprimer occurences", , , , , , 8)
 Lg = Range("h" & Rows.Count).End(xlUp).Row
 For Each Cellule In Range("h2:h" & Lg)
    If Cellule = reponse Then Cellule = ""
 Next Cellule

clic droit sur le bouton choisir visualiser le code
coller
fermer et revenir sur la feuille
pour donner un nom au bouton
clic droit objet bouton de commande édition effacer et donner le nom que tu veux
en quittant excel l'enregistré avec l'extension .xlsm

et c'est tout

ps ne tient pas compte de l'image attaché je ne sais pas l'enlever

 

[mythotem]

Re : effacement cellules définies (2)

Merci encore jpb388,

Mais je n'arrive pas à cliquer contrôles ActiveX , seul contrôle de formulaire est accessible.

Cdt.

mythotem

 

[jpb388]

Re : effacement cellules définies (2)

re
prend celui la
quand tu as fini de le dessiner une boite de dialogue s'ouvre
clique sur nouvelle
colle le code

 

[mythotem]

Re : effacement cellules définies (2)

Merci jpb388 !!!
Je ne t'embêtes plus
Bonne journée

mythotem

 

[jpb388]

Re : effacement cellules définies (2)

re
mais tu ne m'embête pas