> Tous les forums > Forum Bureautique
 EXCEL: macro pour insérer un champ de lignesSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
lavandine
  Posté le 28/11/2009 @ 19:09 
Aller en bas de la page 
Nouvel astucien

Bonjour à tous !

Une petite macro que je n'arrive pas à résoudre qui peux m'aider !

Avant de créer ma macro, j'ai créer en bas de ma feuille un champ de 4 lignes que j'ai appeler " source " .

J'aimerais créer une macro qui m'insère en copiant le champ " source " à l'endroit quelconque ou je sélectionne une ligne dans la feuille.

Précision : Qui copie le champ juste au dessus de la ligne sélectionnée !

Merci pour toutes vos bonnes idées

Publicité
Marmotte18
 Posté le 28/11/2009 à 20:33 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonsoir ,

Voilà la macro demandée :

Sub Copie4Lignes()

Dim LigneSélectionnée As Integer
LigneSélectionnée = ActiveCell.Row

Application.Goto Reference:="Source"
Application.CutCopyMode = False
Selection.Copy
Cells(LigneSélectionnée, 1).Select
Selection.Insert Shift:=xlDown
Range("A1").Select

End Sub

Ci-joint le fichier de démonstration : http://www.cijoint.fr/cjlink.php?file=cj200911/cijr9E7VJy.xls

lavandine
 Posté le 30/11/2009 à 20:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bravo et tous mes compliments, merçi pour la rapidité !{#}

ferrand
 Posté le 01/12/2009 à 10:03 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

Pour marmotte: http://cjoint.com/?mbj1Bgo0nL

Petite curiosité, je te livre ma modification de ta macro, faite l'autre jour en la voyant, une touche après l'autre, ce que j'ai trouvé drôle au final c'est qu'il ne reste plus une ligne semblable (après la déclaration de variable). Cela m'a fait méditer sur les diverses façons d'aborder un problème et les réflexes acquis à cet égard... Le résultat est le même (avec une petite différence tout de même [qui m'avait fait commencer à modifier]: je n'ajoute pas de lignes).

Bonne journée.

Marmotte18
 Posté le 01/12/2009 à 18:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Bonjour,

Pour ferrand : oui c'est amusant ! Par contre, les fonctionnalités ne sont pas les mêmes.

lavandine a dit :

J'aimerais créer une macro qui m'insère en copiant le champ " source " à l'endroit quelconque ou je sélectionne une ligne dans la feuille.

J'ai hésité longuement pour savoir s'il fallait copier ou insérer ! J'ai finalement procédé à une insertion sans conviction => le test que tu as fait, devenait inutile.

ferrand
 Posté le 01/12/2009 à 19:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Mais elle avait écrit aussi

Précision : Qui copie le champ juste au dessus de la ligne sélectionnée !

A plus.

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
579,99 €Ordinateur portable Lenovo 15.6 pouces (FHD, Ryzen 7, 8 Go RAM, SSD 512 Go, Windows 10) à 579,99 €
Valable jusqu'au 23 Janvier

Darty solde l'ordinateur portable Lenovo Ideapad 5 15ALC05 qui passe à 579,99 € avec le code DARTY20 alors qu'on le trouve habituellement à 799,99 €. Cet ordinateur portable dispose d'un écran 15.6 pouces Full HD (1920x1080), d'un processeur AMD Ryzen 7 5700U, de 8 Go de RAM, d'un SSD de 512 Go, d'un chip graphique Vega 8, d'une webcam, d'un lecteur de cartes mémoire et de connexions Bluetooth, WiFi, Ethernet, HDMI et  USB 3.1. Le tout tourne sous Windows 10 (que vous pourrez mettre à jour pour Windows 11) et ne pèse que 1,66 kg.

Un très bon portable polyvalent.


> Voir l'offre
80,45 €Alimentation semi modulaire Corsair CX750M (750W, 80Plus Bronze) à 80,45 €
Valable jusqu'au 25 Janvier

RueDuCommerce fait une promotion sur l'alimentation semi modulaire Corsair CX750M 750W 80Plus Bronze qui passe à 80,45 €. On la trouve ailleurs à partir de 110 €. Cette alimentation est silencieuse et est certifiée 80PLUS bronze qui offre des rendements de plus de 82% en charge. Elle est garantie 3 ans.


> Voir l'offre
SOLDESLes soldes d'hiver 2022
Valable jusqu'au 08 Février

Les soldes commencent ce Mercredi 12 Janvier dans la plupart des départements Retrouvez ici la liste des pages dédiées à cet évènement chez les différents revendeurs high-tech afin de trouver la bonne affaire qui vous intéresse. Nous vous proposerons aussi les bons plans que nous aurons dénichés.


> Voir l'offre

Sujets relatifs
problème pour insérer des lignes dans excel
Creation d' une boucle macro dans fichier EXCEL pour impression
Macro pour ouverture d'un fichier Excel
Macro pour créer un Gencode sur Excel - EAN 18
macro pour trier un tableau et effacer les lignes sans saisie
Macro Excel, ajout lignes et valeurs...
impossible d'insérer de lignes s/page excel
Macro pour un envoi feuille excel par mail
Macro excel pour enregistrer
macro excel pour convertir données
Plus de sujets relatifs à EXCEL: macro pour insérer un champ de lignes
 > Tous les forums > Forum Bureautique