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 Petit plus dans ligne de code

Petit plus dans ligne de code

10 réponses
Avatar
DC
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:=ActiveCell.Offset(1, 0).Range("A1").Address, Left:=383, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les Flèches",
Default:=ActiveCell.Offset(1, 0).Range("A1").Address, Left:=383, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------
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
JLuc
*Bonjour DC*,
Une saisie avant :
monchoix = inputbox("Quelle feuille ?")
With Range(monchoix)
...

te convient il ?

Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK... NON =
Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour Arrêter
= Annuler...(Esc)", Title:="Sélection H ou B avec les Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS

Avatar
DC
Bonjour à tous..............................Bonjour JLuc,

Merci...!!.................c'est parfait, exactement ce que j'espérais...!!

Bonne Journée JLuc......Merci pour cette réponse positive qui me convient
très bien,

Cordialement..............encore un grand Merci...!!........DC

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

*Bonjour DC*,
Une saisie avant :
monchoix = inputbox("Quelle feuille ?")
With Range(monchoix)
...

te convient il ?

Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce
soit bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK... NON =
Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66, Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK... Pour
Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66, Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------



--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs et
astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS





Avatar
michdenis
Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news: 438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------
Avatar
DC
Bonsoir à tous.................Bonsoir michdenis,

Merci de ta réponse,......C'est Sympa.........Bonne Soirée...!!

A première vue, j'ai pensé que c'était pas mal du tout, mais à l'usage, je
crois avoir constaté, que seule la partie ("Descriptif")
fonctionnait bien, quand à la partie ("Libellé"), je n'arrive pas à la
maitriser,

Donc, j'ai conservé la version de JLuc, qui c'est vrai est un peu plus
contraignante, par l'obligation d'un choix manuel, mais çà fonctionne
bien,............alors bon...!!.....à voir.??

Salutations!...........encore un grand Merci...!!..............DC


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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------





Avatar
JLuc
Pour que ce soit moins contraignant, tu peux faire un petit userform
avec un combobox où tu mets tes différents choix possibles ;-)
Y a des tas de possibilités, a toi de savoir par où tu veux passer
:')
DC avait soumis l'idée :
Bonsoir à tous.................Bonsoir michdenis,

Merci de ta réponse,......C'est Sympa.........Bonne Soirée...!!

A première vue, j'ai pensé que c'était pas mal du tout, mais à l'usage, je
crois avoir constaté, que seule la partie ("Descriptif")
fonctionnait bien, quand à la partie ("Libellé"), je n'arrive pas à la
maitriser,

Donc, j'ai conservé la version de JLuc, qui c'est vrai est un peu plus
contraignante, par l'obligation d'un choix manuel, mais çà fonctionne
bien,............alors bon...!!.....à voir.??

Salutations!...........encore un grand Merci...!!..............DC


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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------







Avatar
DC
Bonsoir à tous.........................Bonsoir JLuc,

Merci de bien suivre le fil, JLuc ,........ c'est sympa...!!

Il faut que je te précise tout de suite, que je fais partie des non initiés
et " userform ou combobox " pour moi c'est du Chinois, je parvient tout
juste à expliquer ce que j'attends d'une macro, mais ne sais absolument pas
la concevoir, sinon par la procédure "Nouvelle Macro" d'ou mon côté limité,

Par contre le fait de m'écrire un petit bout de code, que je pourrais
éventuellement insérer, pour améliorer le coté contraignant des choses, sera
toujours le bien venu et beaucoup apprécié,

Dans le cas présent, je dispose de 2 noms dans la feuille, "Descriptif" et
"Libellé"

Chaque nom à une adresse précise, Colonne A et ligne différente, et c'est
vrai, que ta première idée fonctionne très bien, dommage qu'il y est cette
petite contrainte manuel, mais bon, à toi de voir si tu as envie
d'améliorer.............Merci d'avance...!!

Cordialement...............Bonne soirée...!!..............DC

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

Pour que ce soit moins contraignant, tu peux faire un petit userform avec
un combobox où tu mets tes différents choix possibles ;-)
Y a des tas de possibilités, a toi de savoir par où tu veux passer
:')
DC avait soumis l'idée :
Bonsoir à tous.................Bonsoir michdenis,

Merci de ta réponse,......C'est Sympa.........Bonne Soirée...!!

A première vue, j'ai pensé que c'était pas mal du tout, mais à l'usage,
je crois avoir constaté, que seule la partie ("Descriptif")
fonctionnait bien, quand à la partie ("Libellé"), je n'arrive pas à la
maitriser,

