Bonjour.
J'ai un petit souci entre 2 versions d'un code, et malheureusement c'est celle qui me plaît le plus qui plante...
Voici la version qui marche:
Et voici la version qui plante à la 1re ligne. iProjFinancialbudgetcode est une constante, et dernLigneP la dernière ligne de la feuille, déclarée en integer.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For Each cell In Sheets("Projects").Range("J2:J" & dernLigneP) If Left(cell.Value, 2) = "PM" Or Left(cell.Value, 2) = "Pm" Or Left(cell.Value, 2) = "pm" Then cell.EntireRow.Hidden = True Next cell
Avez-vous une idée pour comprendre mon erreur SVP ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 For Each cell In Sheets("Projects").Range(Cells(2, iProjFinancialbudgetcode), Cells(dernLigneP, iProjFinancialbudgetcode)).Cells ' Ca plante aussi sans le .Cells If Left(cell.Value, 2) = "PM" Or Left(cell.Value, 2) = "Pm" Or Left(cell.Value, 2) = "pm" Then cell.EntireRow.Hidden = True Next cell
Partager