Macro pour afficher les cellules non filtrées

[sknd2010]

Bonjour tout le monde,

Voici j'ai réussi avec l'aide d'un XDLnaute à résoudre le probleme avec une macro mais malheureument je me suis emballer un peu trop vite.
En fait le macro beug s'il y a des cellules cachées par un filtrage.
quelqu'un sait-il quel code ajouté pour résoudre ce probleme.

Merci par avance

 

[Pierrot93]

Re : Macro pour afficher les cellules non filtrées

Bonjour,

sans plus de détails difficile de t'apporter une aide...

regarde peut être du coté de la méthode "SpecialCells" en utilisant le type "xlCellTypeVisible", mais sans voir le code utilisé et sans fichier... pas top...

bonne journée
@+

 

[sknd2010]

Re : Macro pour afficher les cellules non filtrées

Bonjour Pierrot93,

Voici le code macro :

With Sheets("feuil1")
.ShowAllData
.Unprotect ("toto")
.Select
derligne = ActiveSheet.Range("C65536").End(xlUp).Row
Range("A1:A" & derligne).Select
Selection.Insert Shift:=xlToRight
Selection.FormulaR1C1 = f1.Name
'inclu_nom_fichier fin
derligne = ActiveSheet.Range("C65536").End(xlUp).Row

'Rows(1).Copy Workbooks(ceclasseur).Sheets(1).Range("A" & ii + 1)
If derligne > 17 Then
Rows(17 & ":" & derligne).Copy
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteValues
Workbooks(ceclasseur).ActiveSheet.Range("A" & ii + 1).PasteSpecial Paste:=xlPasteFormats
End If 'Attention "Rows (2 " permet de ne pas copier le titre des fichier
ActiveWorkbook.Close savechanges:=False
End With 'fin code pour soucis protection
End If

Le soucis c'est que quand il y a un filtre la macro ne fonctionne pas. Ainsi, je voudrai ajouté un code qui me permet d'enlever les filtres et d'afficher toutes les cellules.
je sais que le code ActiveSheet.ShowAllData permet d'enlever les filtres mais je ne sais pas comment l'intégrer dans cette macro.

Merci d'avance

 

[Pierrot93]

Re : Macro pour afficher les cellules non filtrées

Bonjour,

cela veut dire quoi, "la macro ne fonctionne pas" ??? message d'erreur ou pas le résultat attendu....

modifie peut être déjà ceci, en mettant la déprotection avant l'action sur le filtre :

With Sheets("feuil1")
.Unprotect ("toto") 
.ShowAllData
.Select

d'autre part je vois ceci :

ActiveWorkbook.Close savechanges:=False

cela veut dire que les modifications sur le classeur actif ne seront pas prises en compte...

bon après midi
@+

 

[sknd2010]

Re : Macro pour afficher les cellules non filtrées

Re Pierrot93,

J'ai essayé loe code :
With Sheets("feuil1")
.Unprotect ("toto")
.ShowAllData
.Select

Mais ca ne marche en fait la macro ne démarre même pas et le message d'erreur me renvoie à la ligne
.ShowAllData


Pour le code : ActiveWorkbook.Close savechanges:=False
Oui la compilation c'est juste pour rassembler les donner mais les changements ne sont pas ainsi enrégistrés.

Merci d'avance !

 

[Pierrot93]

Re : Macro pour afficher les cellules non filtrées

Re

"ShowAllData" renvoie une erreur si filtre non présent ou non activé, il y a lieu de faire un test au préalable, essaye ainsi :

With ActiveSheet
    If .AutoFilterMode And .FilterMode Then .ShowAllData
End With

@+

 

[sknd2010]

Re : Macro pour afficher les cellules non filtrées

Re Pierrot93,

Ca marche Nickel !

Merci Beaucoup et bonne fin de soirée !