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

Anonyme
2022-07-25T13:40:35+00:00

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 ? ☺

Microsoft 365 et Office | Excel | Pour la maison | Windows

Question verrouillée. Cette question a été migrée à partir de la Communauté Support Microsoft. Vous pouvez voter pour indiquer si elle est utile, mais vous ne pouvez pas ajouter de commentaires ou de réponses ni suivre la question.

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2022-08-09T13:38:45+00:00

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

Cette réponse a-t-elle été utile ?

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2022-08-03T16:56:49+00:00

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

Cette réponse a-t-elle été utile ?

0 commentaires
Réponse acceptée par l’auteur de la question
DanielCo 107.7K Points de réputation
2022-07-26T14:01:55+00:00

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

Cette réponse a-t-elle été utile ?

0 commentaires

68 réponses supplémentaires

Trier par : Les plus anciens
Le plus utile Les plus récents Les plus anciens
  1. DanielCo 107.7K Points de réputation
    2022-07-26T13:20:43+00:00

    Bonjour,

    Désolé, mais j'ai besoin de davantage de précisions.

    • Est-ce que tu as 1 tableau par feuille (donc 171 feuilles) ?
    • Dans chaque tableau, est-ce qu'il faut remplir la seule cellule B10 ?

    Daniel

    Cette réponse a-t-elle été utile ?

    0 commentaires
  2. Anonyme
    2022-07-26T13:28:52+00:00

    Oui, 1 tableau par feuilles et 171 feuilles

    Dans chaque tableau je dois remplir la cellule B10 par la cellule B1 du "tableau de palettisation" mais je dois également remplir d'autre cellules de la même manière. J'attendais de voir comment faire pour celle-ci premièrement

    Paul

    Cette réponse a-t-elle été utile ?

    0 commentaires