JC de Lorient
XLDnaute Impliqué
Bonjour le forum
Afin de limiter le nombre de formule conditionnée par la valeur d'une cellule je souhaiterais pouvoir ajouter des formules en VBA
explications:
j'ai ce code :
Dim agent, C As Range
Dim a
For Each agent In Sheets('Données').Range('C2:C' & Sheets('Données').Range('C65536').End(xlUp).Row)
With Sheets('Base').Columns(6)
Set C = .Find(agent, LookIn:=xlValues)
If Not C Is Nothing Then
If Month(Sheets('Base').Range(C.Address).Offset(0, -1)) _
= Month(Sheets('Gest Mens').Range('G1')) Then
a = Sheets('Gest Mens').Range('B65536').End(xlUp).Row + 1
Sheets('Gest Mens').Range('B' & a) = C
************
End If
End If
End With
Next
A la place des * je souhaiterais mettre des formules en VBA en colonne C, D, E, F et G
en colonne C et ligne a
=SOMMEPROD((Nom_Agent=B&a)*(MOIS(Terme)=MOIS($G$1)))
en colonne D E F (code semblable donc je devrais pouvoir m'en sortir a partir de le colonne C)
en colonne E =E&a/D&a
Le petit plus serait de pouvoir encadrer les cellules
En espérant avoir été suffisamment clair
merci a tous et bon week end Pascal
Afin de limiter le nombre de formule conditionnée par la valeur d'une cellule je souhaiterais pouvoir ajouter des formules en VBA
explications:
j'ai ce code :
Dim agent, C As Range
Dim a
For Each agent In Sheets('Données').Range('C2:C' & Sheets('Données').Range('C65536').End(xlUp).Row)
With Sheets('Base').Columns(6)
Set C = .Find(agent, LookIn:=xlValues)
If Not C Is Nothing Then
If Month(Sheets('Base').Range(C.Address).Offset(0, -1)) _
= Month(Sheets('Gest Mens').Range('G1')) Then
a = Sheets('Gest Mens').Range('B65536').End(xlUp).Row + 1
Sheets('Gest Mens').Range('B' & a) = C
************
End If
End If
End With
Next
A la place des * je souhaiterais mettre des formules en VBA en colonne C, D, E, F et G
en colonne C et ligne a
=SOMMEPROD((Nom_Agent=B&a)*(MOIS(Terme)=MOIS($G$1)))
en colonne D E F (code semblable donc je devrais pouvoir m'en sortir a partir de le colonne C)
en colonne E =E&a/D&a
Le petit plus serait de pouvoir encadrer les cellules
En espérant avoir été suffisamment clair
merci a tous et bon week end Pascal