Excel 2003 : menu Données Grisée
Résolu
Bonjour,
j'ai un fichier qui ne me permet pas d'acceder aux commandes du menu Données car tout est grisé => pas possible de supprimer filtre,de faire trie etc....
à l'origine mon problème est de retrouver outes les lignes quand je ne veux plus filtrer suivant les critère, j'ai fait en vba mais trop débutant pour trouver...
le but était de trier suivant x critères placé en A1:T2, mes données situées juste en dessous.
cela fonctionne quand je mets quelque chose dans les cellules B2 à T2 mais dès que je retire tout de B2:T2 pour avoir l'ensemble de mes donénes cela plante et tourne en rond jusqu'à ce que j'interrompe par CTRL+Break...
voici le code que je lance à chaque modif sur la page
a = ActiveCell.Row
b = ActiveCell.Column
num_ligne = Cells(4, 1) + 40
zone = Cells(2, 21)
If zone <> "" Then
Range(Cells(8, 1), Cells(num_ligne, 20)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:T2"), Unique:=False
Else
ActiveSheet.ShowAllData
end if
désolé cela fait 2 question mais elles sont peut-être liées.
merci d'avance pour votre aide
désolé je ne peux pas vous envoyer le fichier
j'ai un fichier qui ne me permet pas d'acceder aux commandes du menu Données car tout est grisé => pas possible de supprimer filtre,de faire trie etc....
à l'origine mon problème est de retrouver outes les lignes quand je ne veux plus filtrer suivant les critère, j'ai fait en vba mais trop débutant pour trouver...
le but était de trier suivant x critères placé en A1:T2, mes données situées juste en dessous.
cela fonctionne quand je mets quelque chose dans les cellules B2 à T2 mais dès que je retire tout de B2:T2 pour avoir l'ensemble de mes donénes cela plante et tourne en rond jusqu'à ce que j'interrompe par CTRL+Break...
voici le code que je lance à chaque modif sur la page
a = ActiveCell.Row
b = ActiveCell.Column
num_ligne = Cells(4, 1) + 40
zone = Cells(2, 21)
If zone <> "" Then
Range(Cells(8, 1), Cells(num_ligne, 20)).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
Range("A1:T2"), Unique:=False
Else
ActiveSheet.ShowAllData
end if
désolé cela fait 2 question mais elles sont peut-être liées.
merci d'avance pour votre aide
désolé je ne peux pas vous envoyer le fichier
