[Vba] Utiliser le nom de la feuille dans le nom de celulle

Utiliser le nom de la feuille dans le nom de celulle [Vba] - VB/VBA/VBS - Programmation

Marsh Posté le 24-10-2013 à 12:06:39    

Bonjour,  
 
Certaines cellules sont nommés de la sorte :
feuil1_Total
 
Aussi je n'arrive pas à ré-utiliser ce nom de feuille:

Code :
  1. Activecell.formulaR1C1 = "=Range(Activesheet.Name & "_Total" )


 
Qu'en pensez-vous ?
 
Merci pour tout l'aide.

Reply

Marsh Posté le 24-10-2013 à 12:06:39   

Reply

Marsh Posté le 24-10-2013 à 13:21:56    

Code :
  1. ActiveCell.Value = ActiveSheet.Name & "_Total"


 
Pourquoi un range? Pourquoi un formulaR1C1?

Reply

Marsh Posté le 24-10-2013 à 13:25:48    

Bonjour, et merci.
 
Je souhaite que la valeur de la cellule active  
change en fonction  
de la valeur de la cellule nommée ActiveSheet.Name & "_Total"
 
Cordialement.

Reply

Marsh Posté le 24-10-2013 à 14:06:46    

C'est la valeur de la cellule qui vaut "feuil1_Total" et non son nom? Une cellule n'a pas de nom à ma connaissance. Il faut donc dans un premier temps récupérer les coordonnées de la cellule ayant pour valeur "feuil1_Total".

Reply

Marsh Posté le 24-10-2013 à 14:15:04    

"feuil1_Total" est bien le nom de la cellule
(sa valeur est un nombre)
 
 
Aussi j'utilise Formula pour la rendre interactive (que sa valeur change).
 
Tu vois ?
 
 :)  
 

Reply

Marsh Posté le 24-10-2013 à 16:00:03    

Ok, je ne savais pas qu'on pouvait renommer une cellule, du coup ceci devrait faire l'affaire :
 

Code :
  1. ActiveCell.FormulaR1C1 = Range(ActiveSheet.Name & "_Total" ).FormulaR1C1

Reply

Marsh Posté le 25-10-2013 à 11:27:32    

Bonjour,  
 
Ce code renvoi l'erreur 13
 
 :cry:

Reply

Marsh Posté le 25-10-2013 à 12:14:23    

Chez moi ça fonctionne...
 
Quel est le contenu de ta cellule Feuil1_Total?

Reply

Marsh Posté le 25-10-2013 à 12:25:27    

 
           Bonjour philwatt1,
 
           c'est un peu idiot d'avoir défini le nom de la cellule avec le nom de la feuille
           car les noms de cellules peuvent très bien n'avoir qu'une portée feuille au lieu d'une portée globale classeur !
 

Code :
  1. ActiveCell.Formula = "=" & ActiveSheet.Name & "_Total"

           Si cette ligne de code ne correspond toujours pas au besoin, il serait souhaitable de le présenter clairement et exhaustivement,
           ce qui du reste aurait dû être fait dès le message initial …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed