Discussion :

[patoune08]

Bonjour,
Je suis novice en VBA, mais j’ai réussi à faire plusieurs projets grâce à votre forum dans le cadre de mon travail.
Mais là je suis coincé, je n’arrive pas à trouver la solution.
Le fichier joint est un exemple du tableau de base dont je dois extraire des statistiques de couts (en cliquant sur un bouton).
Le nombre de colonnes est bon, mais le tableau fait entre 1500 et 2000 lignes, les colonnes H à K sont remplies avec OUI ou NON.
Je dois créer une feuille par nom de la colonne A avec les résultats suivant :
- Cout moyen total soit : colonne G/Nbre de lignes (ça c’est simple). Avec % de correction (« attribué » par rapport à « réclamé »). Puis suivant les conditions sur les feuilles en exemples (je n’en ai mis que deux mais il en faut une par nom soit une douzaine).
J’ai essayé avec « FiltreArrayLignes » mais je n’ai pas réussi à le faire fonctionner.
J’ai essayé avec les filtres automatiques sans succès.
J’ai essayé en faisant des boucles avec IF mais c’est beaucoup trop long.
Je pense que le plus rapide serait de le faire en « tableau » mais je n’arrive pas à comprendre et à mettre en forme.
J’espère que vous comprendrez ce que je souhaite et que vous pourrez m’aider en m'aiguillant sur la marche à suivre.
Merci d’avance.

[Palatinus]

Tu veux passer ta plage en tableau pour que les opérations soit plus rapides (et c'est une bonne idée). Tu n'as pas toujours le même nombre de données, donc le tableau doit être dynamique. Au choix, tu fais un tableau par colonne (nom, nomClient, typeAchat...), soit un gros tableau avec toutes les valueurs, en deux dimensions (monTableau).
Dans ce cas, la syntaxe est

Code :

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

1
2
3
4
5
6
7
8
 
Dim monTableau() As Variant
Dim nbDonnees As Integer
Dim nbColonnes As Integer
nbDonnees = Worksheets("DATA").Range("A1").End(xlDown)).Row
nbColonnes = 11
Redim monTableau(nbDonnees, nbColonnes)
monTableau = Worksheets("DATA").Columns(1& ":" & nbColonnes).Rows("1:" & nbDonnees).Value

Voilà. Après tu fais tes opérations sur le tableau telles que :

Code :

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

1
2
3
4
5
6
7
8
9
 
For j = dIci To jusqueLa
For i = 1 To nbDonnees
If monTableau(i,j) = truc Then
machin
Else: chose
End If
Next i
Next j

A adapter selon truc, machin, chose, dIci, jusqueLa.

EDIT : ce tableau comprends les entetes en 1ere ligne, tu peux la zapper si ça t'arrange (pars de 2 dans Rows() )

[patoune08]

Merci beaucoup pour ton aide.

J'ai joint le fichier avec le début de code.
J'ai le message d'erreur suivant :

Erreur d’exécution '1004':
Erreur définie par l'application ou par l'objet

Sur la ligne suivante dans le module 2 :

Code :

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

monTableau = Worksheets("DATA").Columns("1:" & nbColonnes).Rows("1:" & nbDonnees).Value

[Menhir]

Tu as pensé à regardé le contenu des variables lorsque l'erreur est générée ?

[patoune08]

nbColonnes = 11
nbDonnees = 28
Ce qui est correct
Merci

[Philippe Tulliez]

Bonjour,
Si ta liste de données commence en cellule A1 (et que la première ligne et première colonne est bien remplie) , il y a plus simple

Code :

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

1
2
 Dim monTableau()
 monTableau = Worksheets("Data").Range("A1").CurrentRegion.Value

monTableau(1,1) contiendra les données de la cellule A1 et monTableau(4,2) les données de B4

[patoune08]

J'ai modifié la ligne comme cela :

Code :

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

monTableau = Worksheets("DATA").Range("A1:K" & nbDonnees).Value

Et ça fonctionne.

Je continu de coder et je posterais ce que j'aurais fait (en espérant que cela fonctionne).