Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

copier et coller la dernière ligne d'une plage

  • Initiateur de la discussion Initiateur de la discussion pitchoune85
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

pitchoune85

Guest
bonjour
j'aimerai créer un bouton permettant de repérer la dernière ligne d'une plage nommé 'ecole', de coller cette dernière ligne (mise en forme mais vide) et la coller juste au dessus de cette dernière afin qu'elle soit prise en compte dans ma plage 'ecole'
je ne sais pas si j'ai été très claire mais je débute et ce fait deux soirs que je me couche à 3 h du mat et je galère grave
merci de votre soutien
 
Bonsoir visiteur,
est-ce que ce bouton te conviendrait?

Bonne nuit [file name=ecole.zip size=8889]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ecole.zip[/file]
 
Dernière édition:
Bonsoir pitchoune85, Jacou,

Si l'exemple ci-joint peut te dépanner...

J'ai utilisé la procédure ci-dessous :
Cordialement, [file name=PourPitchoune85.zip size=9839]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/PourPitchoune85.zip[/file]
 

Pièces jointes

Merci pour ton aide
en effet ça fonctionne bien dans ton exemple.
Entre temps, en fouillant sur le web et notamment excelabo, j'avias trouvé la solution suivante :

Sub NouvelleLigneEnDessous()
Columns(1).Find('*', , , , , xlPrevious).Offset(1, 0).Select
' Insère une ligne sous la ligne qui contient la cellule active
' et y recopie les formules qu'elle contient
Dim ZtNumLig As Integer
Dim ZtDerCol As Integer
Dim i
ActiveCell.Range('A2').EntireRow.Insert
ZtNumLig = ActiveCell.Row
ZtDerCol = ActiveCell.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(ZtNumLig, 1), Cells(ZtNumLig, ZtDerCol)).Copy _
Range(Cells(ZtNumLig + 1, 1), Cells(ZtNumLig + 1, ZtDerCol))
Application.ScreenUpdating = False
For i = 1 To ZtDerCol
If Not Cells(ZtNumLig + 1, i).HasFormula Then
Cells(ZtNumLig + 1, i).ClearContents
End If
Next i
ActiveCell.Range('A2').Select
End Sub

Je n' ai rien compris à la macro, mais ca marche alors c'est super. 😛
merci tout de même
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Tableau
Réponses
24
Affichages
1 K
Réponses
10
Affichages
674
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…