Discussion :

[Tanicia]

Bonjour,

pour mon travail, on me fournit des données (sous une forme imposée car nationale) avec des cellules fusionnées .
Il s'agit de taux de présence des fournisseurs en fonction de leur secteur mais aussi de leurs activités et sous activités. Des données vont être rajoutées jour après jour.
Je vous joint des copies d'écran pour mieux visualiser mes problèmes (j'ai remplacé toutes les données sensibles)

Je dois fournir des bilans avec des tcd mais je perds des informations.
J'ai essayé des choses basiques (retirer les fusions, transposition des données, renommer les sous-activité en intégrant les activités (c'est le moins pire mais je ne peux plus faire de bilan sur ces dernières ) sans succès
Je débute en vba et je pense que la solution va passer en recréant de toute pièce un nouveau tableau de base exploitable mais je ne vois pas comment...

Je vous remercie pour l'aide que vous pourriez m'apporter
Bonne journée

[Invité]

Bonjour,

Dans votre deuxième tableau, il faut simplement ajouter la lettre d'activité à la sous activité sur la ligne 6. Ex : A Sous activité 1, B Sous activité 1, ....

[78chris]

Bonjour à tous

Si tu as la possibilité d'installer l'add on PowerQuery (intégré à Excel à partir de 2016) on peut baser le(s) TCD sur une requête normalisant les données

[Tanicia]

Bonjour à tous

Si tu as la possibilité d'installer l'add on PowerQuery (intégré à Excel à partir de 2016) on peut baser le(s) TCD sur une requête normalisant les données

Bonjour,

Malheureusement non, je travaille sur sous Excel 2010 et sur un ordinateur professionnel très sécurisé où je ne suis pas admin.
Je n'ai pas la possibilité de rajouter des add on.
De plus, au niveau privé, j'ai un mac (du coup, pas possible non plus..)

Merci pour votre aide
Bonne journée
Tanicia

[Invité]

A tester et à adapter :

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
 
Sub ModificationDeLaLigneDeTitre()
 
Dim Lettre1 As String
Dim LigneFusionnee As Long, LigneSousTitres As Long, DerniereColonne As Long, I As Long
 
        With ActiveSheet
               LigneFusionnee = 5
              LigneSousTitres = LigneFusionnee + 1
              With .Rows(LigneFusionnee)
                   .WrapText = False
                   .MergeCells = False
              End With
              DerniereColonne = .Cells(LigneFusionnee, .Columns.Count).End(xlToLeft).Column
              For I = 1 To DerniereColonne
                  If .Cells(LigneFusionnee, I) <> "" Then
                     Lettre1 = Right(.Cells(LigneFusionnee, I), 1)
                  End If
                  .Cells(LigneSousTitres, I) = Lettre1 & " " & .Cells(LigneSousTitres, I)
              Next I
 
              For I = 1 To DerniereColonne
                    Select Case .Cells(LigneFusionnee, I)
                      Case "Secteur", "Fournisseur", "Date"
                           .Cells(LigneSousTitres, I) = .Cells(LigneFusionnee, I)
                    End Select
              Next I
 
     End With
 
End Sub

[Tanicia]

Bonjour,

Dans votre deuxième tableau, il faut simplement ajouter la lettre d'activité à la sous activité sur la ligne 6. Ex : A Sous activité 1, B Sous activité 1, ....

Bonjour,

Merci pour votre retour. C'est la solution que je privilégie pour le moment.
Le soucis de cette dernière, c'est que je ne peux pas filtrer par activité (et utiliser des segments par la suite)

Bonne journée et merci
Tanicia