Donc, j'ai conservé la version de JLuc, qui c'est vrai est un peu plus
contraignante, par l'obligation d'un choix manuel, mais çà fonctionne
bien,............alors bon...!!.....à voir.??

Salutations!...........encore un grand Merci...!!..............DC


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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce
soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------











Avatar
JLuc
Pour l'instant, je suis au boulot, des que je rentre j'essaie de
t'envoyer quelque chose (Là, j'ai pas trop le temps de reflechir
DC avait soumis l'idée :
Bonsoir à tous.........................Bonsoir JLuc,

Merci de bien suivre le fil, JLuc ,........ c'est sympa...!!

Il faut que je te précise tout de suite, que je fais partie des non initiés
et " userform ou combobox " pour moi c'est du Chinois, je parvient tout juste
à expliquer ce que j'attends d'une macro, mais ne sais absolument pas la
concevoir, sinon par la procédure "Nouvelle Macro" d'ou mon côté limité,

Par contre le fait de m'écrire un petit bout de code, que je pourrais
éventuellement insérer, pour améliorer le coté contraignant des choses, sera
toujours le bien venu et beaucoup apprécié,

Dans le cas présent, je dispose de 2 noms dans la feuille, "Descriptif" et
"Libellé"

Chaque nom à une adresse précise, Colonne A et ligne différente, et c'est
vrai, que ta première idée fonctionne très bien, dommage qu'il y est cette
petite contrainte manuel, mais bon, à toi de voir si tu as envie
d'améliorer.............Merci d'avance...!!

Cordialement...............Bonne soirée...!!..............DC

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

Pour que ce soit moins contraignant, tu peux faire un petit userform avec
un combobox où tu mets tes différents choix possibles ;-)
Y a des tas de possibilités, a toi de savoir par où tu veux passer
:')
DC avait soumis l'idée :
Bonsoir à tous.................Bonsoir michdenis,

Merci de ta réponse,......C'est Sympa.........Bonne Soirée...!!

A première vue, j'ai pensé que c'était pas mal du tout, mais à l'usage, je
crois avoir constaté, que seule la partie ("Descriptif")
fonctionnait bien, quand à la partie ("Libellé"), je n'arrive pas à la
maitriser,

Donc, j'ai conservé la version de JLuc, qui c'est vrai est un peu plus
contraignante, par l'obligation d'un choix manuel, mais çà fonctionne
bien,............alors bon...!!.....à voir.??

Salutations!...........encore un grand Merci...!!..............DC


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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce
soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------













Avatar
JLuc
*Bonjour DC*,
Merci d'avoir ete patient :-Z
Voila le lien que je t'ai promis
http://cjoint.com/?lytUohpAtt
Reviens si tu as des soucis

Bonsoir à tous.........................Bonsoir JLuc,

Merci de bien suivre le fil, JLuc ,........ c'est sympa...!!

Il faut que je te précise tout de suite, que je fais partie des non initiés
et " userform ou combobox " pour moi c'est du Chinois, je parvient tout juste
à expliquer ce que j'attends d'une macro, mais ne sais absolument pas la
concevoir, sinon par la procédure "Nouvelle Macro" d'ou mon côté limité,

Par contre le fait de m'écrire un petit bout de code, que je pourrais
éventuellement insérer, pour améliorer le coté contraignant des choses, sera
toujours le bien venu et beaucoup apprécié,

Dans le cas présent, je dispose de 2 noms dans la feuille, "Descriptif" et
"Libellé"

Chaque nom à une adresse précise, Colonne A et ligne différente, et c'est
vrai, que ta première idée fonctionne très bien, dommage qu'il y est cette
petite contrainte manuel, mais bon, à toi de voir si tu as envie
d'améliorer.............Merci d'avance...!!

Cordialement...............Bonne soirée...!!..............DC

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

Pour que ce soit moins contraignant, tu peux faire un petit userform avec
un combobox où tu mets tes différents choix possibles ;-)
Y a des tas de possibilités, a toi de savoir par où tu veux passer
:')
DC avait soumis l'idée :
Bonsoir à tous.................Bonsoir michdenis,

Merci de ta réponse,......C'est Sympa.........Bonne Soirée...!!

A première vue, j'ai pensé que c'était pas mal du tout, mais à l'usage, je
crois avoir constaté, que seule la partie ("Descriptif")
fonctionnait bien, quand à la partie ("Libellé"), je n'arrive pas à la
maitriser,

