Bonjour,
J'ai un petit problème avec une boucle que je voulais réaliser.
Je voulais créer une boucle à partir de la cellule F7 jusque la dernière cellule non vide qui vérifie si la valeur de chaque cellule est alert ou epidemic.
Si c'est le cas, ma boucle doit créer un tcd, sinon elle doit vérifier la valeur suivante.
J'ai tenté avec le code ci-dessous, sans succés
Merci d'avance pour vos réponses
J'ai un petit problème avec une boucle que je voulais réaliser.
Je voulais créer une boucle à partir de la cellule F7 jusque la dernière cellule non vide qui vérifie si la valeur de chaque cellule est alert ou epidemic.
Si c'est le cas, ma boucle doit créer un tcd, sinon elle doit vérifier la valeur suivante.
J'ai tenté avec le code ci-dessous, sans succés
PHP:
Range("F7:F250").Select
For Each Cell In Selection
X = X + 1
ActiveCell.Offset(1, 0).Select
If ActiveCell.Value = "Epidemic" Or ActiveCell.Value = "Alert" Then
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=
"'CR Database'!R1C1:R28515C23").CreatePivotTable TableDestination _
:="", TableName:="Tableau croisé dynamique1", DefaultVersion:= _
xlPivotTableVersion10
ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
ActiveSheet.Cells(3, 1).Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").AddFields RowFields:= _
Array("Cat 1", "Cat 2", "New fault code ", "Period")
With ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Defect")
.Orientation = xlDataField
.Caption = "Somme de Defect"
.Function = xlSum
End With
ActiveWorkbook.ShowPivotTableFieldList = True
Range("A4").Select
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotFields("Cat 1"). _
Subtotals = Array(False, False, False, False, False, False, False, False, False, False, _
False, False)
Merci d'avance pour vos réponses