Excel VBA dupliquer sur dernière cellule vide Résolu/Fermé

Question

Bonjour, 

Alors voilà, j'ai utilisé l'enregistreur de macro pour créer ça donc ça reste du très basic mais du coup ça ne fonctionne pas comme j'aimerais...

Sub Suivant_bouton()
'
' Suivant_bouton Macro
'

'
    Range("A4").Select
    Selection.End(xlDown).Select
    Range("M4:P8").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("A4").Select
    Selection.End(xlDown).Select
    Range("A13").Select
    Selection.End(xlToRight).Select
    Range("M13").Select
    ActiveSheet.Paste
    Selection.End(xlToLeft).Select
    Selection.End(xlToLeft).Select
    Range("O13").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("M14:N15").Select
    Selection.ClearContents
    Range("O16:P16").Select
    Selection.ClearContents
    Range("M17:N17").Select
    Selection.ClearContents
End Sub

Ce que je veux c'est : 
- Je viens compléter ma feuille avec des données
- Je clic sur le bouton "Suivant" 
- Le petit tableau de M4 à P8 vient se dupliquer au niveau de la dernière ligne vide 
- Et pour finir le curseur vient se placer sur la dernière cellule vide en A

Ci-joint mon fichier :
https://www.cjoint.com/c/LEqjPfYR8Mk

Merci de votre aide,

Cédric

Le Pingou · Answer

Bonjour,
Votre lien ne fonctionne pas ou est défectueux car renvoi vers  fichier malveillant!
En plus votre code ne fait rien de ce que vous demandez!

CedricG62 · Answer

Bonjour, je viens d'essayer le lien, il fonctionne très bien...
Y a t il une autre façon pour moi de partager mon fichier ?

Le Pingou · Answer

Bonjour,
Etrange, maintenant cela fonctionne correctement.

Le Pingou · Answer

Bonjour,
Ci joint ma proposition en utilisant le petit tableau dans la feuille [Formules] : https://www.cjoint.com/c/LEro71G4Nin

CedricG62 · Answer

Bonsoir,
Merci pour l'aide, ça marche nickel ; pour que je comprenne bien, vous avez été rechercher le tableau dans le feuille Formules pour le copier si le test est positif.
Ce que je ne comprends pas c'est comment vous avez définis le "PetitTableau" qui fait 5 Lignes et 4 Colonnes ?
Imaginons que je veuilles agrandir ce tableau ou y apporter des modification ; comment dois je faire pour par exemple copier un tableau qui fasse 2 Lignes et 8 Colonnes ?

Le Pingou · Answer

Bonjour,
J'ai simplement utiliser une plage nommée via gestionnaire de noms. voir ci dessous:

Le Pingou · Answer

Bonjour,
Le poste étant marquer comme résolu, je m'étonne de votre message!
Au cas ou,  me mettre le fichier  concerné avec sa nouvelle structure !

CedricG62 · Answer

Bonjour,

En effet, vous m'aviez aidé à résoudre le problème précédant mais comme je travail encore sur le fichier, j'ai rencontré une autre problématique du même donc au lieu de récréer un nouveau sujet et de faire +/- des doublons j'écris ici à la suite...
Ci-joint, le fichier : https://www.cjoint.com/c/LEEiqz4aXPk

Je veux ajouter un nouveau tableau "Ajout_tableau" lorsqu'on appuis sur le bouton "Ajouter ligne" donc ça ça fonctionne bien (je me suis basé sur la macro que vous aviez faite)

Mon problème est que je veux ajouter une ligne à ma feuille pour mettre ce tableau mais quand je le fais, toutes les formules, mise en forme... de mon fichier se décalent aussi
Avez vous une idée pour palier à ça ? Est ce juste une astuce dans l'insertion de ligne que je ne connaitrais pas ? (la macro du fichier ne contient pas mon essai de l'insertion de ligne car ça ne fonctionnait pas)

Merci d'avance,

Cédric

Le Pingou · Answer

Bonjour,
Merci de m'expliquer a quoi doit servir Ajouter une ligne....! 
? (la macro du fichier ne contient pas mon essai de l'insertion de ligne car ça ne fonctionnait pas)
Et alors c'est quoi:

--Salutations.
Le Pingou

CedricG62 · Answer

Bonjour,
Sur la feuille "Copier_coller", on vient rentrer des données et imaginons qu'il en manque, il faut pouvoir les rentrer manuellement sans pour autant pouvoir faire n'importe quoi.
Donc le bouton "Ajouter ligne" sert à insérer le tableau qui va permettre d'ajouter une nouvelle donnée.
Le "N° de linge" sert à savoir sur quelle ligne insérer le tableau
En face de ce tableau qui est inséré, il faut que les colonnes A:J soient vides sinon je vais avoir une superposition de données
Le problème est que lorsqu'on faut insérer une nouvelle ligne, toutes les formules se décalent 
Peut-être procéder avec déplacement de 1 ligne de toutes les valeurs en dessous du "N° de ligne" saisie ?

Le Pingou · Answer

Bonjour,
Merci de faire un exemple manuellement et de le colorer les plages en jaune !

--Salutations.
Le Pingou

CedricG62 · Answer

Ci-joint le fichier avec les annotations + la couleur jaune, j'espère que ça ira :)

https://www.cjoint.com/c/LEFlK1N7vgk

Merci

Le Pingou · Answer

Bonjour,
Voici l'ajout de ligne selon demande, merci du retour.
Le Fichier: https://www.cjoint.com/c/LEFqEF6n5Un
Remarque: je ne sais pas ce que vous devez avoir dans la colonne A:A!

Le Pingou · Answer

Bonjour,
Eh bien c'est la première fois que vous préciser : Les formules se décalent dans l'onglet "IENET", ceci est normal puisque vos formules (étrange la manière de faire, mais bon, c'est votre choix) sont liés à la structure de la feuille [Copier_coller].
Bonne suite.

Excel VBA dupliquer sur dernière cellule vide

14 réponses

Discussions similaires