Discussion :

[Murasakibara]

Bonjour à tous,
J'aimerai mettre en place une macro mais je ne sais pas par quel bout commencer.
J'ai un fichier excel avec un
- onglet Recap
- 2 onglets par société
* a.xlsx(Total)
* a.xlsx(Détail) ou a.xlsx(Détails)
J'aimerai que la macro aille récupérer l'info de la feuille a.xlx(Total) au fomat texte et qu'elle le mette dans la cellule appropriée de l'onglet "Recap" au format nombre.
Et qu'elle aille récupérer le détail dans l'onglet a.xlx(Détail/Détails).
J'espère avoir été assez clair.
Ci-joint le fichier en exempleClasseur1.xlsx
Merci pour votre aide

[Tête de chat]

Bonjour

pourquoi une macro ? Une formule devrait pouvoir faire ça très bien...

Par exemple pour récupérer le total :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=SIERREUR(INDIRECT("'"&B1&".xlsx(Total)'!B2");"Onglet non trouvé")

Après il faut un minimum de rigueur (quelle que soit la méthode) dans les règles de nommage : Détail ou Détails ?

[Murasakibara]

Bonjour Tête de chat,
Je suis en phase d'apprentissage, c'est pour ça que je rédige une macro.
J'ai réussi à en faire une. elle me donne une erreur 13 au niveau

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
           If sht.Range("C38") <> "" Then
                RFI.Value = sht.Range("C38").Value
            Else
                RFI.Value = "-" + sht.Range("E39").Value
            End If

Voici mon code complet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub RemplirTableau()
 
Dim ENTITE As Range
Dim RFI As Variant
Dim NomFeuilleA As String
Dim NomFeuilleAbis As String
Dim NomFeuilleImpotA As String
Dim NomFeuilleImpotB As String
Dim NomSociete As String
Dim shIFA As Worksheet
Dim sht As Worksheet
 
Set shIFA = Worksheets("IF Amundi")
'Boucle sue l'entité
For Each ENTITE In shIFA.Range("F7", shIFA.Range("F7").End(xlToRight)).Cells
    'Nom des feuilles
    NomFeuilleA = ENTITE & ".xlsx(2058A)"
    NomFeuilleAbis = ENTITE & ".xlsx(2058ABIS)"
    NomFeuilleImpotA = ENTITE & ".xlsx(IMPOT01)"
    NomFeuilleImpotB = ENTITE & ".xlsx(IMPOT01X)"
    RFI = ENTITE.Offset(14, 0)
    'Boucle sur les feuilles
    For Each sht In ThisWorkbook.Worksheets
        'Condition de récupération des données
        If sht.Name = NomFeuilleAbis Then
            If sht.Range("C38") <> "" Then
                RFI.Value = sht.Range("C38").Value
            Else
                RFI.Value = "-" + sht.Range("E39").Value
            End If
 
        End If
 
    Next sht
 
Next ENTITE
 
End Sub

Je vous remercie pour votre aide

[Pierre Fauconnier]

Faudrait voir le besoin et donc un éclaté d'écran.

Je me dis que Power Query pourrait faire l'affaire, mais sans précisions supplémentaires, difficile d'aider mieux

[Murasakibara]

Je te remercie pour ta réponse mais je souhaite vraiment créer une macro pour ce traitement.

[Pierre Fauconnier]

Explique ce que tu souhaites réaliser avec des éclatés d'écran. Je n'aime pas repartir sur une macro qui ne fonctionne pas et j'aime bien comprendre le problème pour donner la meilleure réponse.

[Murasakibara]

Après quelques recherches j'ai réussi à établir ma macro.
Merci Pierre d'avoir pris le temps d'échanger avec moi sur le sujet.