Bonjour la communauté,
Je viens vers vous pour solliciter votre aide. Je souhaite recopier une ligne ligne entière sauf les valeurs de la colonne A.
Je m'explique : J'ai une macro qui parcours les valeurs de la colonne A (feuille PivotTable). Si la valeur trouvé est égale à la valeur de la celle B2 (feuille Suivi), je veux que la macro me copie toute la ligne de la feuille (PivotTable) sauf les valeurs de la colonne A (IO name) dans la feuille Suivi en colonne B.
J'ai mis ce que je souhaite avoir dans la feuille suivi. Ma macro fonctionne mais pas je le veux.
Merci d'avance
Je viens vers vous pour solliciter votre aide. Je souhaite recopier une ligne ligne entière sauf les valeurs de la colonne A.
Je m'explique : J'ai une macro qui parcours les valeurs de la colonne A (feuille PivotTable). Si la valeur trouvé est égale à la valeur de la celle B2 (feuille Suivi), je veux que la macro me copie toute la ligne de la feuille (PivotTable) sauf les valeurs de la colonne A (IO name) dans la feuille Suivi en colonne B.
J'ai mis ce que je souhaite avoir dans la feuille suivi. Ma macro fonctionne mais pas je le veux.
Merci d'avance
VB:
Sub detailStats()
comptage = 5
campaign = Sheets("Suivi").Range("B2").Value
'Details consolidés par Insertion Order
ActiveWorkbook.Sheets("PivotTable").Activate
For Each ioName In Sheets("PivotTable").Range("A3:A" & Cells(Rows.Count, "A").End(xlUp).Row)
If ioName Like campaign Then
comptage = comptage + 1
Sheets("PivotTable").Rows(ioName.Row).Copy Destination:=Sheets("Suivi").Range("A" & comptage)
End If
Next ioName
ActiveWorkbook.Sheets("Suivi").Activate
End Sub