Extraction de données

Y compris Power BI, Power Query et toute autre question en lien avec Excel
B
Beberttlse31
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 17 octobre 2018
Version d'Excel : 2016

Message par Beberttlse31 » 17 octobre 2018, 22:49

Bonjour,
J'ai des données (en PJ) à exploiter et je ne voudrais conserver que les noms qui sont entre les crochets [ ]...
Je galère un peu et je ne vois pas comment faire ça rapidement.

Merci beaucoup
dashboard_6a_2018_10_17-1.xlsx
(9.88 Kio) Téléchargé 8 fois
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'729
Appréciations reçues : 218
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 17 octobre 2018, 23:15

Salut Beberttlse,

un double-clic dans ta feuille déclenche la macro...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'
Dim tData, tSplit, sData$
'
Cancel = True
tData = UsedRange.Value
'
For x = 1 To UBound(tData, 1)
    For y = 1 To UBound(tData, 2)
        If InStr(tData(x, y), "[") > 0 Then
            sData = ""
            tSplit = Split(tData(x, y), "]")
            For Z = 0 To UBound(tSplit) - 1
                sData = sData & IIf(sData = "", Split(tSplit(Z), "[")(1), ", " & Split(tSplit(Z), "[")(1))
            Next
            tData(x, y) = sData
        End If
    Next
Next
Range("A1").Resize(UBound(tData, 1), UBound(tData, 2)).Value = tData
'
End Sub
:btres:

8-)
A+
dashboard.xlsm
(15.61 Kio) Téléchargé 6 fois
B
Beberttlse31
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 17 octobre 2018
Version d'Excel : 2016

Message par Beberttlse31 » 17 octobre 2018, 23:18

Merci... mais assez novice comment je peux faire pour intégrer cette macro???
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'729
Appréciations reçues : 218
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 17 octobre 2018, 23:34

Salut Beberttlse,

la macro se trouve dans le module VBA de la feuille concernée (ALT-F11 puis double-clic sur le nom de la feuille dans l'explorateur de projet pour accéder au code).
Le fichier doit évidemment être enregistré en XLSM.

Si tu as un souci, fais-nous parvenir le VRAI fichier! On t'arrangera ça...

A+
B
Beberttlse31
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 17 octobre 2018
Version d'Excel : 2016

Message par Beberttlse31 » 17 octobre 2018, 23:38

Voilà le vrai fichier mais j'aimerais bien savoir le faire car j'en ai 5 autres comme ça...

Merci beaucoup
Macro _forum.xlsx
(12.16 Kio) Téléchargé 4 fois
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'729
Appréciations reçues : 218
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 18 octobre 2018, 00:00

Dis-moi, Beberttlse,

reçois-tu ces fichiers en l'état régulièrement ou est-ce un one-shot?

A+
B
Beberttlse31
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 17 octobre 2018
Version d'Excel : 2016

Message par Beberttlse31 » 18 octobre 2018, 09:25

Non non juste pour cette période dans mon nouveau travail... donc peut être que ca va se reproduire... ;)
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'729
Appréciations reçues : 218
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 18 octobre 2018, 13:05

Salut Beberttlse,

non, non... peut-être..., pas clair tout ça!
Aussi, je te propose un fichier indépendant, reprenant le code que je t'ai fourni, qui "scannerait" les fichiers que tu ouvrirais pour traitement.
Ainsi, plus de manipulations pour autant que les fichiers soient similaires.
J'imagine que les formules trouvées dans ton "vrai" fichier n'étaient que des essais pour obtenir le résultat recherché : à éliminer!

Je t'envoie ça ce soir...

A+
Avatar du membre
curulis57
Passionné d'Excel
Passionné d'Excel
Messages : 3'729
Appréciations reçues : 218
Inscrit le : 4 janvier 2016
Version d'Excel : 2016 FR / 2019 FR

Message par curulis57 » 19 octobre 2018, 23:24

Salut Beberttlse,

ton fichier... juste un bouton rouge à cliquer après avoir ouvert les fichiers à traiter.
Private Sub cmdGO_Click()
'
Dim sWkB1 As Workbook, sWkB2 As Workbook, tData, tSplit, sData$
'
Set sWkB1 = ThisWorkbook
Cancel = True
For Each sWkB2 In Workbooks
    If InStr(sWkB2.Name, "Dashboard") > 0 And (sWkB2.Name <> sWkB1.Name And InStr(sWkB2.Name, "PERSONAL") = 0) Then
        With sWkB2.Sheets(1)
            tData = .UsedRange.Value
            For x = 1 To UBound(tData, 1)
                For y = 1 To UBound(tData, 2)
                    If InStr(tData(x, y), "[") > 0 Then
                        sData = ""
                        tSplit = Split(tData(x, y), "]")
                        For Z = 0 To UBound(tSplit) - 1
                            sData = sData & IIf(sData = "", Split(tSplit(Z), "[")(1), ", " & Split(tSplit(Z), "[")(1))
                        Next
                        tData(x, y) = sData
                    End If
                Next
            Next
            .Range("A1").Resize(UBound(tData, 1), UBound(tData, 2)).Value = tData
        End With
    End If
Next
MsgBox "Opération terminée!", vbInformation + vbOKOnly, "Clean Dashboard"
sWkB1.Close
'
End Sub
:btres:

8-)
A+
CleanDashboard.xlsm
(20.64 Kio) Téléchargé 5 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message
  • Extraction de données
    par ACCRO » 2 juillet 2019, 10:23 » dans Excel - VBA
    14 Réponses
    153 Vues
    Dernier message par Steelson
    3 juillet 2019, 18:43
  • extraction de données
    par doudou80 » 7 juin 2017, 18:30 » dans Excel - VBA
    9 Réponses
    392 Vues
    Dernier message par dhany
    14 octobre 2018, 03:22
  • extraction de données
    par impreza73 » 26 août 2014, 17:30 » dans Excel - VBA
    3 Réponses
    328 Vues
    Dernier message par impreza73
    27 août 2014, 22:17
  • Extraction de données
    par tifan » 25 mars 2016, 11:50 » dans Excel - VBA
    12 Réponses
    326 Vues
    Dernier message par tifan
    29 mars 2016, 13:35
  • extraction de données
    par blk59 » 14 mai 2018, 22:36 » dans Excel - VBA
    2 Réponses
    70 Vues
    Dernier message par blk59
    14 mai 2018, 22:59
  • Extraction donnees
    par miha » 4 février 2018, 22:33 » dans Excel - VBA
    1 Réponses
    103 Vues
    Dernier message par i20100
    5 février 2018, 06:23