XL 2010 Code extraction Tableau plante

[cp4]

Bonjour,

Un copain m'a envoyé un fichier récupérer d'un forum pour extraire des données en utilisant les tableaux vba.

Voilà, j'inscris un mon montant en G1 et le code extrait toutes les factures dont le montant HT est supérieur à la valeur de la cellule G1.

Le code fonctionne bien sauf pour certaines valeurs, j'ai un message de dépassement de capacité.

Merci de m'indiquer comment y remédier. Je ne maîtrise pas bien ces tableaux vba.

Bonne journée.

 

[Staple1600]

Bonjour le fil, le forum

@cp4
Quand tu parles d'un forum?
Tu parles de celui-ci ?

 

[Lone-wolf]

Bonjour cp4 , re Jean Marie

@cp4: ton fichier en retour.

EDIT: date facture 01.01.1930??? Et tu n'as pas fait faillite depuis le temps que ces factures non pas été payées???

 

[cp4]

Bonjour le fil, le forum

@cp4
Quand tu parles d'un forum?
Tu parles de celui-ci ?

Bonjour JM,

Non, il m'avait dit que le forum ou blog, je ne m'en souviens pas, avait été piraté.
Je lui demanderai dès son retour de voyage.
Je regarderai la discussion de ton lien.
Merci.
Bon week-end.

 

[Lone-wolf]

Re

@cp4
EHI CP4!! ET MOI JE COMPTE POUR DES PRUNES??

 

[cp4]

Bonjour cp4 , re Jean Marie

@cp4: ton fichier en retour.

EDIT: date facture 01.01.1930??? Et tu n'as pas fait faillite depuis le temps que ces factures non pas été payées???

Bonjour Lone-wolf,
C'était juste pour avoir une masse de lignes pour illustrer l'exemple.
J'ai retouché aux données du fichier reçu.

Ton code est parfait. Je reconnais que j'ai une petite mémoire.
Car j'avais lu, sur ce forum, d'autres forums et via Google qu'il existait une astuce pour contourner ce problème.
Je suis entrain de me faire un fichier (genre aide mémoire) pour essayer d'assimiler la manipulation
des tableaux vba. J'espère que ça va rentrer dans ma petite tête.

Merci beaucoup

Bon week-end.

 

[cp4]

Re

@cp4
EHI CP4!! ET MOI JE COMPTE POUR DES PRUNES??

Non, pas du tout.
Je réponds toujours par ordre chronologique. C'est la moindre des politesses.
Au moment, que je rédigeais ma réponse. Tu as lu ma réponse à JM et tu t'es empressé de me charger.

Au souci de mon coté, je te dois ma reconnaissance.
Quoique, j'imagine un peu si j'étais à côté de toi?????!!!!

 

[Lone-wolf]

Re cp4

@cp4:

Quoique, j'imagine un peu si j'étais à côté de toi?????!!!!

Détrompe-toi, malgré le petit loup que je suis, je suis doux comme un agneau.

 

[Lone-wolf]

Bonjour cp4

@cp4

Tu peux aussi faire comme ceci

    ReDim tablo(1 To lig, 1 To col)
  
    For i = 1 To UBound(tbl)
        If tbl(i, 5) > tot Then
            k = k + 1
            For j = 1 To col
                tablo(k, j) = tbl(i, j)
            Next
        End If
    Next
    wb.Range("h6") = k  'Nombre de factures

    wb.Range("k2").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo

 

[cp4]

Salut Lone-wolf,

Merci beaucoup. Pour un loup, tu as le cœur tendre.
Gentil de ta part. Entre nous, les tableaux et autres objets me déroutent.
je n'ai pas encore assimilé. Remarque, je n'ai pas assez de temps pour m'y mettre sérieusement.

Encore merci, bonne soirée.