Nommer 2 cellules avec macro en relatif

Bonjour à tous,

J'éxécute une macro, qui fait un transfert d'une feuille de classeur à une
autre feuille de classeur, mais le positionnement en feuille cible est
relatif; toujour même colonne, mais ligne différente suivant le cas,

J'aimerais pouvoir ajouter en fin de macro, un code qui me permettrait, en
semi-relatif, de nommer 2 cellules, l'une " HT " et l'autre " TTC " ( 2
lignes plus bas ),

A savoir que le curseur en fin d'éxcécution de la macro est déjà
positionné

sur la cellule qui sera nommer " HT "

'--------------------------------
Sub Total_Complet()
'
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
Windows("Code-9.xls").Activate
Application.Goto Reference:="TOTAL_Poste_Complet"
Selection.Copy
ActiveCell.Range("A1").Select
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(1, 10).Range("A1").Select
End Sub
'--------------------------------

J'espère que c'est possible........MERCI..!!

Salutations!...........Merci d'avance...............DC

Bonjour.

Voici à ajouter à ta macro.

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne & "C" &
colonne
ActiveWorkbook.Names.Add Name:="HT", RefersToR1C1:=reference

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne + 2 & "C" &
colonne
ActiveWorkbook.Names.Add Name:="TTC", RefersToR1C1:=reference


docm

"DC" <da.campion@hotmail.fr> a écrit dans le message news:
4347c417$0$17223$8fcfb975@news.wanadoo.fr...

Bonjour à tous,

J'éxécute une macro, qui fait un transfert d'une feuille de classeur à
une
autre feuille de classeur, mais le positionnement en feuille cible est
relatif; toujour même colonne, mais ligne différente suivant le cas,

J'aimerais pouvoir ajouter en fin de macro, un code qui me permettrait,
en
semi-relatif, de nommer 2 cellules, l'une " HT " et l'autre " TTC " ( 2
lignes plus bas ),

A savoir que le curseur en fin d'éxcécution de la macro est déjà
positionné

sur la cellule qui sera nommer " HT "

'--------------------------------
Sub Total_Complet()
'
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
Windows("Code-9.xls").Activate
Application.Goto Reference:="TOTAL_Poste_Complet"
Selection.Copy
ActiveCell.Range("A1").Select
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(1, 10).Range("A1").Select
End Sub
'--------------------------------

J'espère que c'est possible........MERCI..!!

Salutations!...........Merci d'avance...............DC

Bonjour à tous...............Bonjour docm,

J'ai bien ajouté ton code à la macro,

Tout ce passe bien, et pour vérifier l'exatitude de l'emplacement des noms
"HT" et "TTC" , je fais F5 pour ATTEINDRE,

Et l'à éffectivement les 2 noms sont bien présents dans la fénêtre
ATTEINDRE, mais lorsque je sélectionne un nom "HT" par ex: et puis OK,
rien

ne se passe,

OR normalement, à la suite de cette action, le curseur devrait se déplacer
vers la cellule nommée,....n'est-pas..!.....Merci..!!

Salutation!.........encore Merci..!!............DC


"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
uBzUbqGzFHA.2652@TK2MSFTNGP14.phx.gbl...

Bonjour.

Voici à ajouter à ta macro.

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne & "C" &
colonne
ActiveWorkbook.Names.Add Name:="HT", RefersToR1C1:=reference

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne + 2 & "C" &
colonne
ActiveWorkbook.Names.Add Name:="TTC", RefersToR1C1:=reference


docm

"DC" <da.campion@hotmail.fr> a écrit dans le message news:
4347c417$0$17223$8fcfb975@news.wanadoo.fr...

Bonjour à tous,

J'éxécute une macro, qui fait un transfert d'une feuille de classeur à
une
autre feuille de classeur, mais le positionnement en feuille cible est
relatif; toujour même colonne, mais ligne différente suivant le cas,

