Excel-Recherche d'une cellule par son adresse

apnw7931 Messages postés 55 Statut Membre -  
apnw7931 Messages postés 55 Statut Membre -
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)

Merci?

5 réponses

lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Salut,

Sheets(6).Range("A1")=Sheets(1).Range("B5")
Sheets(6).Range("B1")=Sheets(2).Range("B5")


Tu peux aussi référencer par nom de la feuille

Sheets(6).Range("A1")=Sheets("feuil1").Range("B5")
Sheets(6).Range("B1")=Sheets("feuil2").Range("B5")


Pour ne pas répéter plusieurs fois la référencé vers la feuille 6 tu peux utiliser With ... End With

With Sheets(6)
    .Range("A1")=Sheets("feuil1").Range("B5")
    .Range("B1")=Sheets("feuil2").Range("B5")
End With

0
apnw7931 Messages postés 55 Statut Membre 9
 
Une erreur sur le Range :-/
0
lami20j Messages postés 21644 Date d'inscription   Statut Modérateur, Contributeur sécurité Dernière intervention   3 570
 
Re,

J'étais en train d'éditer le message ;-)
0
apnw7931 Messages postés 55 Statut Membre 9
 
Merci.

Et comment rentrer des arguments la dedans ?
J'aimerai inserer des variables du genre
a = B
b = 5

comment adpater les formules ?
0
apnw7931 Messages postés 55 Statut Membre 9
 
Pour l'instant, j'ai ca qui fonctionne pour la premiere feuille
Mais ca reste du statique.

ActiveCell.FormulaR1C1 = "=INDIRECT( ""'Feuil1'!""&""B5"",TRUE )"
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
apnw7931 Messages postés 55 Statut Membre 9
 
J'aimerai plutot qqch du genre

a=B
b = 5

=INDIRECT( ""'H1'!""&" a&b ",TRUE )
0