Discussion :

[nicogef]

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

fichier recap.xlsm

merci de votre aide

cdlt
nicogef

[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.

[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

[78chris]

Bonjour à tous

Quelle est ta version Excel ?

Doit-t-on écrire
Salle ou bien 13 – salle ?
Ligne ou bien 13.1 – Ligne ?

[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

[78chris]

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 :

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

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

• une requête

  Code :

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

  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