× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > 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 poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
12,19 €Pack de 3 clés USB 3.0 Kingston DataTraveler 100 G3 - 32 Go à 12,19 €
Valable jusqu'au 24 Octobre

Amazon fait une promotion sur le pack de 3 clés USB 3.0 Kingston DataTraveler 100 G3 - 32 Go qui passe à 12,19 € livré gratuitement au lieu d'une vingtaine d'euros habituellement.


> Voir l'offre
36,99 €Disque dur Western Digital Blue 1 To à 36,99 €
Valable jusqu'au 24 Octobre

Cdiscount fait une belle promotion sur le disque dur Western Digital Blue 1 To à 36,90 €. Ce disque dur 3.5 pouces SATA III  tourne à 7200 tr/min.


> Voir l'offre
18,60 €Coffret Bosch X-Line Titanium de 50 pièces à 18,60 €
Valable jusqu'au 25 Octobre

Amazon fait une promotion sur le coffret Bosch X-Line Titanium de 50 pièces qui passe à 18,60 € au lieu de 30 € ailleurs. Ce pack comporte 11 forets à métaux HSS-TiN Ø 1,5-6,5 mm, 6 forets à matériaux au carbure Ø 4 -10 mm, 5 mèches à bois Ø 4-10 mm 2 mèches plates, titane, Ø 16/22 mm, 18 embouts de vissage, L = 25 mm PH 1/2/2/3 PZ 1/2/2/3 Plat 4/6/7 HEX 3/4/5/6 T 15/20/25, 3 douilles Ø 7/8/10 mm, 1 adaptateur pour douille,1 gabarit à diamètre, 1 cutter, 1 porte-embout universel, magnétique, 1 fraise conique à lamer.


> 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