Insertion automatique d'une ligne

P

PAD

XLDnaute Occasionnel

• 6 Avril 2006

• #2

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]

 

Pièces jointes

• Anber.zip

  10.2 KB · Affichages: 52
• Anber.zip

  10.2 KB · Affichages: 59
• Anber.zip

  10.2 KB · Affichages: 66

Vote positif 0 Vote négatif

A

anber

XLDnaute Occasionnel

• 6 Avril 2006

• #3

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Avril 2006

• #4

Bonsoir,

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

 

Vote positif 0 Vote négatif

P

PAD

XLDnaute Occasionnel

• 6 Avril 2006

• #5

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]

 

Pièces jointes

• AnberN2.zip

  10.2 KB · Affichages: 59

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Avril 2006

• #6

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

 

Vote positif 0 Vote négatif

A

anber

XLDnaute Occasionnel

• 6 Avril 2006

• #7

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

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 6 Avril 2006

• #8

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 :

Code:

Activecell.entirerow.insert

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 6 Avril 2006

• #9

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

A

anber

XLDnaute Occasionnel

• 7 Avril 2006

• #10

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

 

Vote positif 0 Vote négatif

A

anber

XLDnaute Occasionnel

• 11 Avril 2006

• #11

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]

 

Pièces jointes

• New_copy.zip

  8.1 KB · Affichages: 68

Vote positif 0 Vote négatif

A

anber

Guest

• 12 Avril 2006

• #12

Bonjour le forum,

Probleme résolu

Merci

 

Vote positif 0 Vote négatif