Renvoi vers une cellule d'une autre page ...
Alexis
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'aimerais (à l'aide d'une macro, pour éviter la répétition)
envoyer une cellule vers une autre cellule d'une autre page (page variable) sans bloquer la valeur $colonne (pour pouvoir étirrer la formule sans devoir retirer manuellement le "$"
J'essaie d'expliquer avec un exemple:
J'ai une premiere feuille (feuil1), et plusieurs feuilles avec des noms de personne
Sur ma première feuil (feuil1)
j'ai dans la colonne A une liste de nom. (exemple: A5 Alexis, A6 Bernard, etc ...)
j'aimerais que dans la colonne B en appuyant sur un bouton macro1
(lorsque je me trouve sur une cellule en particulier, B6 à droite de A6 Bernard par exemple) cela me renvoie vers la cellule B5 de la page de la personne concernée:
en gros a cote de la cellule A5 (Alexis) dans la cellule B5 je veux =Alexis!$B5
et a cote de la cellule A6 (Bernard) dans la cellule B6 je veux =Bernard!$B5
Actuellement j'ai réussi ceci:
________________________________________
sub Macro1()
'création d'une variable avec le nom de la personne
Dim page As string
'définition de page comme valeur dans la case Ax (a gauche d'où je démarre)
page=activecell.offset(0,-1)
'test via msgbox que ça lit bien le nom de la personne voulue
msgbox page
'selection de la feuille (et de la cellule) correspondant à la personne
shhets(page).select
Range("B5").copy
'Retour dans la feuil1 + copier le lien
sheets(feuil1").select
activesheet.paste link:=true
End sub
_______________________________________
mais cela me donne dans B5 =Alexis!$B$5
et dans B6 =Bernard!$B$6
or je voudrais étirer ces formules donc le 2ème $ m'embête...
J'espère que cela est assez clair...
Merci d'avance pour vos réponses
J'aimerais (à l'aide d'une macro, pour éviter la répétition)
envoyer une cellule vers une autre cellule d'une autre page (page variable) sans bloquer la valeur $colonne (pour pouvoir étirrer la formule sans devoir retirer manuellement le "$"
J'essaie d'expliquer avec un exemple:
J'ai une premiere feuille (feuil1), et plusieurs feuilles avec des noms de personne
Sur ma première feuil (feuil1)
j'ai dans la colonne A une liste de nom. (exemple: A5 Alexis, A6 Bernard, etc ...)
j'aimerais que dans la colonne B en appuyant sur un bouton macro1
(lorsque je me trouve sur une cellule en particulier, B6 à droite de A6 Bernard par exemple) cela me renvoie vers la cellule B5 de la page de la personne concernée:
en gros a cote de la cellule A5 (Alexis) dans la cellule B5 je veux =Alexis!$B5
et a cote de la cellule A6 (Bernard) dans la cellule B6 je veux =Bernard!$B5
Actuellement j'ai réussi ceci:
________________________________________
sub Macro1()
'création d'une variable avec le nom de la personne
Dim page As string
'définition de page comme valeur dans la case Ax (a gauche d'où je démarre)
page=activecell.offset(0,-1)
'test via msgbox que ça lit bien le nom de la personne voulue
msgbox page
'selection de la feuille (et de la cellule) correspondant à la personne
shhets(page).select
Range("B5").copy
'Retour dans la feuil1 + copier le lien
sheets(feuil1").select
activesheet.paste link:=true
End sub
_______________________________________
mais cela me donne dans B5 =Alexis!$B$5
et dans B6 =Bernard!$B$6
or je voudrais étirer ces formules donc le 2ème $ m'embête...
J'espère que cela est assez clair...
Merci d'avance pour vos réponses
A voir également:
- Renvoi vers une cellule d'une autre page ...
- Supprimer une page word - Guide
- Imprimer tableau excel sur une page - Guide
- Créer une page facebook - Guide
- Aller à la ligne dans une cellule excel - Guide
- Comment traduire une page - Guide
ça à l'air très simple... mais je ne vois pas trop où placer cela. et si je dois le completer.
Pourriez vous l'intégrer dans mon "code" ?
" Alexis!$B5 " ... mais je ne veux pas que cela m'écrive ça, je veux que cela me donne la valeur de la case B5 de la page Alexis. (je ne sais pas si vous aviez bien compris ?)
C'est bien vous qui avez ecrit ceci:
en gros a cote de la cellule A5 (Alexis) dans la cellule B5 je veux =Alexis!$B5
Petite erreur de comprehension:
nouvelle formule: =INDIRECT("'"&A5&"'!B5") et etirez vers le bas
Cette nouvelle formule fonctionne je vous en remercie.
A la base je voulais que cela s'étire horizontalement (je ne l'ai pas clairement mentionné), mais pour cela cette fonction ne fonctionne pas.
Pour être complet:
_______________________________________
Sur ma première feuille (feuil1)
j'ai dans la colonne A une liste de nom. (exemple: A5 Alexis, A6 Bernard, etc ...)
j'aimerais que dans la colonne B en appuyant sur un bouton macro1
cela me renvoie vers la cellule B5 de la page de la personne concernée:
en gros a cote de la cellule A5 (Alexis) dans la cellule B5 je veux =Alexis!$B5
et a cote de la cellule A6 (Bernard) dans la cellule B6 je veux =Bernard!$B5
Et ensuite pouvoir étirer HORIZONTALEMENT pour que
en C5 j'obtienne =Alexis!$C5
En C6 j'obtienne =Bernard!$C5
En D5 j'obtienne =Alexis!$D5
En D6 j'obtienne =Bernard!$D5
J'espère que cette précision est claire, si pas cela n'est pas grave je n'ai pas beaucoup de colonne je copierai 7/8 fois une formule différente, cela ne va pas me tuer.
(mais ce serait toujours bon à savoir au cas ou j'avais 30 colonnes)
Merci beaucoup
je ne l'ai pas clairement mentionné
c'est le moins que nous puissions dire et le bouton pour macro fait que nous devons passer par du VBA!!!!!
Et pour B6 et ainsi de suite .......................................??????????????