Problème avec macro de recherche Fermé

Question

Bonjour, 

Je me permet de vous demander de l'aide concernant un petit problème sur un de mes tableaux Excel.

J'ai une liste d'éléments dans ma feuille 1, comprenant 4 colonnes : Code établissement, Nature de l'article, Quantité, Valeur.

J'ai également en feuille 2, un tableau de deux colonnes : Code établissement, nom de l'établissement.

J'aimerais donc créer une macro commande qui cherche le premier code établissement du tableau de la feuille 2, dans le tableau de la feuille 1, puis qui copie et colle
les lignes du tableau de la feuille 1 comprenant le code établissement recherché, dans les 4 premières colonnes de la feuille 3, et ainsi de suite pour les autres
établissements (établissement 2 à copier et coller dans les 4 premières colonnes de la feuille 4, établissement 3 en feuille 5...).

Est-ce que quelqu'un saurait m'aider s'il vous plait ?


Configuration: Windows 7 / Firefox 19.0

via55 · Answer

Bonjour

En supposant toutes les feuilles déjà existantes
et les données commençant en A2 avec un titre de colonne en A1
la macro de recopie peut être :
 
Sub recopie()

Sheets(2).Select
der = Range("A1").End(xlDown).Row
For n = 2 To der
code = Sheets(2).Range("A" & n).Value
Sheets(1).Select
der2 = Sheets(1).Range("A1").End(xlDown).Row
x = 1
For t = 2 To der2
If Sheets(1).Range("A" & t).Value = code Then
x = x + 1
Sheets(n + 1).Range("A" & x).Value = Sheets(1).Range("A" & t).Value
Sheets(n + 1).Range("B" & x).Value = Sheets(1).Range("B" & t).Value
Sheets(n + 1).Range("C" & x).Value = Sheets(1).Range("C" & t).Value
Sheets(n + 1).Range("D" & x).Value = Sheets(1).Range("D" & t).Value
End If
Next t
Next n
End Sub

A adapter en fonction de ton fichier

Cdlmnt

McFly626 · Answer

Merci pour cette réponse via55, cependant, j'ai oublié de préciser que la colonne du tableau de la feuille 1 contient plusieurs fois les valeurs recherchées, et ce que je cherche à faire c'est lister automatiquement ces valeurs dans les autres feuilles Excel.
Ne faut-il alors pas utiliser plutôt une fonction boucle For Each... Next ?

Problème avec macro de recherche

2 réponses

Discussions similaires