insertion automatique d'une ligne avec formule

[jeromeN95]

Bonjour à tous,


Je souhaite inserer une ligne automatiquement lorsque je rempli la derniere ligne vierge de mon tableau.
Ca, ca marche a peu prés....
Mais il ne recopi pas les fomules de la colone Q et P...

Quelqu'un a une solution dans ses archives???

Merci pour les potions magiques et bonne journée à tous...🙂

 

[mth]

Re : insertion automatique d'une ligne avec formule

Bonjour,

Difficile de te répondre sans voir le code et un extrait de fichier, mais, à tout hasard ... peut-être une faute d'orthographe qui traîne ? 😉

@ +

 

[jeromeN95]

Re : insertion automatique d'une ligne avec formule

Voici mon début de code :

'insert les lignes vierges !
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A13:A1233")) Is Nothing Then
If Target.Value <> "" Then
Cells(Target.Row, 3).Value = Format(Now, "hh:mm:ss")

' teste si la cellule juste au dessus est remplie
If Range("premiereCelluleApresTableau").Offset(-1) <> "" Then
' ajoute une ligne - la ligne s'insère au dessus
Application.EnableEvents = False ' pour ne pas se mordre la queue
Range("premiereCelluleApresTableau").EntireRow.Insert xlShiftDown
Application.EnableEvents = True
End If
End If
End If

End Sub

 

[jeromeN95]

Re : insertion automatique d'une ligne avec formule

personne pour ce pb?

 

[mth]

Re : insertion automatique d'une ligne avec formule

bonsoir,

Il manque l'instruction pour copier/coller les formules.
Tu peux essayer avec l'enregistreur de macros ? il te donnera une indication de code à ajouter au tien.

Bonne soirée,

mth