Effacer des cellules suivant un paramétrage défini

Résolu/Fermé

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - Modifié par mijean94 le 6/01/2016 à 22:24
mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 - 7 janv. 2016 à 13:30

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

A voir également:

Effacer des cellules suivant un paramétrage défini
Suivi des modifications word - Guide
Formule excel pour additionner plusieurs cellules - Guide
Verrouiller des cellules excel - Guide
Comment effacer une page sur word - Guide
Effacer les cookies - Guide

2 réponses

Réponse 1 / 2

Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524
6 janv. 2016 à 23:50

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 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
7 janv. 2016 à 10:49

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 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 524 > mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024
7 janv. 2016 à 13:09

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 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11 > Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016
Modifié par mijean94 le 7/01/2016 à 14:00

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

cordialement

Réponse 2 / 2

mijean94 Messages postés 413 Date d'inscription mercredi 16 décembre 2015 Statut Membre Dernière intervention 12 septembre 2024 11
7 janv. 2016 à 10:42

Bonjour,

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

cordialement

Discussions similaires

code ascii

Erreur ! Signet non défini

Pokémon X et Y : comment effacer une partie ?