Somme Prod et VBA

Version imprimable

01/07/2008, 10h04
Original266

1 pièce(s) jointe(s)

Somme Prod et VBA

Bonjour à tous et à toutes,

J'ai un problème sur lequel je bloque et je pense que quelques uns d'entre vous vont pouvoir m'aider à avancer, du moins je l'espère :mrgreen:

Je vous joins mon fichier de travail, je voudrais le faire encore évoluer de manière à supprimer mes formules sommeprod dans les cellules de calcul (C3:H12 Onglet calcul), en automatisant mes calculs avec VBA.

Quand il n’y a qu’une condition j’ai utilisé les IF et les FOR, mais avec plus de conditions cela risque de faire évoluer mon projet dans quelque chose que je en souhaite pas, c'est-à-dire UNE USINE A GAZ.

Mais en ce qui me concerne je suis bloqué car je ne vois pas comment faire.

Merci

Bonjour

voila ta macro calculg ammaigrie et plus lisible :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Sub calculG()
 
    Dim CA(1 To 6) As Integer
    Dim CB(1 To 6) As Integer
    Dim cel As Range
    Dim ligne As Long, i As Long
 
    With Sheets("BD1")
        ligne = .UsedRange.Rows.Count
        For i = 3 To ligne
            CA(.Cells(i, 12).Value) = CA(.Cells(i, 12).Value) + 1
        Next i
    End With
 
    With Sheets("BD2")
        ligne = .UsedRange.Rows.Count
        For i = 3 To ligne
            CB(.Cells(i, 12).Value) = CB(.Cells(i, 12).Value) + 1
        Next i
    End With
 
    With Sheets("calcul")
        For i = 1 To 6
            .Cells(13, i + 2).Value = CA(i) + CB(i)
        Next i
    End With
 
End Sub

01/07/2008, 10h27
wilfried_42

re:

je viens de voir un probleme, usedrange renvoie 68 alors que le dernier n° de ligne est 60

utilise plutot cette formulation :

Code:

ligne = .Range("A65536").End(xlUp).Row
01/07/2008, 10h31
Original266

Excellent merci beaucoup.
Je vais d'une l'appliquer pour la formule calculT
et de deux essayer d'utiliser cette syntaxe pour coder le reste, je m'y met de suite.

Edit : merci pour la correction :)

Bonjour,
Je vois que j'arrive trop tard mais voici quand même une autre solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Worksheets("calcul").Activate
For Each cel In Range("C3:H12")
NOMBRE = 0
LIGNECEL = cel.Row
COLONNECEL = cel.Column
 
    For Each celBD1 In Worksheets("BD1").Range("A3:A60")
        If celBD1 = cel.Offset(0, 2 - COLONNECEL) And celBD1.Offset(0, 11) = cel.Offset(2 - LIGNECEL, 0) Then
        NOMBRE = NOMBRE + 1
        End If
    Next
 
    For Each celBD2 In Worksheets("BD2").Range("A3:A60")
        If celBD2 = cel.Offset(0, 2 - COLONNECEL) And celBD2.Offset(0, 11) = cel.Offset(2 - LIGNECEL, 0) Then
        NOMBRE = NOMBRE + 1
        End If
    Next
Worksheets("calcul").Activate
cel.Value = NOMBRE
 
Next

01/07/2008, 10h34
Original266

Rhooo excellentissime, merci encore de votre aide.

Ces codes vont beaucoup m’aider.

Un gros résolus bien mérité et surtout ma reconnaissance (j’ai passé 3 heures à essayer de trouver des soluces hier, je débute en VBA)
:ccool:
01/07/2008, 13h55
Gorfael

Salut à tous
une proposition de plus
A+
02/07/2008, 14h08
Original266

Salut,
Merci pour cette solution, bien efficace aussi qui va me permettre de me familiariser avec les boucles For...Next imbriquées et la fonction UBound.

:ccool: