Discussion :

[koni74]

Bonjour à tous,

Je cherche à faire une macro a priori pas bien compliquée, mais je bloque.
Je vous explique le problème.

J'ai un fichier excel avec 2 feuilles.
La première contient 2 colonnes : une liste de références, et le poids associé à chaque référence
Le souci : chaque référence est décomposée en plusieurs lignes (par composant de la référence) puis en une ligne donnant le total.
Comme ça:
28076
28076
28076
28076 2,1
28076 8,5
28076 7,7
28076 6
28076 6,1
28076 0,5
28076
28076 Total 79,5
28076E
28076E
28076E
28076E 2,1
28076E 8,5
28076E 7,7
28076E 6
28076E 6,1
28076E 0,5
28076E
28076E Total 79,5
28077
28077
28077
28077 2,6
28077 8,5
28077 2,1
28077 6
28077 6,1
28077 0,5
28077
28077 Total 83,7

Dans la deuxième feuille, j'ai également 2 colonnes. La première est un sous-ensemble de la liste de références de la feuille n°1, et la deuxième le chiffre des ventes.
Comme cela :
28076 154
28077 235

Notez que la référence 28076E présente dans la feuille 1 n'est pas dans la n°2

Je souhaite obtenir le poids total des ventes par référence dans la troisième colonne de la feuille n°2, comme cela:
28076 154 12243 -- 79.5 (poids total ref 28076) x 154 (chiffre des ventes ref 28076 ) =12243
28077 235 19669.5

Je n'ai donné un exemple ici que sur 3 références, mais il y en a plusieurs milliers

J'ai essayé de faire ça avec une macro qui copie la ref de la feuille n°2, puis fait une recherche dans la feuille n°1 avec le contenu du presse-papier auquel il faut ajouter le string 'Total'.
Mais j'ai l'imppression qu'avec la fonction Find ce n'est pas possible, et mes essais avec la fonction SearchCells échouent lamentablement.
Il faut dire que mes années de codes sont loin derrière...

Merci à tous pour votre aide!

[E KERGRESSE]

Bonjour,

A tester :

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
29
30
31
 
Sub CalculerLePoidsTotaldesVentes()
 
Dim I As Long, J As Long, DerniereLigne As Long
Dim AireF1 As Range, AireF2 As Range
 
    With Sheets("Feuil2")
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireF2 = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
    End With
 
    With Sheets("Feuil1")
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireF1 = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
    End With
 
    For I = 1 To AireF2.Count
        For J = 1 To AireF1.Count
            If CStr(AireF2(I)) = CStr(AireF1(J)) And InStr(1, AireF1(J).Offset(0, 1), "Total") > 0 Then
                With AireF2(I).Offset(0, 2)
                    .Value = CDbl(Split(Trim(AireF1(J).Offset(0, 1)), " ")(1)) * AireF2(I).Offset(0, 1)
                    .NumberFormat = "#,##0.00"
                End With
            End If
        Next J
    Next I
 
    Set AireF1 = Nothing: Set AireF2 = Nothing
 
 
End Sub