Effacer des cellules suivant un paramétrage défini [Résolu/Fermé]

Signaler
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
-
Bonjour,

Comment effacer des cellules définies dans un fichier excel :

Ex : dans la cellule A1 il y a B8 ; dans la cellule A2 il y a xx 12000 ou directement dans la macro il y à les cellule à mettre à jour

Avec un ctrl x les cellules B8 :XX12000 sont remise à l’état initial du démarrage d’Excel. (Il faudrait aussi que les mises en forme conditionnelles ou autres soient supprimées)

Cordialement

2 réponses

Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
453
Bonjour,

Essaie avec cette macro
Sub Effacer()
Set Debut = Range([A1].Value)
Set Fin = Range([A2].Value)
Range(Debut, Fin).Clear
End Sub

A+
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour et merci pour la réponse,

Après utilisation je me pose cette question :
serait-il possible à la place d’avoir à noter les plages à effacer dans des cellules qu’au démarrage de la macro un menu demande ces deux coordonnées, la fonction deviendrait universelle ?

cordialement
Gyrus
Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
453 > mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019

Possible ? Bien sûr ! Tu peux afficher une invite dans une boîte de dialogue et traiter l'adresse saisie.
Sub Effacer()
Dim Reponse As String
Reponse = InputBox("Quelle est l'adresse de la cellule de début ?", "DETERMINATION DE LA PLAGE A EFFACER")
If Reponse <> "" Then
Set Debut = Range(Reponse)
Reponse = InputBox("Quelle est l'adresse de la cellule de début ?", "DETERMINATION DE LA PLAGE A EFFACER")
If Reponse <> "" Then
Set Fin = Range(Reponse)
Range(Debut, Fin).Clear
End If
End If
End Sub

A+
mijean94
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7 > Gyrus
Messages postés
3341
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016

Merci ça marche tés bien.
j'ai juste remplacé début par fin dans la deuxième question.

cordialement
Messages postés
341
Date d'inscription
mercredi 16 décembre 2015
Statut
Membre
Dernière intervention
7 novembre 2019
7
Bonjour,

ça marche nickel. un grand merci et un bonne année à tous

cordialement