Récupération indicée d'une cellule d'une autre feuille avec formatage

Récupération indicée d'une cellule d'une autre feuille avec formatage - VB/VBA/VBS - Programmation

Marsh Posté le 13-06-2005 à 09:10:56    

Bonjour,
 
J'essaie depuis longtemps
de récupérer une cellule représentant un montant
et de la transcrire dans une autre feuille avec un format fixe et des zéros à gauche:
la formule est donc: TEXTE(cellule; ''00000000000 '')
c'est très simple.
Donc , en vba ça donne ceci:

Code :
  1. Sheets("Feuil1" ).Select
  2.     Range("A2" ).Select
  3.     Selection.Copy
  4. Sheets("Feuil2" ).Select
  5.     Cells(2, 1).Select    ' ici je peux récupérer une cellule « étrangère » par indicage
  6.     ActiveSheet.Paste
  7. Sheets("Feuil1" ).Select
  8.     Selection.Copy
  9. Sheets("Feuil2" ).Select
  10.     Range("B2" ).Select   ' je récupère un montant
  11.    ' mais si je veux le formater avec des zéros à gauche,
  12.   '  je n'arrive pas à utiliser l'indicage par cells
  13.   '  il n'y a qu'en références absolues que ça marche :
  14. ActiveCell.FormulaR1C1 = "=TEXT(Feuil1!RC[9],""0000000000000000"" )"


 
Je voudrais savoir comment je peux ré-écrire
la fonction TEXT en remplaçant des références absolues
par des références relatives (indicées)
(TEXT(Sheets("Feuil2" ).cells(2,11)), ....est refusé par Vba )
-
Merci très fort de votre aide

Reply

Marsh Posté le 13-06-2005 à 09:10:56   

Reply

Marsh Posté le 13-06-2005 à 18:45:28    

RC[9] n'est pas une référence absolue...
Cela signifie l'équivalent de ActiveCell.Cells(1,10)
 
Je ne comprends pas la question.
Veux-tu remplacer la formule écrite dans une cellule par du code en VBA?
 
Si c'est le cas, utilise la fonction Format à la place de TEXT.


---------------
Si on vous donne une info qui marche, DITES-LE!!!! ------ Si vous trouvez seul, AUSSI, votre solution peut servir à d'autres! ------ Je dois la majorité de mes connaissances à mes erreurs!
Reply

Marsh Posté le 13-06-2005 à 19:28:56    

effectivement ,

Code :
  1. RC[9] n'est pas une référence absolue...


et je te remercie 1000 fois de souligner ce point
honte à moi!
Suffirait-il donc de déplacer l'ActiveCell d'une ligne
pour que mon "...RC[9]" pointe automatiquement sur la ligne suivante?
...
pour autant que j'aie fait un
 

Code :
  1. Sheets("Feuil2" ).cells(ligne,colonne).select


juste avant,
c'est ça ?
Je n'ai pas le temps de tester maintenant  
mais je te tiens au courant.
En tous cas tu m'as éclairci le pb,
Grand Merci!

Reply

Sujets relatifs:

Leave a Replay

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