Bonjour voici une macr pour masquer les lignes selon un critere qui marche tres bien .
Rows("14:47").Select
Selection.EntireRow.Hidden = True
Range("G14:G47").Select
For Each o In Selection
If o.Value = Range("F9").Value Then
o.EntireRow.Hidden = False
End If
Next
j'essaye desesperement de transformer cette Macro pour masquer des colonnes cette fois ci toujours selon un critère... mais ca marche pas !!
Bonjour
Je viens de tester ta macro, elle fonctionne chez moi:
Code:
Sub essai()
Columns("S:IH").EntireColumn.Hidden = True
Range("S7:IH7").Select
For Each o In Selection
If o.Value = Range("P5") Then
o.EntireColumn.Hidden = False
End If
Next
End Sub
Arf c'est la merdouille, ca marche en =effet sur un autre fichier... pourtant je n'ai pas dans la zone traité de cellules fusionnées ou dans ce genre...qq a une piste ?
tu peux toujours zipper ensuite, mais moi je ne peux pas ouvrir les zip.
sinon certains sites te permettent de mettre à disposition des fichiers plus lourds que la limite du forum, genre cjoint. le soucis est qu'au bout de 21 jours le fichier disparait et les futures consultations du forum ne pourront pas en profiter.