Hello,
Je crois que je me suis mal exprimé :
La 1ère partie de ma macro marche impec lorsqu'elle est isolée :
Sub suppression()
Sheets("datas").Select
Range("J1").Offset(1, 0).Select
Do Until ActiveCell = Range("J10000")
If ActiveCell = "FALSE" Then
selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Cette macro me permet de supprimer toutes les lignes lorsqu'il y a en colonne J la mention "False" à l'intérieur d'une cellule.
La fonction "Loop" me permet de faire agir la macro tant que toutes les lignes n'ont pas été supprimées.....en effet, la suppression d'une ligne entraîne la remontée de la future cellule active qui devrait théoriquement être traitée......donc en remontant celle-ci évite le traitement d'où l'utilisation de la fonction "Loop".
Mon pb arrive....
Si je laisse la fonction "Loop" en insérant une nouvelle macro à la suite du style :
Sub Update_Total()
Sheets("datas").Select
Range("J1").Offset(1, 0).Select
Do Until ActiveCell = Range("J10000")
If ActiveCell = "FALSE" Then
selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
Sheets("TCD").Select
Range("C16").Select
ActiveSheet.PivotTables("PivotTable5").RefreshTable
Cells.Select
Cells.EntireColumn.AutoFit
End Sub
Ma macro fonctionne mais si je fais "F8" pour la contrôler, cela bloque au niveau de la focntion "Loop", cela ne va pas plus bas......est-ce qu'il y a une conséquence ?
Merci à vous.
Cdlt
Fred