Rajout de lignes

Bonjour,

Je voudrais associer une macro a un bouton (déjà créé) pour rajouter une ligne en fin de tableau (dans les feuilles janvier, février, mars et avril) tout en gardant les formules.

Je n'y connais en VBA, mais j'ai essayé plusieurs macros trouvé sur le forum mais ça ne fonctionne pas comme je veux.

Je joints le tableau en espérant avoir été assez clair.

Merci, cordialement.

Salut,

Une petite piste pour simplifier ce que tu veux faire, mais sans utiliser de macro : tu peux transformer ton tableau en tableau de données (Insérer/Tableau). Pour ajouter une ligne il te suffira ensuite de saisir en dessous du tableau (ou te mettre sur la dernière cellule et appuyer sur tabulation).

Pour garder une mise en forme similaire, tu peux le personnaliser dans l'onglet création (lignes à bande, style,...).

@+

Merci, mais je souhaite vraiment passer par un bouton.

Cdlt.

Dans ce cas, voici la macro :

Sub newLine()
    ' on recupère la dernière ligne
    ' (saisir "fin de tableau" juste en dessous du tableau)
    Dim lastLine As Integer
    lastLine = ActiveSheet.Range("b10000").End(xlUp).Row - 1

    ' on copie et insère la dernière ligne
    ActiveSheet.Rows(lastLine).Copy
    ActiveSheet.Rows(lastLine + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

C'est la même pour tous les mois, donc modifie les boutons pour pointer sur newLine.

Ajoute dans la cellule juste en dessous du tableau un texte ("fin de tableau" dans l'exemple, mais cela peut aussi être un espace vide " ").

Après il faudra penser à supprimer les informations (on duplique la dernière ligne).

@+

Re bonjour,

ça ne fonctionne pas ... je joints les message d'erreur et la fenêtre débogage.

Merci.

Quelle version d'excel ?

Essaie avec le fichier joint, j'ai testé (sur AVRIL) ça fonctionne (Excel 2016)

VERSION 2016.

J'ai toujours le même bug ?

Merci.

Bizarre...

Essaie de supprimer les mises-en-formes conditionnelles...

Ça ne change rien. Merci quand même !!!

Cdlt.

Tu as moyen de tester sur un autre PC ? Pas sûr que le problème viennent du fichier...

Testé sur un deuxième PC (excel 2016 aussi) et même PB.