Discussion :

[remdu62]

Bonjour à toutes et à tous,
j'aimerais savoir si quelqu'un peut m'aider pour la réalisation d'une macro sur Excel.j'ai un fichier à analyser comportant des milliers de lignes.l'objectif est d'introduire dans une nouvelle colonne un montant proportionnel à des cellules d'une autre colonne "Km".
Plus précisément, pour un même numéro de demande et une meme date, je dois calculer un montant proportionnel aux km.
Je met à dispo un fichier pour exemple
Merci.

[Kimy_Ire]

Bonjour remdu62,

Voici le code que je te propose :

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
Option Explicit
 
Sub proportion()
Dim Rng_ini As Range
Dim Rng_fin As Range
Dim j As Integer, k As Integer
 
With Worksheets("Feuil2")
    Set Rng_ini = .Range("A2")
 
    Do While Rng_ini.Row <= .Columns(1).Find("*", , , , , xlPrevious).Row
        k = 1
        Do While Rng_ini.Offset(k, 0) = Rng_ini
            k = k + 1
        Loop
 
        Set Rng_fin = Rng_ini.Offset(-1, 12)
        For j = 1 To k
            'MsgBox "=(" & Rng_fin.Offset(j, -5).Address & "*" & Rng_fin.Offset(j, -1).Address & ")/SOMME(" & Range(Rng_fin.Offset(1, -5), Rng_fin.Offset(k, -5)).Address & ")"
            Rng_fin.Offset(j, 0).FormulaLocal = "=(" & Rng_fin.Offset(j, -5).Address & "*" & Rng_fin.Offset(j, -1).Address & ")/SOMME((" & Range(Rng_fin.Offset(1, -5), Rng_fin.Offset(k, -5)).Address & "))"
        Next j
 
        Set Rng_ini = Rng_ini.Offset(k, 0)
    Loop
 
End With
 
End Sub

J'espère que ça conviendra !
N'hésite pas à revenir vers moi pour tout complément !

Cordialement,
Kimy

[remdu62]

Merci beaucoup Kimy, t'es le roi, Cela fonction en moins 1/10 ème de seconde