Discussion :

[VBA_LOVER]

Bonjour à tous,

Je travaille beaucoup sur VBA pour faire différents calculs mais là je bloque vraiment. J'ai une sub qui me définit un tableau/plage de 6 lignes et 3 colonnes d'un tableau sur ma page Excel et j'aimerais travailler sur cette plage. Je cherche à calculer la somme des données qui sont sur la première colonne de mon tableau/plage.

Le code qui suit me permet de faire la somme de tout mon tableau/plage mais je n'arrive pas à faire la somme de la première colonne uniquement.

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
 
Sub azerty()
 
ReDim tabportef(6, 3)
 
For k = 1 To 3
For i = 1 To 6
 
    tabportef(i, k) = Cells(i + 1, k).Value
 
Next i
Next k
 
Cells(10, 1).Value = Application.Sum(tabportef)
 
End Sub

Je ne sais pas si vous arriverez à comprendre ma question et à trouver la solution, en tout cas merci beaucoup de votre aide. Le site est vraiment sympa pour résoudre tout un tas de problème VBA

VBA_LOVER

[mercatog]

Code :

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

Cells(10, 1).Value=Application.Sum(Range("A1:A7"))

[VBA_LOVER]

Bonjour,

D'abord merci infiniment d'avoir pris le temps de me répondre aussi rapidement.

J'ai déjà essayé cette méthode mais le problème c'est qu'il prend la range("A1:A7") dans la feuille Excel et non dans mon tableau/plage. Il faut que je spécifie dans mon code qu'il doit prendre la première colonne dans "TabPortef". Il me faudrait un truc du style :

Code :

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

Cells(10, 1).Value = Application.Sum(tabportef.range(("A1:A7") )

mais il ne l'accepte pas.

A défaut j'ai créé un autre tableau/plage ne contenant que la première colonne pour ne pas être perturbé par le reste de la table et cela marche pour la fonction « somme » comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
ReDim tabportef2(6, 1)
 
k = 1
For i = 1 To 6
    tabportef2(i, 1) = tabportef(i, k)
 
Next i
 
Cells(10, 1).Value = Application.Sum(tabportef2)

Je souhaite enfin calculer sur cette même plage le nombre de valeur <0.1, mais bizarrement cela ne fonctionne pas. Le code ci-dessous marche pour une plage d’une feuille Excel normal mais pas pour mon tableau/plage :

Code :

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

Cells(11, 1).Value = Application.CountIf(tabportef2, "<0.1")

Ma question est donc : pourquoi la fonction « somme » marche pour tabportef2 et pas la fonction « countif » (équivalent NB.SI dans Excel) et surtout comment faire pour que cela marche.


Merci encore pour votre aide, c’est vraiment très sympa car j’en ai vraiment besoin

VBA_LOVER

[mercatog]

regarde ceci

Code :

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

1
2
3
4
5
6
7
 
Dim plage As Range
 
Set plage = Range("B4:G10")
 
Cells(12, 2).Value = Application.Sum(plage.Columns(1))
Cells(13, 2).Value = Application.CountIf(plage.Columns(1), ">50")

N'oublie pas ls balises code dans tes messages.

Pourquoi galérer avec tes tableaux alors qu'il y a plus aisé (les Range)


Edit, j'ai supprimé le nom de la procédure test

[VBA_LOVER]

J'ai testé et ton code marche très bien. Le problème c'est que dans mon exemple simpliste je pourrais (et devrais) utiliser une range, mais moi je travaille sur un tableau/plage car je fais différents calculs assez lourds et je risque de faire planter Excel si je mets tout mes résultats sur Excel. Je travaille donc sur des tableau "virtuels", qui n'apparaissent pas sur ma feuille Excel.

J'ai essayer de rajouter "Columns(1)" dans mon expressions :

Code :

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

Worksheets("Feuil1").Cells(13, 2) = Application.CountIf(tabportef.Columns(1), "<0.1")

mais un message d'erreur apparait :

"erreur de compilation / qualificateur incorrect"

Aurais tu une solution pour faire marcher mon calcul sans avoir a passer par des range???

Merci infiniment de ton aide

[Krovax]

Bonjour
une remarque tu travaille sur un tableau à deux dimension pas une plage ce sont deux chose bien distincte

Tu n'as pas du tout les même possibilité

Si les fonction excel ne semble pas fonctionner, tu pourrais peut être parcourir ton tableau non?

Code :

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

1
2
3
4
5
6
7
8
9
 
k=0
for i = 0 to ubound(plage,1)
    for j = 0 to ubound(plage,2)
        if plage(i,j)<0.1 then
           k=k+1
        end if
   next j
next i

A défaut de mieux ca devrais tourner

Autre chose utilise es balise code quand tu donne un code tes message sont illisible!

[VBA_LOVER]

Salut Krovax,

Merci pour ta réponse et dsl pour le code illisible, je ne savais pas cmt je devais faire.

Oui en effet faire un compteur devrait marcher, j'y avais pensé mais j'espéré trouver plus simple. Concernant mon tableau j'ai testé d'en refaire un avec une seule colonne (donc une seule dimension) mais cela ne marchait pas non plus. C la fonction qui semble incompatible avec le tableau. La fonction "somme" marche par ex, mais pas "NB.SI".

Et c'est vrai que le code du compteur est assez simple, et c'est bcp plus long en terme de calcul je pense

Merci infiniment pour vos réponses, le site est vraiment très bien et les intervenants également, ca fait plaisir

A très bientôt

VBA_LOVER