Donc, j'ai conservé la version de JLuc, qui c'est vrai est un peu plus
contraignante, par l'obligation d'un choix manuel, mais çà fonctionne
bien,............alors bon...!!.....à voir.??

Salutations!...........encore un grand Merci...!!..............DC


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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce
soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83,
Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------











--
JLuc

Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS




Avatar
michdenis
Bonjour DC,


Et ceci :
'--------------------------
If ActiveSheet.Name = Range("Descriptif") .Parent.Name
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
end with
elseif ActiveSheet.Name = Range("Libellé") .Parent.Name
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
'--------------------------


Salutations!





"michdenis" a écrit dans le message de news:
Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news: 438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------
Avatar
DC
Bonjour à tous..................Bonjour JLuc et michdenis,

Merci à tous les deux de vous investir pour moi, c'est très sympa,

Je crois que comme souvent, je me suis mal exprimé et vous est conduit vers
la complication, les noms "Descriptif" et "Libellé" sont le résultat de mon
coté obtus, en fait mon objectif était de mettre la LIGNE oû se trouvait le
curseur en haut de l'écran, sous le volet figé, et là j'ai obtenu
satisfaction avec l'insertion de ce code : de jb

ActiveWindow.ScrollRow = ActiveCell.Row

Voici pour information la macro modifiée par cette ligne de code,
'--------------------------------------------------
Sub Souligné_Titre()
'
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
Application.CutCopyMode = False

ActiveWindow.ScrollRow = ActiveCell.Row

ActiveCell.Range("A1").Select
ActiveCell.Offset(2, 0).Range("A1").Select
Sortie:
End Sub
'---------------------------------------------

Salutations!.......à tous les deux.......un grand Merci, navré et sans
rancune, j'espère, J'essaierais de faire mieux la prochaine fois,

Bonne Journée...!!.............encore Merci...!!............DC


en définitif
"michdenis" a écrit dans le message de news:

Bonjour DC,


Et ceci :
'--------------------------
If ActiveSheet.Name = Range("Descriptif") .Parent.Name
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
end with
elseif ActiveSheet.Name = Range("Libellé") .Parent.Name
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
'--------------------------


Salutations!





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

Bonjour DC,

As-tu essayé quelque chose comme ceci :

'--------------------------
With Range("Descriptif")
If .Parent.Name = ActiveSheet.Name Then
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
Else
With Range("Libellé")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column
End With
End If
End With
'--------------------------


Salutations!



"DC" a écrit dans le message de news:
438403fb$0$18350$
Bonjour à tous,..................Excel 2000 sous XP

Merci de me lire...!!...........Bonne Journée...!!

Je dispose d'une macro qui fonctionne très bien, mais j'aimerais lui
ajouter
une condition supplémentaire,

Seule une partie de la procédure est concernée, au lieu du seul,
With Range("Descriptif")
J'aimarais un choix entres ("Descriptif") ou ("Libellé")

Est-ce possible...??......si oui, je ne sais pas comment l'écrire,
'--------------------------------------

With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With

'--------------------------------------

Ci-dessous je mets la procédure compléte, mais je ne crois pas que ce soit
bien utile,...........Merci d'avance...!!

Salutations!...............encore Merci...!!..................DC

'--------------------------------------
Sub Souligné_Titre()
'
Dim ligne
On Error GoTo Sortie
Selection.Copy
ActiveWindow.ActivateNext
ActiveSheet.Paste
ActiveCell.Offset(0, 0).Range("A1").Select
Application.CutCopyMode = False
ActiveCell.Offset(-1, 0).Range("A1").Select
'**********************************************
With Range("Descriptif")
ActiveWindow.Panes(2).ScrollRow = .Row
ActiveWindow.Panes(2).ScrollColumn = .Column

End With
'*********************************************
Set ligne = Application.InputBox(Prompt:="OUI = Flèche Bas + OK...
NON = Annuler...(Esc)", Title:=" Continuer OUI ou NON",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Windows("Code-9.xls").Activate
Set ligne = Application.InputBox(Prompt:="Sélection + OK...
Pour Arrêter = Annuler...(Esc)", Title:="Sélection H ou B avec les
Flèches",
Default:¬tiveCell.Offset(1, 0).Range("A1").Address, Left:83, Top:=-66,
Type:=8)
ligne.Range("A1:D1").Select
Application.Run "'Code-9.xls'!Souligné_titre"
Sortie:
End Sub
'--------------------------------------------