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

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Récupération indicée d'une cellule d'une autre feuille avec formatage

adept

l'essayer c'est l'adepter...

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 :

Sheets("Feuil1" ).Select
Range("A2" ).Select
Selection.Copy
Sheets("Feuil2" ).Select
Cells(2, 1).Select ' ici je peux récupérer une cellule « étrangère » par indicage
ActiveSheet.Paste
Sheets("Feuil1" ).Select
Selection.Copy
Sheets("Feuil2" ).Select
Range("B2" ).Select ' je récupère un montant
' mais si je veux le formater avec des zéros à gauche,
' je n'arrive pas à utiliser l'indicage par cells
' il n'y a qu'en références absolues que ça marche :
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

Publicité

AlainTech

Pas trouvé? Cherche encore!

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!

adept

l'essayer c'est l'adepter...

effectivement ,

Code :

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 :

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!

FORUM HardWare.fr

Programmation

VB/VBA/VBS

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

Sujets relatifs
[ JEXCEL/JXL] Problème lors de la création d'une feuille (sheet)	Récupération d'une donnée d'un fichier
aller chercher une fonction dans une autre feuille excel	Imprimer qu'une feuille / page (vba)
Récupération de valeurs checkbox dynamiquement	[Résolu] recuperation valeur menu déroulant
[VBA] copier la colonne d'une feuille dans une autre	Récupération des données EXIF d'une image JPEG
[VB6] Se placer aléatoirement sur une cellule d'un tableau	activation d'une feuille pour l'execution de la suite du programme
Plus de sujets relatifs à : Récupération indicée d'une cellule d'une autre feuille avec formatage

Page générée en 0.038 secondes