Support excel tableau croisé

Fermé

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016 - 15 juil. 2016 à 15:33
jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016 - 21 juil. 2016 à 23:07

Bonjour,
Merci de me support par un macro ou une méthode d'utiliser tableau croisé afin que les X doivent remplacés par leurs valeur en haut (exemple X==>2GA_970_064).

https://www.cjoint.com/c/FGpnFk6Auxj

Merci par votre rapide support svp

A voir également:

Support excel tableau croisé
Tableau croisé dynamique - Guide
Liste déroulante excel - Guide
Tableau ascii - Guide
Formule excel - Guide
Tableau word - Guide

8 réponses

Réponse 1 / 8

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
15 juil. 2016 à 15:59

Bonjour
Une proposition
https://www.cjoint.com/c/FGpn6JRCjJl
Cdlt

Réponse 2 / 8

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
16 juil. 2016 à 22:33

Bonjour,
merci d'abord pr tn support.
le fichier ça marche,
est ce que appliquer ce code pr ce fichier
https://www.cjoint.com/c/FGquB1wrFyr
je souhaite tjr avoir les résultats dans la feuil demande (les info existent dans la feuil Alle famillen
n.b ; la colonnes B ET LA LINNE 2 DOIVENT ETRE ILIMITEs
PAR CE QUE JE VX UTILISER CE FICHIER TJR DANS MON TRAVAIL IL CE PEUT QUE JAURAIS PLUS DES REF DES WIRES ET DES REF 2GA.......
CRD
merci

Réponse 3 / 8

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
17 juil. 2016 à 06:58

Bonjour
Cliquez sur le bouton dans la feuille "Demande"
https://www.cjoint.com/c/FGre5oCy80w
Cdlt

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
17 juil. 2016 à 11:12

Bonjour.
Quand j'essaye d'ouvrir le fichier je reçois un msg (impossible d'ouvrir le fichier. ..car son format ou son extension n'est pas valide.vérifier que le fichier n'est pas endommagé et que son extension correspond bien au format du fichier )
Merci pour le support
Crd

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
17 juil. 2016 à 18:49

Bonjour
N'essayez pas d'ouvrir le fichier directement à partir du lien, sélectionnez plutôt l'option "Enregistrer la cible du lien sous" et choisissez le répertoire de destination.
A partir de là, il s'ouvre très bien.
Cdlt

Réponse 4 / 8

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
17 juil. 2016 à 20:44

bjr.
jai enregistrer le fichier dans mn bureau,et lors de louverture de fichier,ça marche pas.je reçois l msg impossible.
merci jessayer

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
17 juil. 2016 à 21:24

bjr
est ce que tu peux enregistrer le fichier sous format 2010 xlsx.

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 8

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
18 juil. 2016 à 03:17

Bonjour
Autre proposition, j'ai enregistré le fichier au format xlsb
https://www.cjoint.com/c/FGsbmypQhBw
Come le format xlsm, enregistrez le avant de l'ouvrir.
Si ça ne fonctionne toujours pas, voici le fichier au format xlsx
https://www.cjoint.com/c/FGsbpD2Cymw
Il n'y a plus qu'à recopier ce bout de code dans un module

Sub RemplacerXparValeurs()
    Application.ScreenUpdating = False
    Set f1 = Sheets("Alle Familien")
    Set f2 = Sheets("Demande")
    f2.Cells.Clear 'on efface le contenu de la feuille "Demande"
    DerCol = f1.[XFD2].End(xlToLeft).Column
    DerLig = f1.[B1000000].End(xlUp).Row
    For Each Cell In Range(f1.Cells(3, 2), f1.Cells(DerLig, DerCol))
        If Cell.Column = 2 Then
            f2.Cells(Cell.Row + 7, 2).Value = Cell.Value
        ElseIf Cell.Value = "X" Then
            f2.Cells(Cell.Row + 7, f2.Cells(Cell.Row + 7, 16000).End(xlToLeft).Column + 1).Value = f1.Cells(2, Cell.Column).Value
        End If
    Next Cell
    
    'Mise en forme
    f2.Select
    [B9] = "Wires"
    Range(Cells(9, 3), Cells(9, Cells.Find("*", , , , xlByColumns, xlPrevious).Column)) = "Module"
    Columns("B:B").Select
    With Selection 'centrage des éléments de la colonne "B"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    With Selection.Font 'on applique la police "GRAS" aux têtes de lignes
        .Bold = True
        .Color = -11489280 'couleur verte
    End With
    Rows("9:9").Font.Bold = True 'on applique la police "GRAS" aux têtes de colonnes
    Range(Cells(9, 2), Cells(DerLig + 7, DerCol)).Borders().LineStyle = xlContinuous 'on refait le quadrillage du tableau
    Range(Cells(5, 3), Cells(DerLig, DerCol)).EntireColumn.AutoFit 'Ajustement des colonnes
    [G4].Select
End Sub

Essayez
Cdlt

Réponse 6 / 8

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
18 juil. 2016 à 09:52

Bonjour.
Merci pour l'effort. le fichier xlsx est ouvert mais quand je clique sur importation des modules je reçois un msg (impossible d'exécuter la macro "...".il est possible qu'elle ne soit pas disponible dans ce classeur ou que toutes les macros soient désactivees).
Merci d'avance
Crd

Réponse 7 / 8

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
Modifié par Frenchie83 le 18/07/2016 à 10:12

Vous n'avez pas copier dans un module le code fournit précédemment
Sur la feuille EXCEL, appuyez simultanément sur les touches: ALT et F11, (ça ouvre la page VBA)
Clic sur "Insertion" , sélectionnez "Module"
Copiez le code suivant

Sub RemplacerXparValeurs()
    Application.ScreenUpdating = False
    Set f1 = Sheets("Alle Familien")
    Set f2 = Sheets("Demande")
    f2.Cells.Clear 'on efface le contenu de la feuille "Demande"
    DerCol = f1.[XFD2].End(xlToLeft).Column
    DerLig = f1.[B1000000].End(xlUp).Row
    For Each Cell In Range(f1.Cells(3, 2), f1.Cells(DerLig, DerCol))
        If Cell.Column = 2 Then
            f2.Cells(Cell.Row + 7, 2).Value = Cell.Value
        ElseIf Cell.Value = "X" Then
            f2.Cells(Cell.Row + 7, f2.Cells(Cell.Row + 7, 16000).End(xlToLeft).Column + 1).Value = f1.Cells(2, Cell.Column).Value
        End If
    Next Cell
    
    'Mise en forme
    f2.Select
    [B9] = "Wires"
    Range(Cells(9, 3), Cells(9, Cells.Find("*", , , , xlByColumns, xlPrevious).Column)) = "Module"
    Columns("B:B").Select
    With Selection 'centrage des éléments de la colonne "B"
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
    End With
    With Selection.Font 'on applique la police "GRAS" aux têtes de lignes
        .Bold = True
        .Color = -11489280 'couleur verte
    End With
    Rows("9:9").Font.Bold = True 'on applique la police "GRAS" aux têtes de colonnes
    Range(Cells(9, 2), Cells(DerLig + 7, DerCol)).Borders().LineStyle = xlContinuous 'on refait le quadrillage du tableau
    Range(Cells(5, 3), Cells(DerLig, DerCol)).EntireColumn.AutoFit 'Ajustement des colonnes
    [G4].Select
End Sub

et collez dans le module
Essayez

Réponse 8 / 8

jaouadmaroc Messages postés 48 Date d'inscription mardi 19 mars 2013 Statut Membre Dernière intervention 21 juillet 2016
21 juil. 2016 à 23:07

bjr,
merci bcp pour le support ça marche très bien jusqu’à l'instant,
juste une seule question est ce qu'il faut tjrs copier et coller le code vba?
merci
Crd

Newsletters