Petit soucis VBA/Excel

2000Kennedy -  
Bonjour,

Cela fait une semaine que je commence à travailler avec du VBA, mon niveau n'est donc pas très élevé, et j'ai quelques difficultés...J'ai perdu beaucoup de temps à chercher une solution, n'en ayant pas trouvé, me voila :x. Je travail avec Excel 2003.

J'ai un Tableau sous Excel, qui possède en colonne 2 informations différente, provenance et date. Sur 2 lignes, j'ai la catégorie du produit et le type de produit, c'est à dire que chaque catégorie est divisée en 3 types de produits. Je souhaiterais retrouver sur une ligne l'ensemble de ces informations, chaque colonne correspondrait à respectivement la provenance, la date, la catégorie du produit, le type de produit. Le but étant de faciliter la lecture au moment du basculement des informations dans ma BDD.

Bien sur des valeurs sont liées au tableau de départ et je souhaiterais les retrouver dans le tableau d'arrivée.

------------------------ Cat produit 1-----------------Cat produit 2
provenance-date---type1----type2-type3----------type1--type2-type3
france-------jan------3--------1-----2 -------------2------1------3
france-------fev------1--------5-----0 -------------8-----2------1
espagne------jan-----x---------x---- x--------------x-----x-------x
espagne------fev -----x---------x----x--------------x-----x------x

ça c'est le tableau de départ et je voudrais:

provenance---cat produit---type---jan--fev
france--------Cat produit1-type1---3----1
france--------Cat produit1-type2---1----5
france--------Cat produit1-type3---2----0
france--------Cat produit2-type1---2----8
etc------------etc----------etc

Sachant que j'ai un nombre i de tableaux de départ qui se trouvent dans des onglets différents et un seul tableau d'arrivée qui est lui aussi sur un onglet à lui et bien sur j'ai plusieurs catégories de produits. plusieurs provenances. 13 mois d'historique. :x Il faut que mon tableux d'arrivée regroupe l'ensemble des données des onglets.

Est ce qu'il existe une fonction vba ou une manip excel qui me permettrait de transformer le tableau 1 dans la forme du tableau 2 Sachant que les données sont liées ? Comment m'y prendre? C'est finalement un peu comme une transposition que je cherche à faire non?.

J'ai commencer à faire quelquechose mais bon bien sur ça marche pas. lol

Sub Copie(Nb_onglet)

Dim ProchaineLigneVide As Integer
For i = 1 To Nb_onglet
sheets(i).activate
With Sheets("feuille1")

ProchaineLigneVide = .Range("A65536").End(xlUp).Row + 1
.Range("A2" & ProchaineLigneVide).Value = ProchaineLigneVide
.Range("B2" & ProchaineLigneVide).Value = Sheets(i)Range("A5").Value
.Range("C2" & ProchaineLigneVide).Value = Sheets(i).").Range("B5").Value
.Range("D2" & ProchaineLigneVide).Value = Sheets(i).").Range("C5").Value
.Range("E2" & ProchaineLigneVide).Value = Sheets(i).").Range("D5").Value
.Range("F2" & ProchaineLigneVide).Value = Sheets(i).").Range("A8").Value
.Range("G2" & ProchaineLigneVide).Value = Sheets(i).").Range("B8").Value

End With

End Sub

Merci d'avance :)

