insertion de ligne

[rudy dehaudt]

bonjour a tous,
j aurai souhaiter quand b35 une ligne s ajoute si toute les autres sont remplie
??
A+

 

[Roland_M]

Re : insertion de ligne

bonjour

si je puis me permettre il aurait était plus simple de placer ta liste
en dernier pour avoir toute la place que tu souhaites sans insertion !?

EDIT: je veux sous Remarque du SAV distributeur

 

[rudy dehaudt]

Re : insertion de ligne

en effet roland M cela aurai été plus simple c est surement pour cela que j ai fait autrement ( plus serieusement je recopie pile poils un logiciel que j utilise aux boulot sous excels )

j ai tenté d ajuster ce code en viens ?


Private Sub Worksheet_Change(ByVal Target As Range)
'-------------------------------------------------
' Insertion ligne automatique
'-------------------------------------------------

If Target.Address <> Range("A65536").End(xlUp).Address Then Exit Sub
If Target = "" Then Exit Sub
Dim T
Application.ScreenUpdating = False
Application.EnableEvents = False ' pour ne pas se mordre la queue
T = Target.Value 'mémorise la valeur
Rows(66).Copy Target.EntireRow.Resize(2) 'copie la ligne 2 et colle sur 2 lignes
Union(Target.Resize(, 16), Target.Offset(1).EntireRow).ClearContents
Target = T
Application.EnableEvents = True

End sub

 

[rudy dehaudt]

Re : insertion de ligne

en effet dans le fichier parfois sa ne tourne pas ???

 

[rudy dehaudt]

Re : insertion de ligne

bonjour a tous comme ça ne tourne pas comme il faut j ai fait se qui suis :


cellule nommer B39 premiereCelluleApresTableau


Private Sub Worksheet_Change(ByVal Target As Range)
' 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 Sub

le code coller dans la feuille " bon de commande 1 "

mais malgré tous j ai une erreur de nom ambigu ??? je suis avec excels 2000
ça ne doit pas être grand chose mais je n y arrive pas !!
quand penser vous ?

A+

 

[rudy dehaudt]

Re : insertion de ligne

nouvelle tentative avec cette façon:

Sub copielignes()

Application.ScreenUpdating = False
monNombre = 1
ActiveSheet.Select

Range("NBLIGNES").Activate 'NBLIGNES doit être nommé dans une cellule de la feuille
Selection.FormulaR1C1 = 1

Counter = ActiveCell.Value
While Counter > 0

Application.Goto Reference:="ligne_ref" 'Cette ligne doit être la dernière, elle doit être cachée et nommée ligne_ref
Selection.Insert Shift:=xlDown
Application.Goto Reference:="ligne_ref"
Selection.Copy
ActiveCell.Offset(-1, 0).Range("A1").Select
ActiveSheet.Paste
Selection.EntireRow.Hidden = False
ActiveCell.Select

Counter = Counter - 1

Wend
Application.ScreenUpdating = True
Application.CutCopyMode = False

End Sub

malgré tout et rien que pour m'en.... quand je clique pour inserer j encore une erreur ???