Effacer des cellules suivant un paramétrage défini
Résolu
mijean94
Messages postés
413
Date d'inscription
Statut
Membre
Dernière intervention
-
mijean94 Messages postés 413 Date d'inscription Statut Membre Dernière intervention -
mijean94 Messages postés 413 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
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
-
Bonjour,
Essaie avec cette macroSub Effacer()
Set Debut = Range([A1].Value)
Set Fin = Range([A2].Value)
Range(Debut, Fin).Clear
End Sub
A+-
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- 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+
-
-
Bonjour,
ça marche nickel. un grand merci et un bonne année à tous
cordialement
