Effacer des cellules suivant un paramétrage défini

Résolu
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -  
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   -
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:

2 réponses

Réponse 1 / 2
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526
 
Bonjour,

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

A+
0
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   11
 
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
0
Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention   526 > mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention  
 
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+
0
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   11 > Gyrus Messages postés 3334 Date d'inscription   Statut Membre Dernière intervention  
 
Merci ça marche tés bien.
j'ai juste remplacé début par fin dans la deuxième question.

cordialement
0
Réponse 2 / 2
mijean94 Messages postés 415 Date d'inscription   Statut Membre Dernière intervention   11
 
Bonjour,

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

cordialement
0

Discussions similaires

Erreur ! Signet non défini
T2103 -
Raymond PENTIER -

1 réponse
Table des matières : erreur de signet sous Word 2010
Fred -
Raymond PENTIER -

21 réponses