Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Grille et critères

Grille et critères

4 réponses
Avatar
DanC
Bonjour
Je souhaite que mon classeur, qui contient plus de 1000 enregistrements,
s'ouvre avec la grille en mode Critères

j'en suis là:
Sub RechercheDeMembres()
' Touche de raccourci du clavier: Ctrl+m
Sheets("Feuil1").Select
ActiveSheet.ShowDataForm
End Sub

c'est que la grille est là, mais pas en mode critères. J'ai bien trouvé ceci
sur excelabo
SendKeys "%N"
Application.CommandBars.FindControl(ID:=860).Execute

que j'aimerais adapter avec un C dans le SendKeys, et ça ne fonctionne pas
Dans votre grande amabilité, auriez-vous quelque chose à me suggérer?

à bientôt,
Danielle
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
michdenis
Bonjour Daniel,

Essaie ceci en adaptant le nom de la feuille et de la plage de donnée, le cas échéant.

'------------------------------
Sub grille()

With Worksheets("Feuil1")
.Activate
'N'importe quelle cellule de ta plage de données
.Range("A1").Activate
End With
SendKeys "%N%c"
Application.CommandBars.FindControl(ID:†0).Execute

End Sub
'------------------------------


Salutations!




"DanC" a écrit dans le message de news:
Bonjour
Je souhaite que mon classeur, qui contient plus de 1000 enregistrements,
s'ouvre avec la grille en mode Critères

j'en suis là:
Sub RechercheDeMembres()
' Touche de raccourci du clavier: Ctrl+m
Sheets("Feuil1").Select
ActiveSheet.ShowDataForm
End Sub

c'est que la grille est là, mais pas en mode critères. J'ai bien trouvé ceci
sur excelabo
SendKeys "%N"
Application.CommandBars.FindControl(ID:†0).Execute

que j'aimerais adapter avec un C dans le SendKeys, et ça ne fonctionne pas
Dans votre grande amabilité, auriez-vous quelque chose à me suggérer?

à bientôt,
Danielle
Avatar
DanC
Merci pour cette macro
J'ai adapté en enlevant le %N et tout baigne!

Salutations,
Danielle

"michdenis" a écrit dans le message de news:
e%
Bonjour Daniel,

Essaie ceci en adaptant le nom de la feuille et de la plage de donnée, le
cas échéant.

'------------------------------
Sub grille()

With Worksheets("Feuil1")
.Activate
'N'importe quelle cellule de ta plage de données
.Range("A1").Activate
End With
SendKeys "%N%c"
Application.CommandBars.FindControl(ID:†0).Execute

End Sub
'------------------------------


Salutations!




"DanC" a écrit dans le message de news:

Bonjour
Je souhaite que mon classeur, qui contient plus de 1000 enregistrements,
s'ouvre avec la grille en mode Critères

j'en suis là:
Sub RechercheDeMembres()
' Touche de raccourci du clavier: Ctrl+m
Sheets("Feuil1").Select
ActiveSheet.ShowDataForm
End Sub

c'est que la grille est là, mais pas en mode critères. J'ai bien trouvé
ceci
sur excelabo
SendKeys "%N"
Application.CommandBars.FindControl(ID:†0).Execute

que j'aimerais adapter avec un C dans le SendKeys, et ça ne fonctionne pas
Dans votre grande amabilité, auriez-vous quelque chose à me suggérer?

à bientôt,
Danielle





Avatar
michdenis
Bonjour DanC,

Sous excel 2003, que "%N" soit présent ou non dans la commande Sendkeys, cela fonctionne.


Salutations!


"DanC" a écrit dans le message de news: O$
Merci pour cette macro
J'ai adapté en enlevant le %N et tout baigne!

Salutations,
Danielle

"michdenis" a écrit dans le message de news:
e%
Bonjour Daniel,

Essaie ceci en adaptant le nom de la feuille et de la plage de donnée, le
cas échéant.

'------------------------------
Sub grille()

With Worksheets("Feuil1")
.Activate
'N'importe quelle cellule de ta plage de données
.Range("A1").Activate
End With
SendKeys "%N%c"
Application.CommandBars.FindControl(ID:†0).Execute

End Sub
'------------------------------


Salutations!




"DanC" a écrit dans le message de news:

Bonjour
Je souhaite que mon classeur, qui contient plus de 1000 enregistrements,
s'ouvre avec la grille en mode Critères

j'en suis là:
Sub RechercheDeMembres()
' Touche de raccourci du clavier: Ctrl+m
Sheets("Feuil1").Select
ActiveSheet.ShowDataForm
End Sub

c'est que la grille est là, mais pas en mode critères. J'ai bien trouvé
ceci
sur excelabo
SendKeys "%N"
Application.CommandBars.FindControl(ID:†0).Execute

que j'aimerais adapter avec un C dans le SendKeys, et ça ne fonctionne pas
Dans votre grande amabilité, auriez-vous quelque chose à me suggérer?

à bientôt,
Danielle





Avatar
DanC
Ah, c'est que je suis sous XL2000!
Merci pour cette explication

bonne journée!
Danielle
"michdenis" a écrit dans le message de news:
%
Bonjour DanC,

Sous excel 2003, que "%N" soit présent ou non dans la commande Sendkeys,
cela fonctionne.


Salutations!


"DanC" a écrit dans le message de news:
O$
Merci pour cette macro
J'ai adapté en enlevant le %N et tout baigne!

Salutations,
Danielle

"michdenis" a écrit dans le message de news:
e%
Bonjour Daniel,

Essaie ceci en adaptant le nom de la feuille et de la plage de donnée, le
cas échéant.

'------------------------------
Sub grille()

With Worksheets("Feuil1")
.Activate
'N'importe quelle cellule de ta plage de données
.Range("A1").Activate
End With
SendKeys "%N%c"
Application.CommandBars.FindControl(ID:†0).Execute

End Sub
'------------------------------


Salutations!




"DanC" a écrit dans le message de news:

Bonjour
Je souhaite que mon classeur, qui contient plus de 1000 enregistrements,
s'ouvre avec la grille en mode Critères

j'en suis là:
Sub RechercheDeMembres()
' Touche de raccourci du clavier: Ctrl+m
Sheets("Feuil1").Select
ActiveSheet.ShowDataForm
End Sub

c'est que la grille est là, mais pas en mode critères. J'ai bien trouvé
ceci
sur excelabo
SendKeys "%N"
Application.CommandBars.FindControl(ID:†0).Execute

que j'aimerais adapter avec un C dans le SendKeys, et ça ne fonctionne
pas
Dans votre grande amabilité, auriez-vous quelque chose à me suggérer?

à bientôt,
Danielle