Ajouter une ligne en dessous à chaque click sur bouton

Bonjour,

J'ai un petit problème, j'aimerais ajouter une ligne pour écrire des commentaires à chaque fois que je clique sur le bouton '+' et supprimer la ligne si je clique sur le bouton '-'.

La feuille " follow up" copie les informations de la première feuille " Action". Dans la 2e feuille c'est juste pour ajouter des notes pour chaque client et ainsi faire un suivi.

J'ai excel 2013.

Merci d'avance si vous êtes capable de m'aider !!

Oanita

69tableau1.xlsx (28.29 Ko)

Bonsoir,

Ce qu'on peut faire sans autre précision supplémentaire de ta part...

Sub AjoutLigne()
    Dim i%
    If ActiveCell.HasFormula Then
        i = ActiveCell.Row + 1
        ActiveSheet.Range("B" & i & ":K" & i).Insert xlShiftDown
    End If
End Sub

Sub SuppriLigne()
    Dim i%
    If Not ActiveCell.HasFormula Then
        i = ActiveCell.Row
        If i < 4 Then Exit Sub
        ActiveSheet.Range("B" & i & ":K" & i).Delete xlShiftUp
    End If
End Sub

Cordialement.

247oannita-tableau1.xlsm (35.06 Ko)
Rechercher des sujets similaires à "ajouter ligne dessous chaque click bouton"