ajout d'une ligne en macro (sans numero de cellule)

[noon]

bonjour
voilà mon probleme
je souhaite ajouter une ligne sous une cellule avec une macro
actuellement ça marche mais elle garde le format de ma cellule
la ligne crée doit être sans format c'est-à-dire sans couleur ecriture "normal"

et cette macro doit aussi créer un bouton ou lien ,, qui permet de supprimer la ligne
voir mon fichier joint
merçi de vos reponses et de vos aides (indipensable)
Regarde la pièce jointe rapport.zip

 

[Softmama]

Re : ajout d'une ligne en macro (sans numero de cellule)

Bonjour,

Vois ci ceci répond à ton besoin :

Sub alkylation()
'
' alkylation Macro
' Macro recorded 09/11/2010 by bcollin
'

'
Dim Lg As Integer
  Lg = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row + 2
  Cells(Lg, 1).EntireRow.insert
  Cells(Lg - 1, 1).Resize(1, 3).Copy Destination:=Cells(Lg, 1)
  Cells(Lg - 1, 1).Resize(1, 3) = ""
  ActiveSheet.Shapes("Rectangle 87").Copy
  Range("D" & Lg).Select
  ActiveSheet.Paste
  Range("A" & Lg - 1).Select
End Sub

Sub Moins()
Rows(ActiveSheet.Shapes(Application.Caller).TopLeftCell.Row).Delete
ActiveSheet.Shapes(Application.Caller).Delete
End Sub

cf. fichier joint

 

[noon]

Re : ajout d'une ligne en macro (sans numero de cellule)

merci pour ton aide

j'ai juste encore un petit problème
tout fonctionne bien ajout de la ligne
suppression de la ligne
mais lors de la suppression ça me génère une erreur je ne comprends pas

merci