insertion de nom de cellule en VB

[josias]

Bonjour le forum !!!

Encore une petite question qui je suis sur ne devrait pas poser de problème a certain d'entre vous:

Pour Inserer un nom en VB, j'utilise le code suivant :

Range("CK2" + nb).Select <----- ça sa marche
ActiveWorkbook.Names.Add Name:=("PrixUnitaire" + nbcell), RefersToR1C1:="=R" + numcellule + "C89" <------ça sa marche pô

La syntaxe ne dois pas être bonne, ...je sais pô..;

Qui a une idée ?

Merci de votre aide !!!

 

[sousou]

Pour ma part cà fonctionne en utilisant l'opérateur & à la place de+

 

[josias]

Bonjour sousou !

J'ai vraiment dumal avec la syntaxe pour les variables !

ba voila, j'utilise l'operateur & de cette manière:



ActiveWorkbook.Names.Add Name:=("PrixUnitaire" + nbcell), RefersToR1C1:="=R "& numcellule &" C89"

Et la le compilateur stop et me dit qu'il a un problème avec la formule alors que je ne veux pas inserer de formule....mais c'est vrai que dans la cellule que je veux nommer, il y a une formule...

Tu sais pourquoi ? Encore un problème de syntaxe ?

Merci sousou

 

[Pascal76]

Bonjour le fil

Essaies

ActiveWorkbook.Names.Add Name:="PrixUnitaire" & nbcell, RefersToR1C1:="=R"& numcellule & "C89"

Attention aux espaces dans tes chaines après le R et avant le C

Pascal

 

[josias]

Bonjour Pascal !!

Merci de ton aide.

Mais ça ne marche toujours pas, voila la réference que j'ai lorsque je regarde dans Insertion_ Definir: --------> =R24C89 ....
Donc forcement, il ne trouve pas la cellule...

Tu as une autre idée ?

Merci

 

[Pascal76]

re

Peux-tu dire à quoi correspondent tes variables nbcell et numcell. Tu les récupères bien ??

Pascal

 

[josias]

Voila Pascal, un peu plus de renseignement par rapport a mon code:

numcell = 20 + nombrefeuille
numcellule = Format(numcell) <------permet de convertir un entier en caractère


nbi = nombrefeuille + 1<--------nombrefeuille est un entier que je passe en paramettre
nbcell = Format(nbi, "000")<-------ici, selon nbi , nbcell sera egal à 001,002,etc...
Range("CK2" + nb).Select
ActiveWorkbook.Names.Add Name:="PrixUnitaire" & nbcell, RefersToR1C1:="=R" & numcellule & "C89"

 

[Pascal76]

Donc le nom que tu donnes à ta cellule sera PrixUnitaire001 par exemple

et la ligne de la cellule nommée variera en fonction de numcellule par contre toujours colonne 89 ??

Pascal

 

[josias]

Exactement, c'est ça.

Si tu as une autre idée, je suis preneur.

Merci

 

[Pascal76]

Bon je viens d'essayer ceci

nbcell = 1
nbcell = Format(nbcell, "000")
numcellule = 2
ActiveWorkbook.Names.Add Name:="PrixUnitaire" & nbcell, RefersToR1C1:="=R" & numcellule & "C8"

et j'ai bien ma cellule H2 nommé PrixUnitaire001

ALors envoies peut-être un morceau du fichier pour voir

Pascal

 

[josias]

Je viens de retester et je m'aperçois que quant je met un point d'arrêt au niveau du code en question et que ensuite, je fais " continuer ", apparemmet, ça marche...mais quant je ne met pas de point d'arrêt, ça marche pas..

si ces dernières infos ne te permettent pas de trouver une solution, alors je t'envois une partie du fichier..

Merci Pascal

 

[josias]

Pascal, veux tu que je t'envois quant même le fichier ?

 

[Pascal76]

excuse je n'avais pas compris qu'il s'agissait d'une question

Oui bien sûr ce sera plus facile

Pascal

 

[josias]

Desolé mais j'arrive pas à faire en sorte qu'il soit plus petit que 50 KO...
C'est possible que je te l'envois a ton adresse perso ?

 

[josias]

Pour infos, en ZIP il fait 98 KO...