code pour nommer la cellule sélectionnée

[alfazoulou]

Bonjour le forum.
je voudrais pouvoir attribuer un nom à la cellule sélectionnée, (A105 dans l'exemple) pour cela j'ai enregistré une macro qui donne :
ActiveWorkbook.Names.Add Name:="titi", RefersToR1C1:="=Feuil1!R105C1"
mon problème c'est que je voudrais nommer n'importe quelle cellule du moment qu'elle est sélectionné par l'intermédiaire d'un code VBA et d'un userform et donc je ne connais pas l'adresse de la cellule.
en bref, comment remplacer dans le code ci dessus
="=Feuil1!R105C1"
par
"cellule sélectionnée"
et
="titi"
par
le texte saisi dans l'userform.

merçi pour votre aide

 

[JNP]

Re : code pour nommer la cellule sélectionnée

Bonjour AlfaZoulou 🙂,
Sur la base du nom dans un TextBox1

ActiveWorkbook.Names.Add Name:=TextBox1, RefersToR1C1:= _
    "=" & ActiveSheet.Name & "!R" & Selection.Row & "C" & Selection.Column

Bon WE 😎

 

[pierrejean]

Re : code pour nommer la cellule sélectionnée

bonjour Alfazoulou

Salut JNP

Et pour la cellule selectionnée

ActiveWorkbook.Names.Add Name:=ActiveCell.Value, RefersToR1C1:= _
    "=" & ActiveSheet.Name & "!R" & Selection.Row & "C" & Selection.Column

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

merci à tous deux pour vos réponse, mais entre temps j'avais trouvé
ActiveWorkbook.Names.Add Name:=TextBox1.Text, RefersToR1C1:=ActiveCell
cela semble fonctionner aussi.

j'ai une autre question et je ne sais pas si je dois créer un autre post donc excusez moi ci c'est le cas.

Comment copier les cellules contenues dans une zone nommée "montants" correspondant à 3 lignes de mon tableau, et les coller 4 lignes plus haut en conservant les formules contenues?
je continue à chercher de mon coté...

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

en fait j'ai trouvé une réponse partielle en faisant
Range("montants").Select
Selection.Copy
ActiveCell.Offset(-4, 0).Select

ActiveSheet.Paste
Application.CutCopyMode = False
mais le probleme c'est que les formules se trouvent décalées de 4 lignes
de sorte que la formule initiale
=SOMME(E22:E88)
est reportée 4 lignes plus haut sous la forme
=SOMME(E18:E84)

 

[JNP]

Re : code pour nommer la cellule sélectionnée

Re 🙂,
Si tu bloque les lignes avec des $

=SOMME(E$22:E$88)

ça ne se reproduira pas, mais je ne suis pas sûr que ce soit la solution à ton problème...
sinon, il faut copier la valeur des cellules une par une...
Bon courage 😎

 

[pierrejean]

Re : code pour nommer la cellule sélectionnée

Re

Avec comme le suggere JNP des references absolues:

Range("montants").Copy Destination:=Range("montants").Offset(-4, 0)

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

Merci JNP mais effectivement ça ne marche pas car vu que j'insère des lignes dans mon tableau la plage correspondant à la somme s'agrandit sans cesse, ce qui n'est plus possible avec ta solution.

 

[pierrejean]

Re : code pour nommer la cellule sélectionnée

Re

A tester:

For Each cel In Range("montants")
  cel.Offset(-4, 0).FormulaLocal = cel.FormulaLocal
Next cel

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

Re

A tester:

For Each cel In Range("montants")
  cel.Offset(-4, 0).FormulaLocal = cel.FormulaLocal
Next cel

merci pierre jean pour tes réponse, la première ne fonctionne pas et
je n'est pas testé ta deuxième solution.
j'ai essayé d'envoyer un fichier mais il dépasse la taille maxi.

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

ta deuxième solution fonctionne pour la premier ligne des trois qui composent la plage mais pas pour les deux autres.
je vais essayer de joindre un fichier.

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

voici le fichier joint...

 

[pierrejean]

Re : code pour nommer la cellule sélectionnée

Re

Que signifie : ne fonctionne pas ?
Quelle formule au depart ? , quelle formule a l'arrivée ?

 

[alfazoulou]

Re : code pour nommer la cellule sélectionnée

Re

Que signifie : ne fonctionne pas ?
Quelle formule au depart ? , quelle formule a l'arrivée ?

excuse moi si je me suis mal exprimé, ça sera plus facile avec le fichier joint.

 

[pierrejean]

Re : code pour nommer la cellule sélectionnée

Re
Vu toto

Peux-poser le probleme en partant de l'origine ? (decalage de combien de lignes ?)
Et montrer sur ton fichier ce a quoi tu veux arriver