× Aidez la recherche contre le COVID-19 avec votre ordi ! Rejoignez l'équipe PC Astuces Folding@home
 > Tous les forums > Forum Bureautique
 Creer une macro - excelSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
onurom
  Posté le 28/09/2009 @ 11:31 
Aller en bas de la page 
Nouvel astucien

Bonjour,

Voici mon problème,

J'ai deux feuilles de calcul. Dans la première, il y a plus de 700 lignes d'informations avec N° d'Article en colonne H. Dans la deuxième feuille, il y a plus de 10 000 lignes d'informations avec aussi le N° d'Article en colonne A (mais dans le désordre), Article en colonne B, Option en colonne C, détail en colonne D, Prix en colonne E et Infos suppl. en colonne F. Ce que je voudrais est de pouvoir copier la ligne de la deuxieme feuille de calcul correspondante à chaque N° d'Article de la première feuille.

Par exemple, j'ai 40058061 en H2 de la premiere feuille, je voudrais rechercher cette valeur dans la deuxieme feuille et copier la ligne dans la premiere feuille en N2. Et ceci pour chaque valeur de la Feuille 1.

Avez-vous une solution à mon preblème s'il vous plaît?

Merci!

Publicité
ferrand
 Posté le 28/09/2009 à 12:41 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour et bienvenue sur PCAstuces,

Créer une macro comportant une boucle qui balaie tes n° d'articles de la 1e feuille en H et lance pour chacun une procédure de recherche du n° d'article dans la 2e feuille en A (identifiant unique je suppose (?)), encore une boucle, et lorsque trouvé copie tes référence de la ligne (A:F) sur la 1e feuille, ligne de lancement de la recherche en N.

Je ne vois rien de plus simple a-priori. Si tu ne penses pas pouvoir élaborer toi-même le code correspondant, les macroteurs du forum pourront certainement t'aider mais apprécieraient un exemplaire de ton fichier (allégé s'il te plait, 10 à 20 lignes suffisent amplement...) à communiquer sur le forum par: http://cjoint.com/index.php . Tu cliques sur Parcourir pour sélectionner ton fichier-exemple, puis sur Créer le lien CJoint, tu autorises l'accès au presse-papier pour le lien et il ne reste plus qu'à le coller dans un post.



Modifié par ferrand le 28/09/2009 12:42
onurom
 Posté le 28/09/2009 à 14:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Merci pour la réponse assez rapide!

En effet, je ne pense pas pouvoir creer le code moi-même.

Je vous envoie donc le lien: http://cjoint.com/?jCoZRKo7rA

Encore merci!

ferrand
 Posté le 29/09/2009 à 10:30 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Bonjour,

En retour, à tester: http://cjoint.com/?jDkC5LA2oa

Les macros sont dans le module 1.

Bonne journée

onurom
 Posté le 29/09/2009 à 13:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour,

Je te remercie, la macro fonctionne! C'est cool!!

Bonne journée.

onurom
 Posté le 17/12/2009 à 10:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Bonjour,

j'ai de nouveau un problème avec la macro...

voici le problème:

Auparavant j'avais moins de 10000 données, maintenant j'en ai 50000 dans le feuille 1 et 15000 dans la feuille 2.

La macro ne s'éxécute pas et m'affiche un message d'erreur "dépassement de capacité" et surligne la ligne "f = .Range("H65536").End(xlUp).Row"

Comment puis-je résoudre ce problème s'il vous plaît?

je vous remets le lien pour le fichier exemple (mais ne comporte pas toutes les données biensûr): http://cjoint.com/?mrk1VzEzOY

Merci.

ferrand
 Posté le 17/12/2009 à 11:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Problème de type de données : le type Integer est dépassé à partir de 32768. Donc change le type de données des variables concernant les lignes: i et f sauf erreur. Tu les déclares comme type Long.

Dim i As Long, f As Long

onurom
 Posté le 17/12/2009 à 11:39 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

yes, merci bien.

J'avais anticipé la réponse en cherchant un peu, j'ai changé le type de variable en Long pour i et f.

Mais c'est très très long! Est-ce normal?

Encore merci pour la reponse rapide!

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

Mon estimation est de l'ordre de 1h15.

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
18,69 €Clé USB 3.0 SanDisk Ultra Flair 128 Go à 18,69 €
Valable jusqu'au 30 Novembre

Amazon fait une promotion sur la clé USB 3.0 SanDisk Ultra Flair 128 Go qui passe à 18,69 € alors qu'on la trouve ailleurs à plus de 25 €. Cette clé USB offre des débits jusqu'à 150 Mo/s.


> Voir l'offre
Gratuit3 mois d'abonnement à Amazon Music Unlimited gratuits
Valable jusqu'au 15 Janvier

Amazon vous permet d'essayer son service de streaming musical pendant 3 mois gratuitement. Avec Amazon Music Unlimited, accédez à plus de 50 millions de titres, sans publicité et en illimité sur tous vos appareils : smartphone, tablette, PC/Mac, Fire, Alexa. Vous avez même la possibilité de télécharger vos playlists pour des écoutes hors connexion. A la fin de ces 3 mois, vous pourrez basculer vers l'offre payante à 9,99 € / mois ou bien arrêter sans frais le service. A noter l'existence d'une offre famille à 14,99 € / mois qui permet jusqu'à 6 utilisateurs d'écouter leur musique à tout moment et sur leurs appareils préférés. Vous pouvez annuler l'abonnement à tout moment. L'offre se termine ce soir. Ne tardez pas !


> Voir l'offre
24,99 €Casque audio bluetooth JBL T460BT à 24,99 €
Valable jusqu'au 30 Novembre

Cdiscount fait une vente flash sur le casque audio sans fil bluetooth JBL T460BT qui passe à 24,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 49,99 €. Ce casque sans fil bluetooth 4.0 offre une autonomie de 11h, permet de commander sur le casque les appels et la musique et est repliable à plat. Il est rechargeable avec un câble microUSB fourni.


> Voir l'offre

Sujets relatifs
Macro pour créer un Gencode sur Excel - EAN 18
Créer un tableau excel avec macro
Macro : créer des lignes sous Excel
excel : macro créer un nouveau dossier
2 pages par feuille dans macro excel
Creation d' une boucle macro dans fichier EXCEL pour impression
besoin d'une macro excel 2007
Macro Excel. Mes colonnes disparaissent.
libre Office : macro Excel présente et non active
[Excel 2007] Macro : Sélection d'un tableau selon sa longueur variable
Plus de sujets relatifs à Creer une macro - excel
 > Tous les forums > Forum Bureautique