Arnaud dit Citro
XLDnaute Junior
Bonjour à tous,
A partir du code que m'ont donné Staple1600 et Frangy (que je remercie de nouveau) sur ce post : https://www.excel-downloads.com/thr...-selon-criteres-macro.20031363/#post-20231191 et que j'ai adapté à plusieurs feuilles sans aucun problème, j'ai créé ce code :
Ce code fonctionne parfaitement, B6 devient bien B7 à la création du second vendeur et B8 au suivant. Mais (parce que forcément il y a un mais), il faudrait qu'à la création du second vendeur et des suivants, la formule concernant la feuille "Devis" avance de 4 colonnes, c'est à dire :
deviendrait
pour le second vendeur et
pour le suivant et ainsi de suite.
Si toutefois cela est possible.
Bon dimanche à tous
Arnaud
A partir du code que m'ont donné Staple1600 et Frangy (que je remercie de nouveau) sur ce post : https://www.excel-downloads.com/thr...-selon-criteres-macro.20031363/#post-20231191 et que j'ai adapté à plusieurs feuilles sans aucun problème, j'ai créé ce code :
VB:
With Sheets("Statistiques")
.Rows("6:6").Insert shift:=xlDown
ColSta = Application.Max(.Cells(6, Columns.Count).End(xlToLeft).Column, 1) + 1
.Cells(6, ColSta).Formula = "=BdD_Vendeur!A" & Fve
If ColSta = 2 Then
.Cells(6, ColSta + 1).Formula = "=IF(B6=Devis!Y$7,COUNTIFS(Devis!Y$8:Devis!Y$1000,1),0)"
Else
.Cells(6, 2).Resize(1, 2).Copy .Cells(6, ColSta)
.Cells(6, 2).Resize(1, 2).Copy .Cells(6, ColSta + 1)
Application.CutCopyMode = False
End If
End With
Ce code fonctionne parfaitement, B6 devient bien B7 à la création du second vendeur et B8 au suivant. Mais (parce que forcément il y a un mais), il faudrait qu'à la création du second vendeur et des suivants, la formule concernant la feuille "Devis" avance de 4 colonnes, c'est à dire :
Code:
"=IF(B6=Devis!Y$7,COUNTIFS(Devis!Y$8:Devis!Y$1000,1),0)"
Code:
"=IF(B7=Devis!ACY$7,COUNTIFS(Devis!AC$8:Devis!AC$1000,1),0)"
Code:
"=IF(B8=Devis!AG$7,COUNTIFS(Devis!AG$8:Devis!AG$1000,1),0)"
Si toutefois cela est possible.
Bon dimanche à tous
Arnaud