Discussion :

[Pascale B.]

Bonjour le forum,

Dans un premier, je voudrais remercier tous les gens qui prennent gentiment le temps de répondre aux néophytes que que nous sommes! Grace à vous, j'ai pu apprendre à mieux comprendre ce langage mais là j'ai tout un soucis et je n'y arrive pas.

Voilà, j'utilise la fonction countifs qui doit se répéter sur 39 colonnes et sur plus de 1000 lignes. J'ai réussi à créer un code qui fonctionne mais il est extrêmement long à exécuter et je n'ai même pas encore fini la programmation de la macro!

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    'Pour chaque cellule de la colonne G à AM, Compte le nombre code de paiement
    'Défini la colonne dans une variable
        i = 7
        Do While i <= 39
            Set c = Sheets("Exportation").Range("AQ2:A" & DernLigne).Find(Range(Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1) & 1).Value, LookIn:=xlValues)
            If Not c Is Nothing Then
                For Each cell In Range(Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1) & "2:" & Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1) & DernLigne)
                    MaValeur = Range("A" & cell.Row).Value
                    Range(Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1) & cell.Row).Value = WorksheetFunction.CountIfs(Sheets("Exportation").Columns("A"), MaValeur, Sheets("Exportation").Columns("AQ"), Range(Split(Columns(i).Address(ColumnAbsolute:=False), ":")(1) & "1"))
                Next
            End If
        i = i + 1
        Loop

J'ai fait des recherches afin de trouver comment optimiser le temps d'exécution d'une macro et j'ai compris qu'en créant un tableau dans lequel on stock les données, la recherche était beaucoup plus rapide. J'ai donc réussi à créer mon tableau
mais ensuite, je ne sais pas comment faire ma recherche. J'utilise encore mon "for each cell" et je pense que ma nouvelle création prend encore plus de temps que l'ancienne!

Si quelqu'un avait la gentillesse de m'expliquer comment faire une recherche efficace dans mon tableau cela serait grandement apprécié.

Je joints mon fichier pour plus de compréhension.
En gros il y a des dates, des routes et des courses. Je concatène le tout et ensuite je supprime les doublons. Je colle les valeurs sans les doublons dans une autres feuilles dans lequel tous les codes de paiement possible sont inscrit dans les colonnes. La macro doit compter le nombre de code de paiement pour chaque ligne (soit : Date/route/course)

Un immense merci!

[ARTURO83]

Bonjour,

Voici une première proposition, je n'ai traité que la partie de l'importation des colonnes A à F de la feuille "Données" et mis un stop, avant le reste de votre macro inachevée, que vous enlèverez pour la suite.
Pièce jointe 596492

Cdlt

[Pascale B.]

Bonjour Arturo83,

WOW! merci pour cette amélioration! Et aussi merci d'avoir réglé mon problème de doublons . Je vais continué à essayer de trouver une solution pour les colonnes G à AM en attendant de voir si quelqu'un d'autre pourrait me donner une piste de solution.

Bonne journée!

[ARTURO83]

Je vais continué à essayer de trouver une solution pour les colonnes G à AM en attendant de voir si quelqu'un d'autre pourrait me donner une piste de solution.

faites une description de ce que vous attendez dans ces colonnes en précisant bien les correspondances entre les colonnes de la feuille "Exportation" et celles de la feuille "Données".

[FredR92]

Bonjour Pascale B., bonjour ARTURO83,

Par rapport à la solution proposée par ARTURO83, je te propose de charger ton tableau de la façon suivante (pour éviter les boucles For / next):

Code :

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

1
2
3
4
Dim TblEntrée As Variant
 
        If ThisWorkbook.Sheets(Nom_Feuille).Range("A:A").Find("*", , , , xlByRows, xlPrevious).Row > 1 Then
            TblIntermediaire = ThisWorkbook.Sheets(Nom_Feuille).Range(ThisWorkbook.Sheets(Nom_Feuille).Cells(2, 1), ThisWorkbook.Sheets(Nom_Feuille).Cells(ThisWorkbook.Sheets(Nom_Feuille).Cells.Find("*", , , , xlByRows, xlPrevious).Row, ThisWorkbook.Sheets(Nom_Feuille).Cells.Find("*", , , , xlByColumns, xlPrevious).Column))

Le chargement de TblEntrée se fait à partir de la deuxième ligne de la feuille Excel ( .Cells(2,1) ) pour qu'il ne contienne que les données sans les entêtes et la taille du tableau est fonction du nombres de lignes et de colonnes de ta feuille.

Très bonne journée.

Frédéric

[Pierre Fauconnier]

Salut.

Le problème de cet échange de fichiers, c'est qu'on est obligé d'ouvrir le fichier d'arturo pour voir sa solution. Et comme on ne sait pas ce qu'il a proposé, on ne sait pas non plus évaluer la pertinence de la solution proposée par Fred. Je sais que ça en fait râler certains que l'on ne puisse normalement pas poster de fichier dès le premier message de la discussion, mais si on vous demande cela, c'est pour de bonnes raisons... Et les solutions proposées ne parlent même pas des tableaux structurés, apparemment

https://www.developpez.net/forums/d8...s-discussions/