Excel VBA dupliquer sur dernière cellule vide

Résolu/Fermé

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022 - 16 mai 2022 à 11:53
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 1 juin 2022 à 16:15

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

A voir également:

Excel VBA dupliquer sur dernière cellule vide
Dupliquer ecran - Guide
Liste déroulante excel - Guide
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Excel cellule couleur si condition texte - Guide

14 réponses

Réponse 1 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
17 mai 2022 à 17:01

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

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
25 mai 2022 à 14:44

Bonjour,

C'est encore moi ; on m'a demandé d'ajouter un bouton "modifier" qui va permettre d'insérer une ligne dans ma feuille où l'on saisit les valeurs, si on doit ajouter des valeurs manuellement.

Du coup je vais faire réinsérer un nouveau tableau comme on a fait au dessus mais là il faut l'insérer entre 2 lignes existantes.
La macro au dessus insère le "petit tableau" à la dernière ligne vide ; comment dois je modifier le code pour qu'il insère le "nouveau tableau" à la ligne X (qui sera demandé en Msgbox)
Car en faisant insérer une ligne, les formules des autres feuilles se décalent... Faut il juste étirer d'autres formules ou cela va poser un autre problème que je ne vois pas encore ?

Merci de votre aide,

Cédric

Réponse 2 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
18 mai 2022 à 09:25

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

Réponse 3 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié le 16 mai 2022 à 21:42

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!

Réponse 4 / 14

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
17 mai 2022 à 08:55

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 ?

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
17 mai 2022 à 15:19

Bonjour,
Etrange, maintenant cela fonctionne correctement.

Réponse 6 / 14

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
17 mai 2022 à 22:39

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 ?

Réponse 7 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
25 mai 2022 à 17:34

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 !

Réponse 8 / 14

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
30 mai 2022 à 10:49

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

Réponse 9 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié le 30 mai 2022 à 17:07

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

Réponse 10 / 14

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
31 mai 2022 à 08:47

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 ?

Réponse 11 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
31 mai 2022 à 09:42

Bonjour,
Merci de faire un exemple manuellement et de le colorer les plages en jaune !

--Salutations.
Le Pingou

Réponse 12 / 14

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
31 mai 2022 à 13:38

Ci-joint le fichier avec les annotations + la couleur jaune, j'espère que ça ira :)

https://www.cjoint.com/c/LEFlK1N7vgk

Merci

Réponse 13 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié le 31 mai 2022 à 18:34

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!

CedricG62 Messages postés 39 Date d'inscription mercredi 19 juillet 2017 Statut Membre Dernière intervention 4 novembre 2022
Modifié le 1 juin 2022 à 15:07

L'ajout de la ligne fonctionne mais on revient sur le même problème que j'avais moi en essayant :
Les formules se décalent dans l'onglet "IENET" (elles passent de la ligne 9 à 11 si on ajoute une ligne à la ligne 10 par exemple)

Je viens de trouver qu'il faut que j'intègre dans mes formules, les fonctions INDIRECT à chaque fois pour ne pas avoir ce décalage automatique donc il n'y a plus de soucis

Merci à vous pour votre aide,

Cédric

Réponse 14 / 14

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié le 1 juin 2022 à 16:15

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.

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Formule Excel : "SI" une cellule contient un mot, alors ?

Excel si cellule contient texte alors...

Discussions similaires

Newsletters