Effacement du contenu de cellules par macro
Résolu
Gilles_71
Messages postés
10
Statut
Membre
-
Gilles_71 Messages postés 10 Statut Membre -
Gilles_71 Messages postés 10 Statut Membre -
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
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
1 réponse
-
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
