Ajout ligne MACRO

[julienlar]

Bonjour à tous,

Je bloques sur une macro dans le bût d'ajouter une ligne à mon document.

Le principe est le suivant :
- Ajouter une ligne sous la cellule sélectionné,
- Copier les fonctions (Cellule blanche) de calcul de la ligne supérieure (cellule d'origine),
- Laisser vide les cellules jaunes,
- Remettre les liste déroulantes (Cellule rose) sur le tiret

J'arrives à faire cette action complète seulement l'action se situe toujours depuis la même cellule.

Ci-joint mon fichier.

Merci d'avance à tous.

Julien

 

[TempusFugit]

Re : Ajout ligne MACRO

Bonjour

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

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

 

[julienlar]

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.

 

[TempusFugit]

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 ?

 

[julienlar]

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.

 

[TempusFugit]

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.

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

 

[julienlar]

Re : Ajout ligne MACRO

Voiçi mon nouveau fichier.

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

Slts.

 

[TempusFugit]

Re : Ajout ligne MACRO

Il suffit d'adapter ainsi non ?

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

 

[TempusFugit]

Re : Ajout ligne MACRO

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

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

 

[julienlar]

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.

 

[lry]

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.

 

[Pierrot93]

Re : Ajout ligne MACRO

Bonjour,

peut être en supprimant ce test :

If ActiveCell.Column = 2 Then

n'oublie pas non plus de supprimer le :

End If

bonne journée
@+

 

[lry]

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.

 

[Pierrot93]

Re : Ajout ligne MACRO

Re,

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

 

[lry]

Re : Ajout ligne MACRO

Voici un fichier avec les explications.
Merci d'avance