Macro pour rajouter des lignes dans un tableau

[pierre56]

Bonjour à tous,

Je suis entrain de créer un tableau pour les intérimaires de la société et j'ai un petit soucis avec mon tableau car je souhaiterais lorsque j'appuie sur un bouton que se rajoute une dizaine de lignes à la fin de mon tableau,c'est à dire après la dernière ligne complétée tout en gardant les formules dans les cellules spécifiées.

Ci joint le fichier sur lequel je travaille.

Merci d'avance

 

[TempusFugit]

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)

 

[TempusFugit]

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)

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

 

[pierre56]

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

 

[TempusFugit]

Re : Macro pour rajouter des lignes dans un tableau

Alors essaies avec cette modification

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

 

[pierre56]

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.

 

[TempusFugit]

Re : Macro pour rajouter des lignes dans un tableau

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

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

 

[pierre56]

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.

 

[pierre56]

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

 

[TempusFugit]

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

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

 

[pierre56]

Re : Macro pour rajouter des lignes dans un tableau

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

 

[TempusFugit]

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.

 

[pierre56]

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