Problème ajout ligne VBA

[Arcangeli]

Bonjour le forum,
Je viens à nouveau à vous avec l'espoir de trouver une réponse.
Sur ce même forum j'ai trouvé un bout de code qui permet d'ajouter automatiquement une ligne et j'aimerai que la ligne ajoutée présente sur une cellule le même symbole que la précédente.
Il y a plus d'explications sur la pièce jointe.
Déjà merci si quelqu'un a une idée

 

[tototiti2008]

Re : Problème ajout ligne VBA

Bonjour Arcangeli,

à tester :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$E$5" Then
Rows(Target.Row).Insert
Application.EnableEvents = False
Sh.Unprotect
Sh.Range("B5").Value = "xx"
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowInsertingRows:=True
Application.EnableEvents = True
Range("$a$5").Select
End If
End Sub

 

[Arcangeli]

Re : Problème ajout ligne VBA

Merci tototiti2008
Je vien d'essayer et ça fontionne pas trop mal, si ce n'est que à chaque fois ça met un protection.
Mais avec le peux de connaissance que j'ai en VBA je vais essayer de m'en sortir
Encore merci et une bonne nouvelle année

 

[Arcangeli]

Re : Problème ajout ligne VBA

Désolé tototiti2008
Le code que tu m'a donné est parfait.
C'est moi qui fait une érreur en le recopiant.
Encore de bonnes fêtes