Ajout ligne MACRO

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #2

Re : Ajout ligne MACRO

Bonjour

Essaies cette macro
Sélectionne une cellule en colonne B puis lances la macro

Code:

Sub Macro1()
ActiveCell.EntireRow.Insert
Range("B" & ActiveCell.Row & ":S" & ActiveCell.Row).FillDown
End Sub

 

Vote positif 0 Vote négatif

J

julienlar

XLDnaute Nouveau

• 24 Octobre 2011

• #3

Re : Ajout ligne MACRO

Rebonjour,

Merci de ton aide. La macro que tu me proposes me permet d'insérer correctement une nouvelle ligne.

Cependant cette nouvelle ligne est la copie que celle d'origine. Je souhaiterais que les valeurs des cellules jaunes soient vides, celles en rose soit sur la valeur du tiret, les cases en blanc doivent conserver la fonction de calcul.

Merci.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #4

Re : Ajout ligne MACRO

Normalement la macro recopie ce qu'il y au dessus la nouvelle ligne
(donc le format et les formules sont recopiées)

Ce n'est pas ce que tu voulais ?

 

Vote positif 0 Vote négatif

J

julienlar

XLDnaute Nouveau

• 24 Octobre 2011

• #5

Re : Ajout ligne MACRO

Enfaite, je me suis mal exprimé.

L'insertion marche nickel. Il faudrait que le format et les formules qui soient recopié provienne d'une ligne type qui sera masqué en référence B2 U2

Et je souhaiterais rajouter un autre macro pour supprimer une ligne sélectionnée.

Merci beaucoup pour ton soutient.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #6

Re : Ajout ligne MACRO

En B2:U2, il ya déjà ton titre ....

Et je souhaiterais rajouter un autre macro pour supprimer une ligne sélectionnée.

Cliquez pour agrandir...

Il te sufffit de supprimer une ligne sélectionnée tout en laissant tourner l'enregistreur de macros pour ensuite disposer du code VBA équivalent à cette manipulation.

Ce qui devrait de donner un truc du genre
ActiveCell.EntireRow.Delete

 

Dernière édition: 24 Octobre 2011

Vote positif 0 Vote négatif

J

julienlar

XLDnaute Nouveau

• 24 Octobre 2011

• #7

Re : Ajout ligne MACRO

Voiçi mon nouveau fichier.

Avec ma ligne type, cette ligne doit être copié sur mes nouvelles lignes

Slts.

 

Pièces jointes

• Note de calcul PDC HYDRAULIQUE V2.xls

  82 KB · Affichages: 2 586

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #8

Re : Ajout ligne MACRO

Il suffit d'adapter ainsi non ?

Code:

Sub Macro1()
ActiveCell.EntireRow.Insert
Range("B2:U2").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #9

Re : Ajout ligne MACRO

Par sécurité, utilises plutot cette version modifiée

Code:

Sub Macro1()
If ActiveCell.Column = 2 Then
ActiveCell.EntireRow.Insert
Range("B2:U2").Copy
ActiveCell.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Else
Exit Sub
End If
End Sub

 

Vote positif 0 Vote négatif

J

julienlar

XLDnaute Nouveau

• 24 Octobre 2011

• #10

Re : Ajout ligne MACRO

En effet, ton second code est plus sécurisant pour l'utilisateur.

Je te remercie pour ton aide, mon document est presque finalisé.

Merci.

 

Vote positif 0 Vote négatif

L

lry

XLDnaute Nouveau

• 20 Février 2013

• #11

Re : Ajout ligne MACRO

J'aimerais une petite adaptation.

Avec la macro de TempusFugit, il faut être sur la colonne B pour pouvoir utiliser la macro. J'aimerais pouvoir utiliser la macros quelque soit la cellule sélectionné (pas uniquement une cellule de la colonne B).
La macro peut insérer toute la ligne 2 si nécessaire.

Merci d'avance de votre aide.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Février 2013

• #12

Re : Ajout ligne MACRO

Bonjour,

peut être en supprimant ce test :

Code:

If ActiveCell.Column = 2 Then

n'oublie pas non plus de supprimer le :

Code:

End If

bonne journée
@+

 

Vote positif 0 Vote négatif

L

lry

XLDnaute Nouveau

• 20 Février 2013

• #13

Re : Ajout ligne MACRO

Bonjour Pierrot et merci.
Il y a de l'idée mais cela ne marche pas comme je souhaite. La ligne s’insère mais se retrouve décalé en fonction de la position de la cellule active.
Il me faudrait copier la ligne en respectant les colonnes.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 20 Février 2013

• #14

Re : Ajout ligne MACRO

Re,

pas tout compris... peut être qu'un petit fichier nous aiderait à t'aider...

 

Vote positif 0 Vote négatif

L

lry

XLDnaute Nouveau

• 21 Février 2013

• #15

Re : Ajout ligne MACRO

Voici un fichier avec les explications.
Merci d'avance

 

Pièces jointes

• Note de calcul PDC HYDRAULIQUE -Modif.xlsm

  48.8 KB · Affichages: 100

Vote positif 0 Vote négatif