Effacement du contenu de cellules par macro
Résolu/Fermé
Gilles_71
Messages postés
10
Date d'inscription
mercredi 2 octobre 2019
Statut
Membre
Dernière intervention
8 octobre 2019
-
5 oct. 2019 à 13:34
Gilles_71 Messages postés 10 Date d'inscription mercredi 2 octobre 2019 Statut Membre Dernière intervention 8 octobre 2019 - 5 oct. 2019 à 16:32
Gilles_71 Messages postés 10 Date d'inscription mercredi 2 octobre 2019 Statut Membre Dernière intervention 8 octobre 2019 - 5 oct. 2019 à 16:32
A voir également:
- Effacement du contenu de cellules par macro
- Word a trouvé du contenu illisible - Guide
- Macro word - Guide
- Macro logiciel - Télécharger - Organisation
- Excel additionner des cellules - Guide
- Fusionner le contenu de 2 cellules excel - Guide
1 réponse
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
5 oct. 2019 à 14:40
5 oct. 2019 à 14:40
Bonjour
Remplace ta macro par celle-ci :
Le principe, la macro repère sur quel ligne se trouve le haut du bouton, donc il faut bien le positionner en ligne 13 et efface après les cellules demandées sur cette ligne et sur celle 2 crans en dessous
Ainsi tu peux mettre un bouton en face de chaque activité et lui attribuer cette macro pour effacer à chaque fois les bonnes lignes
Cdlmnt
Via
Remplace ta macro par celle-ci :
Sub effacement()
If MsgBox("Etes-vous certain de vouloir supprimer cette activité ?", vbYesNo, "Demande de confirmation") = vbYes Then
ligne = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row
Range("C" & ligne) = ""
Range("D" & ligne + 2) = ""
Range("F" & ligne + 2) = ""
Range("J" & ligne & ":" & "R" & ligne + 2).Select
Selection.ClearContents
MsgBox "La note a été effacé avec succès! "
End If
End Sub
Le principe, la macro repère sur quel ligne se trouve le haut du bouton, donc il faut bien le positionner en ligne 13 et efface après les cellules demandées sur cette ligne et sur celle 2 crans en dessous
Ainsi tu peux mettre un bouton en face de chaque activité et lui attribuer cette macro pour effacer à chaque fois les bonnes lignes
Cdlmnt
Via
5 oct. 2019 à 16:32
2 réponses à 2 questions en 2 jours! :) :)
Encore un grand merci
Le planning avance doucement, j'aurais sans doute d'autres questions!
Cordialement
Gilles