J'aimerais pouvoir ajouter en fin de macro, un code qui me permettrait,
en
semi-relatif, de nommer 2 cellules, l'une " HT " et l'autre " TTC "
2

lignes plus bas ),

A savoir que le curseur en fin d'éxcécution de la macro est déjà
positionné

sur la cellule qui sera nommer " HT "

'--------------------------------
Sub Total_Complet()
'
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
Windows("Code-9.xls").Activate
Application.Goto Reference:="TOTAL_Poste_Complet"
Selection.Copy
ActiveCell.Range("A1").Select
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(1, 10).Range("A1").Select
End Sub
'--------------------------------

J'espère que c'est possible........MERCI..!!

Salutations!...........Merci d'avance...............DC

Bonjour DC.

J'avais omis d'inclure les 2 premières lignes suivantes qui définissent la
ligne et la colonne de la cellule active:

ligne = ActiveCell.Row
colonne = ActiveCell.Column

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne & "C" &
colonne
ActiveWorkbook.Names.Add Name:="HT", RefersToR1C1:=reference

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne + 2 & "C" &
colonne
ActiveWorkbook.Names.Add Name:="TTC", RefersToR1C1:=reference

Ca devrait aller mieux.

docm

"DC" <da.campion@hotmail.fr> a écrit dans le message news:
4348e298$0$1011$8fcfb975@news.wanadoo.fr...

Bonjour à tous...............Bonjour docm,

J'ai bien ajouté ton code à la macro,

Tout ce passe bien, et pour vérifier l'exatitude de l'emplacement des
noms
"HT" et "TTC" , je fais F5 pour ATTEINDRE,

Et l'à éffectivement les 2 noms sont bien présents dans la fénêtre
ATTEINDRE, mais lorsque je sélectionne un nom "HT" par ex: et puis OK,
rien

ne se passe,

OR normalement, à la suite de cette action, le curseur devrait se
déplacer
vers la cellule nommée,....n'est-pas..!.....Merci..!!

Salutation!.........encore Merci..!!............DC


"docm" <docmarti@spamcolba.net> a écrit dans le message de news:
uBzUbqGzFHA.2652@TK2MSFTNGP14.phx.gbl...

Bonjour.

Voici à ajouter à ta macro.

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne & "C" &
colonne
ActiveWorkbook.Names.Add Name:="HT", RefersToR1C1:=reference

reference = "='" & ActiveCell.Parent.Name & "'!R" & ligne + 2 & "C"
&
colonne
ActiveWorkbook.Names.Add Name:="TTC", RefersToR1C1:=reference


docm

"DC" <da.campion@hotmail.fr> a écrit dans le message news:
4347c417$0$17223$8fcfb975@news.wanadoo.fr...

Bonjour à tous,

J'éxécute une macro, qui fait un transfert d'une feuille de classeur à
une
autre feuille de classeur, mais le positionnement en feuille cible est
relatif; toujour même colonne, mais ligne différente suivant le cas,

J'aimerais pouvoir ajouter en fin de macro, un code qui me
permettrait,
en
semi-relatif, de nommer 2 cellules, l'une " HT " et l'autre " TTC "
2

lignes plus bas ),

A savoir que le curseur en fin d'éxcécution de la macro est déjà
positionné

sur la cellule qui sera nommer " HT "

'--------------------------------
Sub Total_Complet()
'
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
Windows("Code-9.xls").Activate
Application.Goto Reference:="TOTAL_Poste_Complet"
Selection.Copy
ActiveCell.Range("A1").Select
ActiveWindow.ActivateNext
Selection.End(xlToLeft).Select
ActiveSheet.Paste
Application.CutCopyMode = False
ActiveCell.Select
ActiveCell.Offset(1, 10).Range("A1").Select
End Sub
'--------------------------------

J'espère que c'est possible........MERCI..!!

Salutations!...........Merci d'avance...............DC