Insertion ligne automatique répétition texte et formule de ligne masquée

[Barbapapa]

Bonjour à tous, j'ai trouvé sur ce forum un code qui me convient en partie pour insérer une ligne automatiquement dans un tableau. J'aimerai que ce code soit modifié pour que la ligne insérée contienne le texte et la formule qui se trouve dans une ligne masquée.
J'ai joint un fichier avec des explications plus précise de ma demande.
Merci d'avance.
Amicalement
Frédéric

 

[Dranreb]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Bonsoir
Comme ça peut être :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Me.[G:G], Target) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Application.EnableEvents = False
Rows(Target.Row + 1).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
Rows(Target.Row + 1).Hidden = False
Application.EnableEvents = True
End Sub

À +

 

[Barbapapa]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Merci Dranreb, cela fonctionne très bien. Par contre comment fait on (sous excel 2000) pour que le scintillement du copier ne se voit pas. J'ai vu des solutions sur ce forum pour cela mais ça ne fonctionne pas avec mon fichier.

 

[Dranreb]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Application.ScreenUpdating = False devrait améliorer les choses

 

[Barbapapa]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Bonjour Dranreb, merci de me répondre à nouveau, mais je ne sais pas où il faut insérer ce code. J'ai essayé différents endroits mais rien ne se passe. Je suis débutant...

 

[Dull]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Salut Barbapapa, Bernard, le Forum

Insère cette ligne juste au dessus de Application.EnableEvents = False

Bonne Journée

 

[Barbapapa]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Bonjour Dull, merci de m'aider mais j'ai essayé de faire ce que tu m'as dis mais ça ne fonctionne pas, il doit y avoir une raison mais laquelle? 🙂

 

[Dull]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Re le fil

Il faut ajouter un Application.CutCopyMode=False

Ci-joint le code de Dranreb modifié

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Me.[G:G], Target) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows(Target.Row + 1).Copy
Rows(Target.Row + 1).Insert Shift:=xlDown
Application.CutCopyMode = False
Rows(Target.Row + 1).Hidden = False
Application.EnableEvents = True
End Sub

Bonne Journée

 

[Barbapapa]

Re : Insertion ligne automatique répétition texte et formule de ligne masquée

Merci Dull, ça fonctionne très bien. Je te souhaite une bonne journée ainsi qu'à tout les autres !
Frédéric