OVH Cloud OVH Cloud

Nommer une cellule d'après la valeur inscrite dans une autre

10 réponses
Avatar
Denys
Bonjour =E0 tous,

Est-il possible par VBA que la cellule A8 soit nomm=E9e=20
d'apr=E8s la valeur inscrite dans la cellule J2 ?

Exemple J2 =3D Projet ABC
A8 devient Projet ABC

Merci pour vos id=E9es...

Denys

10 réponses

Avatar
ru-th
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit dans le message de
news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys
Avatar
Denys
Salut Ru-th

Merci mais même si Projet ABC s'est écrit dans la cellule
A12, la cellule A12 s'appelle encore A12 et non pas Projet
ABC....

Peut-être me suis-je mal exprimé?
Si tu fais Edit---GoTo----
Je veux voir Projet ABC et ainsi me rendre à la cellule
A12 renommée Projet ABC...

Est-ce plus clair ainsi?

Merci

Denys


-----Original Message-----
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de

news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys


.



Avatar
ru-th
Le piège
c'est que j'ai du trop boire ety pas lu, la question
nommer !, il a dit le monsieur

ActiveWorkbook.Names.Add Name:=[feuil1!J2], RefersTo:="þuil1!R8C1"


a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit dans le message de
news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys




Avatar
Denys
Salut Ru-th

Enfin quelqu'un pas trop sobre!!!!! Merci mille
fois...Désolé j'ai pas de vin de Touraine chez moi pour en
prendre un verre à ta santé....

À fouiller, j'vais p'têt ben en trouver un avec du
cabernet franc!!!

Merci, c'est gentil

Denys


-----Original Message-----
Le piège
c'est que j'ai du trop boire ety pas lu, la question
nommer !, il a dit le monsieur

ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de


news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys





.




Avatar
ru-th
Je suis au rhum !
(dans 8 jours, décollage pour la Réunion !)
sinon, c'est plutôt l'Anjou Brissac !
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit dans le message de
news:779401c3e772$8b9baff0$
Salut Ru-th

Enfin quelqu'un pas trop sobre!!!!! Merci mille
fois...Désolé j'ai pas de vin de Touraine chez moi pour en
prendre un verre à ta santé....

À fouiller, j'vais p'têt ben en trouver un avec du
cabernet franc!!!

Merci, c'est gentil

Denys


-----Original Message-----
Le piège
c'est que j'ai du trop boire ety pas lu, la question
nommer !, il a dit le monsieur

ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de


news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys





.




Avatar
Denys
Dis-donc.....Je mets ça ou(accent grave) cette
instruction??

Denys


ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)



Avatar
ru-th
éventuellement

Private Sub TextBox1_LostFocus()
With ActiveSheet
Sheets(.ComboBox1.Value).Range("D1").Value = .TextBox1.Value
End With
End Sub
dès que tu sors de la textebox1, cela copie
(à voir si c'est le meilleur évenement)
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit dans le message de
news:74f301c3e773$a7da6930$
Dis-donc.....Je mets ça ou(accent grave) cette
instruction??

Denys


ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)



Avatar
Denys
Salut Ru-th,

Merci... je m'y mets...

Denys


-----Original Message-----
éventuellement

Private Sub TextBox1_LostFocus()
With ActiveSheet
Sheets(.ComboBox1.Value).Range("D1").Value
= .TextBox1.Value

End With
End Sub
dès que tu sors de la textebox1, cela copie
(à voir si c'est le meilleur évenement)
--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de

news:74f301c3e773$a7da6930$
Dis-donc.....Je mets ça ou(accent grave) cette
instruction??

Denys


ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)




.




Avatar
isabelle
hé hé ! tu devra attendre le souper avec Céline dans les laurentide pour
ça ;-)
bisou*
isabelle


Salut Ru-th

Enfin quelqu'un pas trop sobre!!!!! Merci mille
fois...Désolé j'ai pas de vin de Touraine chez moi pour en
prendre un verre à ta santé....

À fouiller, j'vais p'têt ben en trouver un avec du
cabernet franc!!!

Merci, c'est gentil

Denys

-----Original Message-----
Le piège
c'est que j'ai du trop boire ety pas lu, la question
nommer !, il a dit le monsieur

ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de


news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys





.






Avatar
Sitting Hoax \(BM\)
sinon, c'est plutôt l'Anjou Brissac !
lu et approuvé ;-))

Amicalement
Sitting Hoax
"ru-th" a écrit dans le message de
news:
Je suis au rhum !
(dans 8 jours, décollage pour la Réunion !)
sinon, c'est plutôt l'Anjou Brissac !
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit dans le message de
news:779401c3e772$8b9baff0$
Salut Ru-th

Enfin quelqu'un pas trop sobre!!!!! Merci mille
fois...Désolé j'ai pas de vin de Touraine chez moi pour en
prendre un verre à ta santé....

À fouiller, j'vais p'têt ben en trouver un avec du
cabernet franc!!!

Merci, c'est gentil

Denys


-----Original Message-----
Le piège
c'est que j'ai du trop boire ety pas lu, la question
nommer !, il a dit le monsieur

ActiveWorkbook.Names.Add Name:=[feuil1!J2],
RefersTo:="þuil1!R8C1"



a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"ru-th" a écrit dans le message de
news:
Salut
sub test
[J2]=[A12]
end sub

où est le piège ?

eventuellement en automatique :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$J$2" Then [A12] = [J2]
End Sub


--
a+
rural thierry
Veaux et Broutards d'Anjou
Wicasa on kin nape yapi inahni yo (à l'essai)

"Denys" a écrit
dans le message de


news:706f01c3e76a$15d42480$
Bonjour à tous,

Est-il possible par VBA que la cellule A8 soit nommée
d'après la valeur inscrite dans la cellule J2 ?

Exemple J2 = Projet ABC
A8 devient Projet ABC

Merci pour vos idées...

Denys





.