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 Ouverture de la grille sur l' enregistrement en cours

Ouverture de la grille sur l' enregistrement en cours

10 réponses
Avatar
REMBERTYves
Bonjour,

Je souhaiterais afficher la grille directement sur l'enregistrement en
cours.
La grille s'ouvre systématiquement sur le 1er enregistrement.
Existe-il un moyen simple pour l'ouvrir sur l'enregistrement en cours.

Merci pour aide

Yves REMBERT
Signaler un problème avec ce contenu

10 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
ChrisV
Bonjour Yves,

Hum...
Voilà une question qui n'aura pas inspirée les foules...

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", True
End Sub

Il te suffit maintenant de faire un double-clic sur une cellule quelconque
de ta base pour que l'enregistrement correspondant s'affiche dans la grille.


ChrisV


"REMBERTYves" a écrit dans le message de news:
%
Bonjour,

Je souhaiterais afficher la grille directement sur l'enregistrement en
cours.
La grille s'ouvre systématiquement sur le 1er enregistrement.
Existe-il un moyen simple pour l'ouvrir sur l'enregistrement en cours.

Merci pour aide

Yves REMBERT



Avatar
ChrisV
Petite précision...
Dans l'exemple précédent, la base se situe en A1:Axx


ChrisV


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

Bonjour Yves,

Hum...
Voilà une question qui n'aura pas inspirée les foules...

Dans la feuille de code de l'onglet concerné:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", True
End Sub

Il te suffit maintenant de faire un double-clic sur une cellule quelconque
de ta base pour que l'enregistrement correspondant s'affiche dans la
grille.


ChrisV


"REMBERTYves" a écrit dans le message de news:
%
Bonjour,

Je souhaiterais afficher la grille directement sur l'enregistrement en
cours.
La grille s'ouvre systématiquement sur le 1er enregistrement.
Existe-il un moyen simple pour l'ouvrir sur l'enregistrement en cours.

Merci pour aide

Yves REMBERT







Avatar
Modeste
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle même....

ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042

Avatar
ChrisV
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle même....

ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042




Avatar
ru-th
Salut les gars

je dois être bouché
mais %DO me fait donnée/convertir pas donnée/grille (xl2k)

alors plutot si la base commence bien en ligne 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
SendKeys "%DG"
For i = 2 To Target.Row - 1
SendKeys "%U"
Next
End Sub

ou vraisemblablement , que j'ai rien compris... ;-)))
ce qui ne serait pas surprenant
a+
rural thierry
"ChrisV" a écrit dans le message de
news:
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle
même....



ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042








Avatar
michdenis
Bonjour Ru,

Ta méthode fonctionne très bien à un léger détail près.

À partir d'excel 2002 et pour 2003, la commande sous le menu "Données" n'est plus "Grille" mais "Formulaire" et dans ta procédure,
tu dois modifier le "g" pour le "o" dans la commande SendKeys.

Elle a l'avantage d'être beaucoup plus claire que les chinoiseries des 2 autres propositions !
;-))


Salutations!



"ru-th" a écrit dans le message de news:
Salut les gars

je dois être bouché
mais %DO me fait donnée/convertir pas donnée/grille (xl2k)

alors plutot si la base commence bien en ligne 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
SendKeys "%DG"
For i = 2 To Target.Row - 1
SendKeys "%U"
Next
End Sub

ou vraisemblablement , que j'ai rien compris... ;-)))
ce qui ne serait pas surprenant
a+
rural thierry
"ChrisV" a écrit dans le message de
news:
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle
même....



ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042








Avatar
ru-th
Elle a l'avantage d'être beaucoup plus claire que les chinoiseries des 2
autres propositions !

;-))


c'est ben vrai c'la !
l'a quand même un défaut, vers l'enregistrement 5000, elle rame.... un peu !
;-))
a+
rural thierry
"michdenis" a écrit dans le message de
news:
Bonjour Ru,

Ta méthode fonctionne très bien à un léger détail près.

À partir d'excel 2002 et pour 2003, la commande sous le menu "Données"
n'est plus "Grille" mais "Formulaire" et dans ta procédure,

tu dois modifier le "g" pour le "o" dans la commande SendKeys.



Salutations!



"ru-th" a écrit dans le message de news:


Salut les gars

je dois être bouché
mais %DO me fait donnée/convertir pas donnée/grille (xl2k)

alors plutot si la base commence bien en ligne 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
SendKeys "%DG"
For i = 2 To Target.Row - 1
SendKeys "%U"
Next
End Sub

