Discussion :

[antares92]

Bonjour,

Je cherche en transcrire en macro, une fonction qui permet :
- de copié la dernière ligne écrite du tableau
- puis insertion d'une ligne complète à la suite de la dernière ligne
- et enfin collé le premier point.

Tout ce que j'ai réussi à faire jusqu'à présent c'est de planter excel

Merci de votre aide !

[Igloobel]

Bonjour,

Je pige pas le but de la manoeuvre

quand tu as un tableau structuré et qu'à la fin de ton tableau tu copies ton premier point directement en dessous la ligne supplémentaire se crée automatiquement

donc ...

ton tableau est-il structuré ?

[antares92]

Oui j'ai un tableau structuré dans le quel je doit mettre des données chaque jour.

Actuellement il y a une macro qui travaille pour remplir le tableau de donnée (par l'intermédiaire de boite de dialogue).
Ce que je veux juste c'est qu'a la fin de cette saisie, il prépare la session du lendemain en copiant la ligne du jour juste en dessous.

Par la suite, la macro est prévu pour repartir et de supprimer les cellules qui devront être remplis le lendemain

Je ne sais pas si je suis clair.

Merci

[BENNASR]

Bonsoir
essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim i As Long
i = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'attention au nom de ton onglet ici c'est FEUIL1 : à adapter si nécessaire
Rows(i + 2).Insert
ActiveSheet.ListObjects("Tableau1").Resize Range("A1:C" & i + 2) 'ici le tableau allant de la colonne A à la colonne C : à adapter si nécessaire
Rows(i).Copy Rows(i + 2)
End Sub

[antares92]

J'ai une erreur

exécution 9
l'indice n'appartient pas à la sélection

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Long
i = Sheets("feuil4").Range("A" & Rows.Count).End(xlUp).Row 'attention au nom de ton onglet ici c'est FEUIL1 : à adapter si nécessaire
Rows(i + 2).Insert
ActiveSheet.ListObjects("tableau2").Resize Range("A1:AD" & i + 2) 'ici le tableau allant de la colonne A à la colonne C : à adapter si nécessaire
Rows(i).Copy Rows(i + 2)

Il y a juste tableau2 : je ne sais pas quoi mettre ici (j'ai nommé une sélection tableau 2 qui représente la dernière ligne.

Et Le logiciel rame énormément en plus pendant l'exécution de cette partie

Merci beaucoup de votre aide

[BENNASR]

bonsoir
t'es sur que ton tableau est structuré??
pour insérer un tableau structuré tu te positionne sur la cellule A1 par exemple et onglet : insertion / tableau
si c'est le cas clic dans ton tableau et tu aura un nouveau onglet nommé création
clic la bas et voir à gauche : nom du tableau
voila comme pièce jointe un exemple de tableau structuré
si tu trouves pas et vraiment nécessaire joindre une copie légère de ton classeur avec 4 à 5 lignes de données fictives

Pour le cas d'un tableau non structuré

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub test()
Dim i As Long
i = Sheets("Feuil1").Range("A" & Rows.Count).End(xlUp).Row 'attention au nom de ton onglet ici c'est FEUIL1 : à adapter si nécessaire
Rows(i + 2).Insert
Rows(i).Copy Rows(i + 2)
End Sub