Extraction de données automatique d'un autre fichier, feuilles par feuilles

Question

Bonjour à tous ! ☺

J'ai des cellules d'un tableau à remplir par les données d'un autre tableau. Plus précisément, j'ai 171 tableaux à remplir avec 171 tableaux. Le tableau A doit être rempli par un tableau de données précis. Pour me repérer le nom du tableau rempli s'appelle pareil que le tableau qui doit le remplir. Par exemple : tableau A doit être rempli avec les infos de tableau B.

J'aimerais savoir si il est possible de remplir le tableau une seule fois et qu'une macro remplisse les 170 autres avec les bonne données du classeur qui lui correspond...

Ça fait plusieurs jours que je cherche mais je crois que je n'ai pas encore les compétences pour ça. Quelqu'un saurait m'aider, svp ? ☺

Answer 1

Essaie :

Sub Nettoyage2()
Dim C As Range, Sh As Worksheet, Lig As Long, Col As Long
Application.ScreenUpdating = False
For Each Sh In Sheets
With Sh
.[B:B].Replace "~*", ""
.[B:B].Replace " ", ""
.Range("B3", .Cells(.Rows.Count, 2).End(xlUp)).NumberFormat = "#"
For Each C In .Range("B3", .Cells(.Rows.Count, 2).End(xlUp))
If C <> "" Then
If IsNumeric(C) Then
C = C * 1
End If
End If
Next C
End With
Next Sh
Application.ScreenUpdating = True
End Sub

Daniel

Answer 2

J'ai opté pour une autre solution qui évite de dupliquer les contrôles. On clique sur D2. UN formulaire s'affiche :

En remplaçant la partie du haut, les valeurs filtrées s'affichent en dessous. On clique sur la valeur choisie pour coller la valeur en D3.

Je t'enverrai le classeur demain.

Daniel

Answer 3

Essaie :

Sub test()
Dim Chemin As String, Sh As Worksheet
Chemin = "='A:\Service Import.Export\MAISON JAMEIN[Tableau palettisations Meiyume.xls]"
For Each Sh In Sheets
Sh.[B10].Formula = Chemin & Sh.Name & "'!B1"
Next Sh
End Sub

Cette macro suppose que les noms des feuilles soient les mêmes dans les deux classeurs, d'une part, et que de l'autre, il n'y ait que 171 feuilles dans le classeur.

Daniel

Answer 4

Bonjour et merci Daniel,

En y repensant, je dois finalement reformuler ma demande. J'ai bien :

-171 tableaux à remplir

-171 tableaux avec des données à extraire

Mais le tableaux ne peuvent pas être dans le même fichier comme j'aurais espéré car le tableau de données à extraire est souvent mis à jour. Donc finalement, j'ai deux fichiers avec 171 classeurs. Chaque classeur est lié à un seul autre classeur de l'autre fichier. Pour ça, j'ai fait en sorte qu'ils aient les mêmes noms.

Finalement, je voudrais extraire une cellule avec RECHERCHEV. Cette recherche doit s'effectuer dans le bon classeur or, quand je fais ma RECHERCHEV et que j’exécute la macro dans tous les classeurs, la macro cherche dans le classeur avec laquelle j'ai enregistré la macro.

J'ai du mal à expliquer, je ne sais pas si c'est très clair ☺

Answer 5

Bonjour,

Ca paraît possible. Il faudrait que tu expliques comment sont disposés les tableaux et quelles données il faut copier.

Cordialement.

Daniel