Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : i2spio$iph$1@speranza.aioe.org...
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$ba4acef3@reader.news.orange.fr...
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : i2spio$iph$1@speranza.aioe.org...
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$ba4acef3@reader.news.orange.fr...
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
si tu désires,
Envoie moi ton fichier sur mon adresse Hotmail...
je regarde plus tard dans la journée.
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c52b136$0$10231$
Bonjour MichD,
c'est du Excel2003
la macro n'a rien réglé
mais ce n'est pas grave j'ai recréé un nouveau classeur en copiant chaque
feuille.
J'ai dû certainement tester une macro en prenant ce fichier comme
référence
!
Bon ça serait bien pour la communauté si on pouvait découvrir la cause et
le
remède sur cet "ancien fichier"
Cordialement
Michel dit "Sam"
"michdenis" a écrit dans le message de news:
i2spo2$j3j$Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
si tu désires,
Envoie moi ton fichier sur mon adresse Hotmail...
je regarde plus tard dans la journée.
--
MichD
--------------------------------------------
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe de
discussion :
4c52b136$0$10231$ba4acef3@reader.news.orange.fr...
Bonjour MichD,
c'est du Excel2003
la macro n'a rien réglé
mais ce n'est pas grave j'ai recréé un nouveau classeur en copiant chaque
feuille.
J'ai dû certainement tester une macro en prenant ce fichier comme
référence
!
Bon ça serait bien pour la communauté si on pouvait découvrir la cause et
le
remède sur cet "ancien fichier"
Cordialement
Michel dit "Sam"
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
i2spo2$j3j$1@speranza.aioe.org...
Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" <michdenis@hotmail.com> a écrit dans le message de groupe de
discussion : i2spio$iph$1@speranza.aioe.org...
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" <prenom-ou-sam@citron.fr> a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$ba4acef3@reader.news.orange.fr...
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"
si tu désires,
Envoie moi ton fichier sur mon adresse Hotmail...
je regarde plus tard dans la journée.
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c52b136$0$10231$
Bonjour MichD,
c'est du Excel2003
la macro n'a rien réglé
mais ce n'est pas grave j'ai recréé un nouveau classeur en copiant chaque
feuille.
J'ai dû certainement tester une macro en prenant ce fichier comme
référence
!
Bon ça serait bien pour la communauté si on pouvait découvrir la cause et
le
remède sur cet "ancien fichier"
Cordialement
Michel dit "Sam"
"michdenis" a écrit dans le message de news:
i2spo2$j3j$Une petite correction à apporter :
With Application.CommandBars.FindControl(ID:9)
On devrait lire
With Application.CommandBars.FindControl(ID:=Elt)
--
MichD
--------------------------------------------
"michdenis" a écrit dans le message de groupe de
discussion : i2spio$iph$
Bonjour,
D'après ta présentation, ce que tu observes doit être sur une version
antérieure à Excel 2007.
En prenant pour acquis que tu travailles sur une feuille non protégée :
'----------------------------
Sub test()
Dim Arr(), Elt As Variant
Arr = Array(899, 900)
For Each Elt In Arr
With Application.CommandBars.FindControl(ID:9)
.Enabled = True
End With
Next
End Sub
'----------------------------
La commande "Afficher tout" deviendra disponible lorsqu'un filtre sera en
application !
--
MichD
--------------------------------------------
"Sam" a écrit dans le message de groupe de
discussion :
4c51e3bb$0$5408$
Bonjour,
dans un classeur, pour toutes les feuilles, quand on fait Données/filtrer
- "Filtre automatique" est coché et grisé
- "Afficher tout" est grisé
Comment revenir à une situation afin de pouvoir filtrer normalement ?
Cordialement
Michel dit "Sam"