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

Microsoft 365 Ajouter ouvrage dans excel avec bouton

V

vince6941

XLDnaute Nouveau
Bonjour à tous,

Je suis complètement débutant dans excel.
J'ai voulu créer un fichier d'étude de projet pour mon entreprise... Mais c'est plus facile d'y penser que de le faire!

Je voudrais qu'en cliquant sur un bouton "ajouter ouvrage", ça ajoute automatiquement un copier coller de l'ouvrage vierge à la suite l'un de l'autre. En gardant les formules...
J'ai réussi à faire une macro copier coller, mais je n'arrive pas à l'ajouter à la suite des ouvrages déjà créés... J'ai cherché et cherché, mais ça dépasse mes compétences.

Est-ce que quelqu'un peut m'aider?
Je vous joint moi fichier.

D'avance un grand merci!

Vince
 

Pièces jointes

  • EtudePrix_Forum.xlsx
    15.3 KB · Affichages: 10
Trier par date Trier par votes
I

i20100_

XLDnaute Nouveau
Bonjour,

pour copier les nouvelles lignes à la suite l'un de l'autre il faut trouver d'abord la dernière ligne remplie.
c'est difficile à trouver avec ton exemple. il y aura t'il une plage de cellule sur une colonne qui sera entièrement renseignée ?

en ajoutant un espace en cellule A18, on peut trouver la dernière cellule de la colonne A
par exemple:

VB: 
Sub test_copie()
Dim LastRow As Long
LastRow = Sheets("Chauffage").Cells(Rows.Count, 1).End(xlUp).Row + 1
Rows("15:18").Copy Range("A" & LastRow)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour Vince, i20100,
Une tentative en PJ. Les cellules A16:A18 doivent être remplies pour trouver le fin de tableau, j'y ai mis des formules qui duplique A15.
VB: 
Sub Duplique()
    Application.ScreenUpdating = False
    DL = 1 + Sheets("Chauffage").Range("A65500").End(xlUp).Row
    Rows("15:18").Copy
    Range("A" & DL).Select: ActiveSheet.Paste
    [A13].Select
End Sub
 

Pièces jointes

  • EtudePrix_Forum.xlsm
    21.2 KB · Affichages: 7
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

B
  • Question
Microsoft 365 Alimenter combobox et ajouter la valeur si non inscrit dans la liste
Réponses
5
Affichages
544
sousou
G
  • Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
545
Dranreb
L
  • Question
Microsoft 365 Macro choisir onglet à exporter dans un nouveau classeur
Réponses
5
Affichages
677
l.et.lilou
L
L
  • Question
Microsoft 365 Ajouter mes références à ma facture automatiquement avec un bouton
Réponses
13
Affichages
718
Le M
L
S
  • Résolu(e)
XL 2019 Couper coller une ligne d'une feuille1 vers feuille2 grâce à un bouton ou case à cocher
Réponses
6
Affichages
860
sylvanu
R
  • Question
XL 2019 Ajouter des colonnes dans plusieurs feuilles avec les données en dynamique (Mise en page et données)
2
Réponses
24
Affichages
1 K
ryfalcon
R
P
  • Question
XL 2016 Mise en place d'une étude hebdomadaire des remarques 5S - Bascule d'information entre 3 fichiers
Réponses
10
Affichages
1 K
gbinforme
G
E
  • Question
Microsoft 365 Macro pour ajouter des lignes copiées ?
Réponses
5
Affichages
554
sylvanu
Y
  • Question
Microsoft 365 Problème de dernière ligne dans un tableau
2
Réponses
19
Affichages
2 K
Cousinhub
D
  • Résolu(e)
XL 2019 VBA - Copier Coller d'un fichier A vers fichier B
Réponses
2
Affichages
613
drizzydunck
D
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…