Effacement du contenu de cellules par macro [Résolu]

Messages postés
10
Date d'inscription
mercredi 2 octobre 2019
Statut
Membre
Dernière intervention
8 octobre 2019
- - Dernière réponse : 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
Bonjour,
J'ai créé un bouton pour effacer le contenu de certaines cellules par une macro
Des problèmes quand je crée la macro avec les paramètres de Offset et Range

J'ai mis un explicatif dans la feuille concernée

https://www.cjoint.com/c/IJflGlQbFKl

Merci pour votre (précieuse) aide

Configuration: Windows / Chrome 77.0.3865.90
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
11192
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
13 octobre 2019
1451
1
Merci
Bonjour

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

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 62632 internautes nous ont dit merci ce mois-ci

Gilles_71
Messages postés
10
Date d'inscription
mercredi 2 octobre 2019
Statut
Membre
Dernière intervention
8 octobre 2019
-
Merci Via!

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
Commenter la réponse de via55