Bonjour la communauté,
J'ai développé une macro qui marche comme je le souhaiterai sauf qu'elle se met à s'exécuter à chaque fois qu'on l'exécute.
Il ne devrait pas y avoir de doublons aux colonnes H, I et J. La macro ne doit s'exécuter qu'une seule fois pour chaque valeur en B2.
Merci pour votre aide
J'ai développé une macro qui marche comme je le souhaiterai sauf qu'elle se met à s'exécuter à chaque fois qu'on l'exécute.
Il ne devrait pas y avoir de doublons aux colonnes H, I et J. La macro ne doit s'exécuter qu'une seule fois pour chaque valeur en B2.
Merci pour votre aide
VB:
Sub RepartitionDSP()
Application.ScreenUpdating = False
' Cette macro remplit la répartion de chaque campagne sur les différents DSP
s = 0
Dim dsp, entete As Range
Set entete = Sheets("Info").Cells.Find(what:="Vendor Name")
derL = Sheets("Info").Cells(entete.Row, entete.Column).CurrentRegion.Rows.Count - 1
For Each dsp In Sheets("Info").Range("J1:J3")
If dsp <> "" And Range("B2").Value <> "" Then
s = s + 1
'Vendor Name
Sheets("Info").Cells(entete.Row + derL + s, entete.Column) = dsp
'Budget
Sheets("Info").Cells(entete.Row + derL + s, entete.Column + 1) = dsp.Offset(, 1)
'Insertion Order
Sheets("Info").Cells(entete.Row + derL + s, entete.Column + 2) = Range("B2").Value
End If
Next dsp
End Sub
Pièces jointes
Dernière édition: