Bonjour,
Mon code fonctionnait presque bien jusqu'à ce que je veuille lui ajouter une condition.
Pour chaque item de la liste (FOR EACH), il va chercher la donnée de la variable NBGB dans un TCD (GetPIVOTDATA) et me la colle dans la colone à droite de la liste recherchée (OFFSET(0,1))
Par contre, lorsque je recherche une valeur qui n'est pas dans le TCD, il me colle la valeur de la variable précédente alors que je voudrais qu'il écrive 0.
Donc, je pensais lui dire que si NBGB est error , la valeur =0 ... Ça ne fonctionne pas.
Aussi, Même si la fonction InStr est dans mon code et fonctionne... Je ne comprend pas vraiment sa lecture... Quelqu'un peut me la "traduire" en mot ?
Merci beaucoup !
Windows("Master.xls").Activate
Sheets("feuille1").Select
Set SrchRng = Range("$G$2:$G$15")
For Each Cel In SrchRng
Windows("Data.xlsx").Activate
Sheets("Feuille 1").Select
Set PTGB = ActiveSheet.PivotTables(1)
NBGB = PTGB.GetPivotData("enddaterange", "princname", ClientName, "dept", DEPT, "typedesce", Cel).Value
If IsError(NBGB) Then
Cel.Offset(0, 1).Value = "0"
Else
If InStr(1, Cel.Value, Cel) > 0 Then
Cel.Offset(0, 1).Value = NBGB
End If
End If
Next Cel
Mon code fonctionnait presque bien jusqu'à ce que je veuille lui ajouter une condition.
Pour chaque item de la liste (FOR EACH), il va chercher la donnée de la variable NBGB dans un TCD (GetPIVOTDATA) et me la colle dans la colone à droite de la liste recherchée (OFFSET(0,1))
Par contre, lorsque je recherche une valeur qui n'est pas dans le TCD, il me colle la valeur de la variable précédente alors que je voudrais qu'il écrive 0.
Donc, je pensais lui dire que si NBGB est error , la valeur =0 ... Ça ne fonctionne pas.
Aussi, Même si la fonction InStr est dans mon code et fonctionne... Je ne comprend pas vraiment sa lecture... Quelqu'un peut me la "traduire" en mot ?
Merci beaucoup !
Windows("Master.xls").Activate
Sheets("feuille1").Select
Set SrchRng = Range("$G$2:$G$15")
For Each Cel In SrchRng
Windows("Data.xlsx").Activate
Sheets("Feuille 1").Select
Set PTGB = ActiveSheet.PivotTables(1)
NBGB = PTGB.GetPivotData("enddaterange", "princname", ClientName, "dept", DEPT, "typedesce", Cel).Value
If IsError(NBGB) Then
Cel.Offset(0, 1).Value = "0"
Else
If InStr(1, Cel.Value, Cel) > 0 Then
Cel.Offset(0, 1).Value = NBGB
End If
End If
Next Cel