Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code, me
permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de
disposer de ce choix, puis OK, ensuite la procédure continue normalement son
chemin,
Voici la procédure en question............Merci d'avance...!!
'---------------------------------------------------
Sub Début_B()
'
Dim ligne
ActiveWindow.ActivateNext
Windows("Code-9.xls").Activate
'**************************************
' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis"
With Range("Poste_complet_Bis")
'**************************************
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
ActiveCell.Range("A1").Select
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les
Flèches", Left:=383, Top:=-66, Type:=8)
ligne.Range("A1").Select
End Sub
'----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
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
Daniel
Bonjour. Pour afficher la boîte de dialogue : Application.Dialogs(xlDialogFormulaGoto).Show Cordialement. Daniel "DC" a écrit dans le message de news: 43859545$0$19712$
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code, me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de disposer de ce choix, puis OK, ensuite la procédure continue normalement son chemin,
Voici la procédure en question............Merci d'avance...!!
'--------------------------------------------------- Sub Début_B() ' Dim ligne ActiveWindow.ActivateNext Windows("Code-9.xls").Activate '************************************** ' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis" With Range("Poste_complet_Bis") '************************************** ActiveWindow.Panes(2).ScrollRow = .Row ActiveWindow.Panes(2).ScrollColumn = .Column End With ActiveCell.Range("A1").Select Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les Flèches", Left:83, Top:=-66, Type:=8) ligne.Range("A1").Select End Sub '----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
Bonjour.
Pour afficher la boîte de dialogue :
Application.Dialogs(xlDialogFormulaGoto).Show
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43859545$0$19712$8fcfb975@news.wanadoo.fr...
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code,
me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de
disposer de ce choix, puis OK, ensuite la procédure continue normalement
son chemin,
Voici la procédure en question............Merci d'avance...!!
'---------------------------------------------------
Sub Début_B()
'
Dim ligne
ActiveWindow.ActivateNext
Windows("Code-9.xls").Activate
'**************************************
' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis"
With Range("Poste_complet_Bis")
'**************************************
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
ActiveCell.Range("A1").Select
Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter
= Annuler + Fin...", Title:="Sélection H ou B avec les Flèches",
Left:83, Top:=-66, Type:=8)
ligne.Range("A1").Select
End Sub
'----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
Bonjour. Pour afficher la boîte de dialogue : Application.Dialogs(xlDialogFormulaGoto).Show Cordialement. Daniel "DC" a écrit dans le message de news: 43859545$0$19712$
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code, me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de disposer de ce choix, puis OK, ensuite la procédure continue normalement son chemin,
Voici la procédure en question............Merci d'avance...!!
'--------------------------------------------------- Sub Début_B() ' Dim ligne ActiveWindow.ActivateNext Windows("Code-9.xls").Activate '************************************** ' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis" With Range("Poste_complet_Bis") '************************************** ActiveWindow.Panes(2).ScrollRow = .Row ActiveWindow.Panes(2).ScrollColumn = .Column End With ActiveCell.Range("A1").Select Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les Flèches", Left:83, Top:=-66, Type:=8) ligne.Range("A1").Select End Sub '----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
DC
Bonsoir à tous...........................Bonsoir Daniel,
Merci Daniel de ta réponse rapide et positive...!!
C'est parfait...!! un fonctionnement du premier coup et mieux que je ne l'espérais............Merci, C'est Super Sympa...!!
Cordialement..............un grand Merci...!!...............DC
"Daniel" a écrit dans le message de news: %
Bonjour. Pour afficher la boîte de dialogue : Application.Dialogs(xlDialogFormulaGoto).Show Cordialement. Daniel "DC" a écrit dans le message de news: 43859545$0$19712$
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code, me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de disposer de ce choix, puis OK, ensuite la procédure continue normalement son chemin,
Voici la procédure en question............Merci d'avance...!!
'--------------------------------------------------- Sub Début_B() ' Dim ligne ActiveWindow.ActivateNext Windows("Code-9.xls").Activate '************************************** ' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis" With Range("Poste_complet_Bis") '************************************** ActiveWindow.Panes(2).ScrollRow = .Row ActiveWindow.Panes(2).ScrollColumn = .Column End With ActiveCell.Range("A1").Select Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les Flèches", Left:83, Top:=-66, Type:=8) ligne.Range("A1").Select End Sub '----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
Bonsoir à tous...........................Bonsoir Daniel,
Merci Daniel de ta réponse rapide et positive...!!
C'est parfait...!! un fonctionnement du premier coup et mieux que je ne
l'espérais............Merci, C'est Super Sympa...!!
Cordialement..............un grand Merci...!!...............DC
"Daniel" <dZZZcolardelle@free.fr> a écrit dans le message de news:
%23hXyAQP8FHA.476@TK2MSFTNGP15.phx.gbl...
Bonjour.
Pour afficher la boîte de dialogue :
Application.Dialogs(xlDialogFormulaGoto).Show
Cordialement.
Daniel
"DC" <da.campion@hotmail.fr> a écrit dans le message de news:
43859545$0$19712$8fcfb975@news.wanadoo.fr...
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code,
me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de
disposer de ce choix, puis OK, ensuite la procédure continue normalement
son chemin,
Voici la procédure en question............Merci d'avance...!!
'---------------------------------------------------
Sub Début_B()
'
Dim ligne
ActiveWindow.ActivateNext
Windows("Code-9.xls").Activate
'**************************************
' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis"
With Range("Poste_complet_Bis")
'**************************************
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
ActiveCell.Range("A1").Select
Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour
Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les Flèches",
Left:83, Top:=-66, Type:=8)
ligne.Range("A1").Select
End Sub
'----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC
Bonsoir à tous...........................Bonsoir Daniel,
Merci Daniel de ta réponse rapide et positive...!!
C'est parfait...!! un fonctionnement du premier coup et mieux que je ne l'espérais............Merci, C'est Super Sympa...!!
Cordialement..............un grand Merci...!!...............DC
"Daniel" a écrit dans le message de news: %
Bonjour. Pour afficher la boîte de dialogue : Application.Dialogs(xlDialogFormulaGoto).Show Cordialement. Daniel "DC" a écrit dans le message de news: 43859545$0$19712$
Bonjour à tous, ( Excel 2000 sous XP )
Merci de me lire...!!..............Bonne journée...!!
Voilà; dans une procédure éxistante, j'aimerais pouvoir insérer un code, me permettant d'utiliser la fenêtre de la fonction atteindre (F5) et de disposer de ce choix, puis OK, ensuite la procédure continue normalement son chemin,
Voici la procédure en question............Merci d'avance...!!
'--------------------------------------------------- Sub Début_B() ' Dim ligne ActiveWindow.ActivateNext Windows("Code-9.xls").Activate '************************************** ' ( une reprise de ceci, je suppose, pour mieux gérer les choix )
Application.Goto Reference:="Poste_Complet_Bis" With Range("Poste_complet_Bis") '************************************** ActiveWindow.Panes(2).ScrollRow = .Row ActiveWindow.Panes(2).ScrollColumn = .Column End With ActiveCell.Range("A1").Select Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter = Annuler + Fin...", Title:="Sélection H ou B avec les Flèches", Left:83, Top:=-66, Type:=8) ligne.Range("A1").Select End Sub '----------------------------------------------------
Salutations!.................encore un grand Merci...!!..............DC