Macro pour rajouter des lignes dans un tableau

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #2

Re : Macro pour rajouter des lignes dans un tableau

Bonjour

Juste pour te dire que tu peux supprimer sans problème
toutes ces lignes commençant par
ActiveWindow.ScrollRow

(Elles sont générées par l'enregisteur de macros et ne servent à rien d'utile pour le déroulement de ta macro)

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #3

Re : Macro pour rajouter des lignes dans un tableau

Bonjour de nouveau


Essaies cette macro
Cela recopie la ligne 2
dans les cellules du dessous jusqu'en ligne 10
(Cela correspond au raccourci :CTRL+B)

Code:

Sub Macro1()
Range("A2:AO10").FillDown
End Sub

 

Vote positif 0 Vote négatif

P

pierre56

Guest

• 25 Octobre 2011

• #4

Re : Macro pour rajouter des lignes dans un tableau

Merci TempusFugit c'est à peu près celà que je souhaite mais je voudrais qu'à chaque fois que j'appuie sur le bouton 10 lignes se rajoute à la fin du tableau alors qu'avec ta méthode les lignes ne se rajoutent qu'une seule fois

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #5

Re : Macro pour rajouter des lignes dans un tableau

Alors essaies avec cette modification

Code:

Sub Macro2()
Dim derlig As Long
derlig = [Y65536].End(xlUp).Row
Range("A" & derlig).Resize(11, 41).FillDown
End Sub

 

Vote positif 0 Vote négatif

P

pierre56

Guest

• 25 Octobre 2011

• #6

Re : Macro pour rajouter des lignes dans un tableau

Le problème avec la macro2 est que celà me rajoute des lignes à la fin comme je souhaite mais celà recopie également les valeurs des champs alors que je voudrais des champs vides(données saisies) et conserver les formules du tableau(champs calculés) comme montré sur mon exemple.

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 25 Octobre 2011

• #7

Re : Macro pour rajouter des lignes dans un tableau

Essaie ceci alors
(Fais le test sur une copie de ton fichier original)

Code:

Sub Macro3()
Dim derlig As Long, derlig2 As Long
derlig = [Y65536].End(xlUp).Row
Range("A" & derlig).Resize(11, 41).FillDown
derlig2 = [Y65536].End(xlUp).Row
Range("A" & derlig2 - 9).Resize(10, 41).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

 

Vote positif 0 Vote négatif

P

pierre56

Guest

• 25 Octobre 2011

• #8

Re : Macro pour rajouter des lignes dans un tableau

Merci beaucoup TempusFugit. Celà correspond bien à ce que je souhaitais au départ.
Merci de m'avoir consacré de ton temps. Bonne journée.

 

Vote positif 0 Vote négatif

P

pierre56

Guest

• 26 Octobre 2011

• #9

Re : Macro pour rajouter des lignes dans un tableau

Bonjour TempusFugit, j'ai un soucis avec la macro que tu m'a aidé à créer hier. Elle fonctionnait correctement hier en créant des lignes à la fin du tableau mais aujourd'hui lorsque je l'exécute celà me crée des lignes vides au milieu de mon tableau.
Pourrais-tu m'expliquer ton code pour que j'essaye de le modifier.

Ci joint le fichier Excel qui lorsqu'on appuie sur le bouton crée des lignes au milieu(en l'occurence ligne 28)

Merci d'avance

 

Dernière modification par un modérateur: 26 Octobre 2011

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 26 Octobre 2011

• #10

Re : Macro pour rajouter des lignes dans un tableau

Bonjour

Mets une autre version de ton fichier
(sans données confidentielles)

Dans ton dernier fichier, les noms et prénoms apparaissent.

Modifies comme ci-dessous

VB:

Private Sub CommandButton1_Click()
Dim derlig As Long, derlig2 As Long
derlig = [A65536].End(xlUp).Row ' dernière cellule non vide en colonne A
Range("A" & derlig).Resize(11, 41).FillDown 'équivalent d'un CTRL+B
derlig2 = [A65536].End(xlUp).Row 'nouvelle dernière cellule non vide en colonne A
'effacement des cellules sans formules
Range("A" & derlig2 - 9).Resize(10, 41).SpecialCells(xlCellTypeConstants).ClearContents
End Sub

 

Dernière édition: 26 Octobre 2011

Vote positif 0 Vote négatif

P

pierre56

Guest

• 26 Octobre 2011

• #11

Re : Macro pour rajouter des lignes dans un tableau

Ok autant pour moi je n'y ai pas pensé.
Voici le fichier sans nom:

 

Pièces jointes

• INTERIM.xls

  171.5 KB · Affichages: 102
• INTERIM.xls

  171.5 KB · Affichages: 102
• INTERIM.xls

  171.5 KB · Affichages: 104

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 26 Octobre 2011

• #12

Re : Macro pour rajouter des lignes dans un tableau

Tu as vu la modifiaction du code dans mon précédent message ?


Post-scriptum: C'est mieux ne pas multiplier les discussions pour une même question.

 

Vote positif 0 Vote négatif

P

pierre56

Guest

• 26 Octobre 2011

• #13

Re : Macro pour rajouter des lignes dans un tableau

Oui c'est bon j'ai regardé et celà fonctionne.
Merci beaucoup. Bonne journée
A + tard

 

Vote positif 0 Vote négatif