Insertion automatique d'une ligne

[anber]

Bonsoir,

Je souhaiterai inserer une ligne après avoir renseigné la précédente en recopiant le format et les formules

Merci [file name=Test_20060406183236.zip size=4729]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Test_20060406183236.zip[/file]

[PAD]

Salut Anber,

C'est bon comme ça



A+ PAD [file name=Anber.zip size=10472]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Anber.zip[/file]

[anber]

Bonsoir Pad,

Merci pour ta réponse,

C'est une ébauche, je ne veux pas des valeurs, il me faudrait que la mise en forme et les formules.
Et ... sans bouton incrément auto

Merci

[Dan]

Bonsoir,

Ok pour l'automatique mais la macro est déclenchée par quoi ?

[PAD]

Re Anber,
Bonsoir Dan,

Oups, excuse-moi Anber, je crois qu'il y a une erreur sur le fichier n°1,
Donc un 2éme,

A+ PAD [file name=AnberN2.zip size=10472]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/AnberN2.zip[/file]

[Dan]

Bonsoir,

La différence c'est quoi entre les deux fichiers ? et si tu ne veux pas de bouton --> même question que celle placée avant

[anber]

Bonsoir PAD, DAN

PAD pad vu de différence entre tes 2 fichiers, le plantage est pas grave, juste une histoire de nom de fichier.
Ce que je souhaite c'est que ca se déclenche sans bouton, j'ai essayé avec une macro Private et selection_change, j'ai pas encore la finalité

Merci encore

[Dan]

Re,

Avec private sub selection change, ta macro se déclenchera chaque fois que tu te déplaceras dans ta feuille. Est-ce cela que tu veux ?

Sinon essaie ce code :

Activecell.entirerow.insert

[Robert]

Bonsoir le fil, bonsoir le forum,

Anber je te propose la macro événementielle suivante qui se déclenche au changement dans la colonne B. Tu dis que la colonne A est toujours éditée mais je pense que c'est le contraire justement, car elle contient une formule et si tu édites dedans tu perds la formule. C'est pour cela que j'ai pris la colonne B comme base. Tu adapteras si nécessaire :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim VD As Variant 'déclare la variable VD (Valeur Départ)
Dim test As Boolean 'déclare la variable test

On Error Resume Next 'gestion des erreurs : en cas d'erreur passe la la ligne suivante

'conditions : si le changement n'intervient pas dans la colonne B ('à adapter)
'ou si la cellule de la ligne correspondante en colonne A n'est pas vide
'ou si le changement à lieu dans les deux premières lignes
'sort de la procédure
If Target.Column DIFFÉRENT_DE 2 Or Target.Offset(0, -1).Value DIFFÉRENT_DE '' Or Target.Row>3 Then Exit Sub

If test = True Then Exit Sub 'condition : si la variable test est 'VRAI', sort de la procédure
test = True 'définit la variable test
VD = Target.Value 'définit la variable VD
'copie les cellules du dessus
Target.Offset(-1, -1).Range('A1:G1').Copy Destination:=Target.Offset(0, -1)
Target.Value = VD 'replace la valeur de Départ dans le cellule
Target.Offset(0, 1).Range('A1:E1').ClearContents 'efface les autres cellules
test = False 'redéfinit la variable test
End Sub

Remplace DIFFÉRENT_DE par les deux symboles consécutifs Inférieur, Supérieur qui ne passent toujours pas dans ce forum...

Place cette macro dans ton fichier puis édite la cellule B3... Les problèmes de cette macro sont que rien ne se passe si tu édites un cellule deux lignes en dessous de la dernière et qu'il te faut toujours la ligne 2 contenant formats et formule comme référence...

Message édité par: Robert, à: 06/04/2006 23:44

[anber]

Bonjour Robert, Dan


Robert c'est bien ce genre de code que je cherche, effectivement c'est la colonne B dans l'exemple (A dans mon original)

Encore merci

Cordialement

[anber]

Bonjour Robert, le forum

Robert j'ai quelques pb à adapter ton code,les formules et mise en forme suivent bien, mais les valeurs de la ligne précédente aussi. Ce qui voudrait dire que l'on ne conserve pas la ligne 2 comme référence

Merci par avance

Cordialement [file name=New_copy.zip size=8252]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/New_copy.zip[/file]

Bonjour le forum,

Probleme résolu

Merci