ajout de ligne bas de tableau

[cora]

Bonjour à tous,

J'ai créé un bouton pour ajouter une ligne à mon tableau. J'ai associé une macro qui recopie les formules de la ligne précédente. Le problème est que je ne sais pas comment indiquer qu'il faut insérer la ligne à la fin de tableau et non plus en A8:I8
Voici ma macro

Merci de votre aide

Sub insérer()
'
' insérer Macro
'

'
Range("A8:I8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C8").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,MONTH(RC[-2]),"""")"
Range("A8").Select
End Sub

 

[Lolote83]

Re : ajout de ligne bas de tableau

Salut, essaye comme cà. Non testé

Sub insérer()
Dim xDerLig As Long
xDerLig = Range("A65536").End(xlUp).Row
Range("A" & xDerLig & ":I" & xDerLig).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("C" & xDerLig).Select
ActiveCell.FormulaR1C1 = "=IF(RC[-2]>0,MONTH(RC[-2]),"""")"
Range("A" & xDerLig).Select
End Sub

@+ Lolote83

 

[cora]

Re : ajout de ligne bas de tableau

Non elle insère une ligne à l'avant dernière ligne du bas

 

[Efgé]

Re : ajout de ligne bas de tableau

Bonjour cora, Lolote83
Une proposition au plus simple:

Sub insérer_2()
Dim xDerLig As Long
Application.Calculation = xlCalculationManual
xDerLig = Range("C65536").End(xlUp).Row
Range("A" & xDerLig & ":I" & xDerLig).Copy Range("A" & xDerLig + 1)
Range("A" & xDerLig + 1 & ":I" & xDerLig + 1).ClearContents
Range("C" & xDerLig + 1).FormulaR1C1 = "=IF(RC[-2]>0,MONTH(RC[-2]),"""")"
Application.Calculation = xlCalculationAutomatic
End Sub

Mais si tu utilise une liste, les formules s'incrémenteront toutes seules (sous 2003 Selectionne ton tableau, Menu Données / Liste / Créer une liste)
Cordialement

 

[Lolote83]

Re : ajout de ligne bas de tableau

Re salut
Désolé, j'ai oublié le +1 à la fin de cette ligne.
Donc c'est celle ci la bonne
xDerLig = Range("A65536").End(xlUp).Row+1
@+ Lolote83

 

[cora]

Re : ajout de ligne bas de tableau

Merci Efgé, c'est la bonne macro

Merci encore

 

[Misange]

Re : ajout de ligne bas de tableau

Bonjour Cora

Sais tu qu'avec l'option tableau dans excel 2007 cela se fait TOUT seul, dès que tu ajoutes une données dans la première ligne vide sous le tableau ? Autant utiliser les outils intégrés 🙂
onglet accueil/style/mettre sous forme de tableau n'est pas là seulement pour faire des alternances de bandes de couleur...
Ce lien n'existe plus