ou vraisemblablement , que j'ai rien compris... ;-)))
ce qui ne serait pas surprenant
a+
rural thierry
"ChrisV" a écrit dans le message de
news:
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle
même....



ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042













Avatar
michdenis
Oh là Thierry,

J'ai dit : "Elle a l'avantage d'être beaucoup plus claire que les chinoiseries des 2 autres propositions !"

Je n'ai pas dit qu'elle était plus efficace ou plus efficiente que les autres !!!!!!

;-)))


Salutations!





"ru-th" a écrit dans le message de news: %
Elle a l'avantage d'être beaucoup plus claire que les chinoiseries des 2
autres propositions !

;-))


c'est ben vrai c'la !
l'a quand même un défaut, vers l'enregistrement 5000, elle rame.... un peu !
;-))
a+
rural thierry
"michdenis" a écrit dans le message de
news:
Bonjour Ru,

Ta méthode fonctionne très bien à un léger détail près.

À partir d'excel 2002 et pour 2003, la commande sous le menu "Données"
n'est plus "Grille" mais "Formulaire" et dans ta procédure,

tu dois modifier le "g" pour le "o" dans la commande SendKeys.



Salutations!



"ru-th" a écrit dans le message de news:


Salut les gars

je dois être bouché
mais %DO me fait donnée/convertir pas donnée/grille (xl2k)

alors plutot si la base commence bien en ligne 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
SendKeys "%DG"
For i = 2 To Target.Row - 1
SendKeys "%U"
Next
End Sub

ou vraisemblablement , que j'ai rien compris... ;-)))
ce qui ne serait pas surprenant
a+
rural thierry
"ChrisV" a écrit dans le message de
news:
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle
même....



ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042













Avatar
ru-th
et pis de toutes façons, ce n'était pas du chinois mais du lakota
;-)
rural thierry
"michdenis" a écrit dans le message de
news:%
Oh là Thierry,

J'ai dit : "Elle a l'avantage d'être beaucoup plus claire que les
chinoiseries des 2 autres propositions !"


Je n'ai pas dit qu'elle était plus efficace ou plus efficiente que les
autres !!!!!!


;-)))


Salutations!





"ru-th" a écrit dans le message de news:
%

Elle a l'avantage d'être beaucoup plus claire que les chinoiseries des 2
autres propositions !

;-))


c'est ben vrai c'la !
l'a quand même un défaut, vers l'enregistrement 5000, elle rame.... un peu
!

;-))
a+
rural thierry
"michdenis" a écrit dans le message de
news:
Bonjour Ru,

Ta méthode fonctionne très bien à un léger détail près.

À partir d'excel 2002 et pour 2003, la commande sous le menu "Données"
n'est plus "Grille" mais "Formulaire" et dans ta procédure,

tu dois modifier le "g" pour le "o" dans la commande SendKeys.



Salutations!



"ru-th" a écrit dans le message de news:


Salut les gars

je dois être bouché
mais %DO me fait donnée/convertir pas donnée/grille (xl2k)

alors plutot si la base commence bien en ligne 1
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Cancel = True
SendKeys "%DG"
For i = 2 To Target.Row - 1
SendKeys "%U"
Next
End Sub

ou vraisemblablement , que j'ai rien compris... ;-)))
ce qui ne serait pas surprenant
a+
rural thierry
"ChrisV" a écrit dans le message de
news:
Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle
même....



ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042


















Avatar
REMBERTYves
Bonsoir,

.
Agréablement surpris par cette réponse aussi rapide

Merci à tous

Yves

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

Lila pilamaye. Wakhan Than'ka ni'ci un ! >;-)


ChrisV


"Modeste" a écrit dans le message de news:
%
Aué!!! Bonsour®
lila washté wakhan wolakhota !!!
ChrisV wrote:
Hum...
Voilà une question qui n'aura pas inspiré les foules...


Si... Si.... prise de chou garantie !!!
c'est le coup du "%C" qui m'a complétement échappé !!!!
puisque je cherchais d'abord à me positionner sur la donnée elle même....

ce qui donne au final :
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
Cancel As Boolean)
Dim i As Integer
i = Target.Column
SendKeys "%DO%C", False
SendKeys "{TAB " & i - 1 & "}", False
SendKeys Target & "~", False
SendKeys "{TAB " & i - 1 & "}", True
End Sub

--
n'oubliez pas les FAQ :
http://www.excelabo.net http://dj.joss.free.fr/faq.htm
http://www.faqoe.com http://faqword.free.fr
--
Feed Back
http://viadresse.com/?94912042