Discussion :

[Original266]

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

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

[wilfried_42]

Bonjour

voila ta macro calculg ammaigrie et plus lisible :

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
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

[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 :

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

        ligne = .Range("A65536").End(xlUp).Row

[David2304]

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

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
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

[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)

[Gorfael]

Salut à tous
une proposition de plus
A+

[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