IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Report de données


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Octobre 2020
    Messages
    23
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 30
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Octobre 2020
    Messages : 23
    Par défaut Report de données
    Bonjour,

    Mon problème est simple. Mon fichier Excel est compose de deux feuilles. Une feuille test ou l'on veut récupérer des informations et une feuilles données.
    Je veux remplir le tableau de la feuille test en indiquant les différents types(IM150, SHP100...) et la quantité correspondante en supprimant les doublons.
    Une information importante est que la colonne type dans données ne se trouve pas forcément au même emplacement ( ici colonne F).

    Merci de votre aide,

    Test6.xlsx

  2. #2
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    Bonjour

    ce n'est pas un tableau croisé dynamique ça ?? en ligne les code et les quantité en valeur ?

  3. #3
    Expert confirmé Avatar de BENNASR
    Homme Profil pro
    Responsable comptable & financier
    Inscrit en
    Décembre 2013
    Messages
    2 974
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Responsable comptable & financier
    Secteur : Finance

    Informations forums :
    Inscription : Décembre 2013
    Messages : 2 974
    Par défaut
    si c'est dans le cadre d'un projet qui nécessite VBA
    tu peux faire avec les dictionnaires
    à tester
    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
    Sub verif()
    Dim unique As New Collection
    Dim F1 As Worksheet
    Dim F2 As Worksheet
    Application.ScreenUpdating = False
    Set F1 = Sheets("Donnees")
    Set F2 = Sheets("Test")
     
      Set d = CreateObject("Scripting.Dictionary")
      TblBD = F1.Range("D4:F" & F1.[D65000].End(xlUp).Row)
      For i = 1 To UBound(TblBD)
        clé = TblBD(i, 3)
        d(clé) = d(clé) + TblBD(i, 1)
      Next i
      F2.[B7].Resize(d.Count) = Application.Transpose(d.keys)
      F2.[C7].Resize(d.Count) = Application.Transpose(d.items)
    Application.ScreenUpdating = True
    F2.Select
    End Sub

Discussions similaires

  1. reporté une donnée dans un plus grand intervalle
    Par pesspess dans le forum MATLAB
    Réponses: 1
    Dernier message: 12/06/2008, 17h03
  2. [Crystal Report] Double données DATASET.
    Par GarsDuCalvados dans le forum VB.NET
    Réponses: 2
    Dernier message: 10/06/2008, 08h19
  3. Report de données dans un nouvel enregistrement
    Par Loumi_69 dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 10/05/2008, 19h01
  4. Reporter une donnée sur un nouvel enregistrement
    Par aouregan dans le forum Access
    Réponses: 3
    Dernier message: 18/01/2007, 17h09
  5. [Crystal Report] sub et main report (récupération données)
    Par ptitsoleil87 dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 06/07/2006, 12h04

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo