Récupérer valeur d'une cellule par son adresse

Efgé

XLDnaute Barbatruc

• 20 Février 2010

• #2

Re : Récupérer valeur d'une cellule par son adresse

Bonjour apnw7931,
Pour "A1 = B5 de la feuille 1"

Code:

Sheets("Feuil6").Range("A1").Value = Sheets("Feuil1").Range("B5").Value

Pour le problème du UserForm, il faudrait un fichier exemple.
Cordialement

 

Vote positif 0 Vote négatif

A

apnw7931

XLDnaute Nouveau

• 20 Février 2010

• #3

Re : Récupérer valeur d'une cellule par son adresse

Pour l'instant, j'ai ca qui fonctionne pour la première feuille
Mais ca reste du statique.

= "=INDIRECT( ""'Feuil1'!""&""B5"",TRUE )"

Mais j'aimerai pouvoir inserer dans la fonction des arguments

x = B
y = 5

--> =INDIRECT( ""'Feuil1'!""& x&y,TRUE )" mais ca fonctionne pas.

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Février 2010

• #4

Re : Récupérer valeur d'une cellule par son adresse

bonsoir apnw7931

Deux essais dans le classeur joint.​

ROGER2327
#2810

 

Pièces jointes

• Temp.xls

  17 KB · Affichages: 249
• Temp.xls

  17 KB · Affichages: 260
• Temp.xls

  17 KB · Affichages: 271

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 20 Février 2010

• #5

Re : Récupérer valeur d'une cellule par son adresse

Bonsoir apnw7931, ROGER2327

Pour l'intégrer à une macro, tu peux essayer ce code :

Code:

    Sheets("Feuil3").Range("A1").Value = "=INDIRECT('Feuil1'!" & x & y & ",TRUE)"

A+

 

Vote positif 0 Vote négatif

A

apnw7931

XLDnaute Nouveau

• 20 Février 2010

• #6

Re : Récupérer valeur d'une cellule par son adresse

@ Fredo, ca bug dans VBA. Mais je cherche vraiment qqch comme ca !!

@ Roger, j'ai deja réussi a arriver a ce résultat. Ce qui me faut, c'est une et une seule fonction (c'est a dire qui ne dépend pas d'autres "nouvelles" cellules)

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 20 Février 2010

• #7

Re : Récupérer valeur d'une cellule par son adresse

Re apnw7931,
Bonsoir Fred0o, ROGER2327,

apnw7931 à dit:

A terme, le choix de la selection se fera par un userform.
(variable a = B, varible b = 5)

Cliquez pour agrandir...

Je pense qu'il serait préférable d'avoir un peu plus d'explications. Si nous parlons de variable récupérée dans USF ou un problème de formule sur une feuille.
Pour l'instant, comprend pas la réelle demande.
Cordialement

 

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 20 Février 2010

• #8

Re : Récupérer valeur d'une cellule par son adresse

Re bonsoir apnw7931,

Si je me réfère à ta demande initiale :

Bonjour, dans un classeur Excel, j'ai 5 feuilles.

Sur une 6ème feuille, j'aimerai pouvoir récupérer, par exemple, toutes les valeurs des cellules B5 de chacune des 5 feuilles.

Donc, sur ma feuille 6, je veux qqch du genre:

A1 = B5 de la feuille 1
B1 = B5 de la feuille 2
C1 = B5 de la feuille 3
D1 = B5 de la feuille 4
E1 = B5 de la feuille 5

Comment faire s'il vous plait ?

A terme, le choix de la selection se fera par un userform.
(variable a = B, varible b = 5)

Cliquez pour agrandir...

Je comprends que tu veux afficher dans la feuil6 dans les cellules respectivement A1 => E1, le contenu de chaque cellule B5 pour les feuilles Feuil1 => Feuil5.

Donc dans ce cas, il le faut pas utiliser la fonction INDIRECT mais plutôt le code fourni par Efgé

Code:

Sheets("Feuil6").Range("A1").Value = Sheets("Feuil1").Range("B5").Value

qui fait référence au contenu de chaque cellule B5. La fonction INDIRECT, elle, fait référence au contenu de la cellule dont l'adresse se trouve en B5.

A+

 

Vote positif 0 Vote négatif

A

apnw7931

XLDnaute Nouveau

• 20 Février 2010

• #9

Re : Récupérer valeur d'une cellule par son adresse

Code:

Sheets("Feuil6").Range("A1").Value = Sheets("Feuil1").Range("B5").Value

Le probleme ici, est le B5.
J'aimerai une formule du genre

Code:

cellule_arbitraire = B5
Sheets("Feuil6").Range("A1").Value = Sheets("Feuil1").Range(cellule_arbitraire).Value

de telle sorte que ma formule/macro reste correcte, et ce pour n'importe quelle cellule que je définirai

Edit : comme ca,ca semble fonctionner

Code:

a = "J11"
'
Cells(1, 1) = Sheets("H1").Range(a).value

 

Dernière édition: 20 Février 2010

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 20 Février 2010

• #10

Re : Récupérer valeur d'une cellule par son adresse

Bonsoir,

http://boisgontierjacques.free.fr/fichiers/Indirect/IndirectRecapFeuilles.xls

si noms de feuilles génériques

=SI(ESTERREUR(INDIRECT("feuil"&LIGNES($1:1)&"!b5"));"";INDIRECT("feuil"&LIGNES($1:1)&"!b5"))

JB

 

Dernière édition: 20 Février 2010

Vote positif 0 Vote négatif

Fred0o

XLDnaute Barbatruc

• 20 Février 2010

• #11

Re : Récupérer valeur d'une cellule par son adresse

Re bonsoir

Tu peux écrire quelque chose dans le genre :

Code:

    x = "B"
    y = 5
    celTmp = x & y
    Sheets("Feuil6").Range("A1").Value = Sheets("Feuil1").Range(celTmp).Value

Ainsi, tu pourras faire varier x et y à ta guise.

A+

 

Vote positif 0 Vote négatif

ROGER2327

XLDnaute Barbatruc

• 20 Février 2010

• #12

Re : Récupérer valeur d'une cellule par son adresse

Re...

apnw7931 à dit:

(...)
@ Roger, j'ai deja réussi a arriver a ce résultat. Ce qui me faut, c'est une et une seule fonction (c'est a dire qui ne dépend pas d'autres "nouvelles" cellules)
(...)

Cliquez pour agrandir...

Donc je n'ai rien compris. Pas grave...​

ROGER2327
#2812

 

Vote positif 0 Vote négatif