Microsoft 365 automatiser un bouton "efface cellule"

[matlatarte]

Bonjour, je souhaite créer un bouton qui efface les 2 cellules (ou 1 etc) avant la place du bouton.
On peut via vba mais comme j'ai plein de lignes j'aimerai automatiser cela (ex ci joint bouton bleu à "copier / coller" pour les cases du dessous) et pas créer une macro par ligne...

Est ce possible ?

Cordialement

 

[sylvanu]

Bonjour Matlatarte,
Un essai en PJ avec cette macro :

Public Sub AdresseShape()
    Adresse = (ThisWorkbook.Sheets(1).Shapes(Application.Caller).TopLeftCell.Address)
    L = Range(Adresse).Row: C = Range(Adresse).Column
    Cells(L, C - 1).ClearContents
    Cells(L, C - 2).ClearContents
End Sub

Tous les boutons ont la même macro. ( voir Feuil1 )

cependant tous ces boutons sont peut être pas utiles, voir Feuil2.
Il suffit de cliquer sur une cellule Effacer pour effacer les deux colonnes correspondantes, avec :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [J8:J100]) Is Nothing Then
        If Target <> "Effacer" Then Exit Sub
        L = Target.Row: C = Target.Column
        Cells(L, C - 1).ClearContents
        Cells(L, C - 2).ClearContents
    End If
End Sub

 

[matlatarte]

Super merci !

j'ai une petite nuance si la cellule en question est fusionnée cela ne colle pas, j'arrive à défusionner, effacer mais refusionner ?
par exemple sélection c-4 à c-1 à fusionner ?

Cells(L, C - 1).UnMerge
Cells(L, C - 1).ClearContents

Cells(L, C - 4, C - 1).Merge marche pas
Range("(Cells(L, C - 1): (Cells(L, C - 4)").UnMerge marche pas... j'ai atteint mes limites de bidouilleur !

 

[sylvanu]

Bonsoir,
"Cells(L, C - 4, C - 1)" n'est pas correct. La syntaxe de Cell est Cells(Ligne,Colonne). Essayez :

Range(Cells(L, C - 2), Cells(L, C - 1)).Merge

 

[TooFatBoy]

Hi,

Range("(Cells(L, C - 1): (Cells(L, C - 4)").UnMerge

Peut-être Range(Cells(L, C - 4),Cells(L, C - 1)).Merge ?

 

[matlatarte]

parfait merci !!