4 réponses

  1. michel_m Contributeur
    Bonjour,

    Combien (environ) as tu de lignes dans ton tableau source ?

    Veux tu absolument pour chaque pays tous les produits, tous les produits 2, ou est ce sans importance ?

    historique sur 13 mois: on commence toujours en Jan et la dernière colonne est donc encore Jan ?

    Pour être + efficace, peux tu joindtre un extrait de ton classeur (données anonymes sur quelques lignes suffisent) sur
    http://cijoint.fr/
    et coller le lien proposé dans ton message

    dans l'attente
    Michel
    1. 2000Kennedy Auteur
      Bonjour michel,

      Dans mon tableau source cela varie selon les onglets, j'ai entre 20 et 1000 lignes au total j'ai 11 000 lignes, mais par la suite il y aura moins de lignes, vu que ce sera mis a jour mois après mois, oui j'ai besoin pour chaque pays de tous les produits

      Pour ce qui est de l'historique, oui ce sera de janvier à janvier.
      Je n'ai pas accès à ce site pour joindre mon fichier ;) proxy sécurisé :(.
      dsl :( Pour le moment je crée l'historique en fait.

      En fait c'est à destination d'une BDD.
      les tableaux que j'ai au départ doivent être remis en forme de manière à pouvoir ensuite les traduire et les liés à access.
      Il faut donc que mon tableau regroupant l'ensemble
      1. michel_m Contributeur
        Re,

        question + précise, excuse moi:

        Veux tu absolument pour chaque pays regrouper tous les produits 1, puis tous les produits 2, etc..ou est ce sans importance ?
        le code serait plus compliqué surtout que je doute d'un tri final sur 11000 lignes et 16 colonnes

        est ce qu'au départ tous les produits sont déjà regroupés par pays (tout France, puis tout Suisse, eetc...?
      2. 2000Kennedy Auteur
        Oui j'aimerais tous les produits. Au départ oui ils le sont. Mes tables se présentent de la même manière que les tableaux que j'ai essayer de simuler dans le post.

        En fait sur ma page finale, je veux récupérer toutes les informations des onglets précédents. Mais en gardant les correspondances de valeurs bien sur. une fois que j'ai toutes les informations en colonne, je voudrais les traduire pour les rendre accessibles à ma BDD access,

        Au final ce que je suis en train de faire sera mis à jour une fois par mois, j'aurais juste à cliquer sur MAJ et le pc va taffer pendant xtemps, à priori cela n'a pas d'importance pour le moment.
    2. michel_m Contributeur
      OK, merci,

      proposition certainement demain fin de matinée (y'a du boulot mine de rien surtout en regroupant par type de produits)
      1. 2000Kennedy Auteur
        Merci bcp :)
        1. michel_m Contributeur
          dans l'apremidi:boucles imbriquées pas tristes et téléphone qui n'arr^te pas (sinon, ce serait pas drôle)
        2. 2000Kennedy Auteur
          Super merci :)
        3. michel_m Contributeur
          tu appelles ton pb un petit souci ? hé bé...

          regarde si cette maquette te convient
          http://www.cijoint.fr/cjlink.php?file=cj201009/cijoMb5hZp.xls

          moi pas: je n'aurais mis qu'une ligne par pays-produit-type pour la récap, mais j'ai éxécuté suivant ta demande; bien que pour envoyé dans access, il y sera facile de faire une requete avec "group by" mais...sur excel, la philosophie du code serait assez différente!
        4. 2000Kennedy Auteur
          Merci bcp :) je regarderais ce soir je suis bloquer par le proxy de la boite :((...
          C'est très gentil de votre part en tout cas :)
        5. michel_m Contributeur
          en attendant voila les codes: 

          Option Explicit
Sub synthetiser_pays()
Dim test
'déclarations pays
Dim dico As Object
Dim nbre As Byte, cptr As Integer, cptr_dico As Integer
Dim derlig As Integer, ref As String
Dim liste
'délarations recensement
Dim cptr_l As Integer, nbre_p As Integer, lig As Integer, cptr_p As Integer, cptr_c As Integer, cptr_t As Integer, cptr_fin As Integer
Dim pays As String
Dim tablo_cat, tablo_type, tablo_fin
Dim col As Byte


Set dico = CreateObject("scripting.dictionary")
nbre = ThisWorkbook.Sheets.Count - 1 ' la feuille récapitulative est en fin de classeur

'------------------------------------crée dico des pays
For cptr = 1 To nbre
    With Sheets(cptr)
        derlig = .Range("A65536").End(xlUp).Row
        For cptr_dico = 3 To derlig
            ref = Application.WorksheetFunction.Proper(.Cells(cptr_dico, 1)) ' force le pays en nom propre
            If Not dico.Exists(ref) Then
                dico.Add ref, ref
             End If
        Next
    End With
Next
'trie les pays par ordre apha
liste = dico.items
trier_croissant liste

'-------recensement par pays
'initialisation des array
tablo_cat = Array("cat produit 1", "cat produit 2")
tablo_type = Array("type 1", "type 2", "type 3")
ReDim tablo_fin(15, 0)

For cptr_l = 0 To UBound(liste)
    pays = liste(cptr_l)
    ' recherche le pays dans les feuilles
    For cptr = 1 To nbre
        With Sheets(cptr)
            'nombre de fois où le pays est indiqué dans la feuille
            derlig = .Range("A65536").End(xlUp).Row
            nbre_p = Application.CountIf(.Range("A3:A" & derlig), pays)
            If nbre_p > 0 Then
                ' mémorise dans le tableau
                    lig = .Columns(1).Find(pays, .Range("A2"), xlValues).Row 'mémorise le pays
                    For cptr_c = 0 To UBound(tablo_cat) 'memorise par cat produit
                    
                        For cptr_t = 0 To UBound(tablo_type) ' morise par type
                            tablo_fin(0, cptr_fin) = .Cells(lig, 1) 'pays
                            tablo_fin(1, cptr_fin) = tablo_cat(cptr_c) ' catégorie
                            tablo_fin(2, cptr_fin) = tablo_type(cptr_t) ' typte
                            
                            For cptr_p = 0 To nbre_p - 1
                                col = Sheets("recap").Rows(2).Find(.Cells(lig + cptr_p, 2), Range("A2")).Column ' mois
                                tablo_fin(col - 1, cptr_fin) = .Cells(lig + cptr_p, 3 * (cptr_c + 1) + cptr_t) 'mémorise la valeur dans la colonne mois
                            Next
                            
                            cptr_fin = cptr_fin + 1
                            ReDim Preserve tablo_fin(15, cptr_fin)
                        Next
                    Next
            End If
        End With
        
      Sheets("recap").Range("A3").Resize(cptr_fin + 1, 16) = Application.Transpose(tablo_fin)
    Next

Next

End Sub


          Sub trier_croissant(tablo)
          'd'après Silkyroad, https://silkyroad.developpez.com/
          Dim i As Long, x As Long, k As Long, tempo As String

          For i = 0 To UBound(tablo)
          x = i
          For k = x + 1 To UBound(tablo)
          If tablo(k) <= tablo(x) Then x = k
          Next k
          If i <> x Then
          tempo = tablo(x): tablo(x) = tablo(i): tablo(i) = tempo
          End If
          Next i

          End Sub

      Discussions similaires

      comment écrire des petits chiffres ?
      Elisa-x3

      9 réponses
      [Ecrire Exposant 12] 10² ou 10³ ok mais...
      tessai

      43 réponses
      Comment écrire un chiffre en petit caractè
      Essegnon

      5 réponses