probleme de synthe de fichier excel

Version imprimable

27/06/2021, 20h45
nicogef

1 pièce(s) jointe(s)

probleme de synthe de fichier excel

bonjour,

j'ai un probleme je dois sortir d'un ficher des donné mais je ne sais pas part quel bout commencé.

j'ai un fichier exemple feuille de donné et feuille de résultat qui est qu'une toutes petite partie

Pièce jointe 600680

merci de votre aide

cdlt
nicogef
01/07/2021, 14h26
EricDgn

Bonjour,

Est-il vraiment indispensable de partir de la feuille "base" telle que présentée ou peut-on la modifier avant de l'utiliser ?

Cordialement.
04/07/2021, 09h47
nicogef

bonjour,

je ne peux pas modifier le fichier d’Origné
mais on peux faire une copier sur une feuille et le modifier par vba

cordialement
nicogef
04/07/2021, 10h03
78chris

Bonjour à tous

Quelle est ta version Excel ?

Doit-t-on écrire
Salle ou bien 13 – salle ?
Ligne ou bien 13.1 – Ligne ?
04/07/2021, 10h35
nicogef

bonjour,
version excel 2013

c'est bien 13 - salle et idem pour les lignes
désole que se n’était pas si claire
merci d'avance pour ton aide
cordialement
nicogef

Bonjour

Si tu peux inbstaller l'add on PowerQuery (totalement intégré à Excel à partir de 2016) il est possible de créer

une plage nommée Data par la formule

Code:

=DECALER(base!$A$5;;;NBVAL(base!$C:$C);4)

une requête

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
let
    Source = Excel.CurrentWorkbook(){[Name="Data"]}[Content],
    #"Type modifié" = Table.TransformColumnTypes(Source,{{"Column1", type text}, {"Column2", type text}, {"Column3", type text}, {"Column4", type text}}),
    #"Personnalisée ajoutée" = Table.AddColumn(#"Type modifié", "Salle", each if [Column3] = "****" then [Column1] else null),
    #"Personnalisée ajoutée1" = Table.AddColumn(#"Personnalisée ajoutée", "Ligne", each if [Column3] = "***" then [Column1] else null),
    #"Personnalisée ajoutée2" = Table.AddColumn(#"Personnalisée ajoutée1", "Machine", each if [Column3] = "**" then [Column2] else null),
    #"Personnalisée ajoutée3" = Table.AddColumn(#"Personnalisée ajoutée2", "Coffret électrique", each if [Column3] = "*" then [Column2] else if [Column3] = "**" then "" else null),
    #"Rempli vers le bas" = Table.FillDown(#"Personnalisée ajoutée3",{"Salle", "Ligne", "Machine","Coffret électrique"}),
    #"Lignes filtrées1" = Table.SelectRows(#"Rempli vers le bas", each ([Column3] = "nc/a" or [Column3] = "nc/s")),
    #"Valeur remplacée" = Table.ReplaceValue(#"Lignes filtrées1","",null,Replacer.ReplaceValue,{"Coffret électrique"}),
    #"Colonnes renommées" = Table.RenameColumns(#"Valeur remplacée",{{"Column2", "Contrôle"}, {"Column3", "Valeur"}}),
    #"Autres colonnes supprimées" = Table.SelectColumns(#"Colonnes renommées",{"Salle", "Ligne", "Machine", "Contrôle", "Coffret électrique", "Valeur"})
in
    #"Autres colonnes supprimées"

pour obtenir ton tableau Résultat

04/07/2021, 11h39
nicogef

bonjour,
ton code fonctionne bien

mais le probleme je ne peux pas installer l'addons power query. sur l'ordinateur du travail version excel 2013

mais merci de ton aide
cdlt
nicogef

RE

J'ai toujours du mal à comprendre que des entreprises qui utilisent des versions vieilles de 7 ans, n'installent pas au moins les compléments Microsoft disponibles et notamment PowerQuery... Tu devrais en parler au service informatique

Code:

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
39
40
41
42
43
44
45
46
47
48
49
Option Base 1
Option Explicit
Sub Resultat()
    Dim Data As Range, Rresultat(), Base()
    Dim Salle As String, Ligne As String, Machine As String, CE As String
    Dim i As Long, j As Long
 
    Set Data = Worksheets("base").Range("A5").CurrentRegion
    Base = WorksheetFunction.Transpose(Data)
 
    ReDim Rresultat(Data.Rows.Count - 2, 7)
 
    Rresultat(1, 1) = "Salle"
    Rresultat(1, 2) = "Ligne"
    Rresultat(1, 3) = "Machine"
    Rresultat(1, 4) = "Contrôle"
    Rresultat(1, 5) = "Coffret électrique"
    Rresultat(1, 6) = "Valeur"
    Rresultat(1, 7) = "Commentaire"
 
    j = 2
    For i = 1 To UBound(Base, 2)
        Select Case Base(3, i)
             Case "****"
                Salle = Base(1, i)
             Case "***"
                Ligne = Base(1, i)
             Case "**"
                CE = ""
                Machine = Base(2, i)
             Case "*"
                CE = Base(2, i)
             Case Is <> "c"
                Rresultat(j, 1) = Salle
                Rresultat(j, 2) = Ligne
                Rresultat(j, 3) = Machine
                Rresultat(j, 4) = Base(2, i)
                Rresultat(j, 5) = CE
                Rresultat(j, 6) = Base(3, i)
                j = j + 1
         End Select
    Next i
 
    With Worksheets("resultat")
        .Range("A1:G" & j - 1) = Rresultat
        .ListObjects.Add(xlSrcRange, .Range("A1:G" & j - 1), , xlYes).Name = "Résulat"
    End With
 
End Sub

04/07/2021, 18h52
nicogef

bonjour,

merci pour ton code qui fonctionne a merveille.
j'ai plus utilisé sur une copie du fichier et sur un autre fichier en modifiant le code

merci

cdlt
nicogef