Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ligne de code, pour la fonction atteindre

Ligne de code, pour la fonction atteindre

2 réponses
Avatar
DC
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:=383, Top:=-66, Type:=8)
ligne.Range("A1").Select
End Sub
'----------------------------------------------------

Salutations!.................encore un grand Merci...!!..............DC
Signaler un problème avec ce contenu

2 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
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




Avatar
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