Références d'une zone Tableau Croisé en macro (modification)
2 réponses
mml
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une
liste.
Ca marche bien sauf pour le point suivant:
Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à
la fin, mais dans le code la zone est répertoriée par l'adresse absolue des
cellules.
Aussi, la prochaine fois que la macro sera lancée, la même adresse
absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui
peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin").
Quelqu'un voit-il comment faire ?
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour,
Sub Macro1() 'à partir de la sélection du champ de ligne x = Selection.End(xlDown).Row y = Selection.End(xlToRight).Column Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une liste. Ca marche bien sauf pour le point suivant: Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à la fin, mais dans le code la zone est répertoriée par l'adresse absolue des cellules. Aussi, la prochaine fois que la macro sera lancée, la même adresse absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin"). Quelqu'un voit-il comment faire ?
Sub Macro1()
'à partir de la sélection du champ de ligne
x = Selection.End(xlDown).Row
y = Selection.End(xlToRight).Column
Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select
End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une
liste.
Ca marche bien sauf pour le point suivant:
Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à
la fin, mais dans le code la zone est répertoriée par l'adresse absolue des
cellules.
Aussi, la prochaine fois que la macro sera lancée, la même adresse
absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui
peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin").
Quelqu'un voit-il comment faire ?
Sub Macro1() 'à partir de la sélection du champ de ligne x = Selection.End(xlDown).Row y = Selection.End(xlToRight).Column Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une liste. Ca marche bien sauf pour le point suivant: Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à la fin, mais dans le code la zone est répertoriée par l'adresse absolue des cellules. Aussi, la prochaine fois que la macro sera lancée, la même adresse absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin"). Quelqu'un voit-il comment faire ?
Sub Macro1() 'à partir de la sélection du champ de ligne x = Selection.End(xlDown).Row y = Selection.End(xlToRight).Column Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une
liste. Ca marche bien sauf pour le point suivant: Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à
la fin, mais dans le code la zone est répertoriée par l'adresse absolue des
cellules. Aussi, la prochaine fois que la macro sera lancée, la même adresse absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui
peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin"). Quelqu'un voit-il comment faire ?
"isabelle" <hoHoho@hohoHo> a écrit dans le message de
news:ODQDs0iYFHA.3620@TK2MSFTNGP09.phx.gbl...
bonjour,
Sub Macro1()
'à partir de la sélection du champ de ligne
x = Selection.End(xlDown).Row
y = Selection.End(xlToRight).Column
Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select
End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir
d'une
liste.
Ca marche bien sauf pour le point suivant:
Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va
bien à
la fin, mais dans le code la zone est répertoriée par l'adresse absolue
des
cellules.
Aussi, la prochaine fois que la macro sera lancée, la même adresse
absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée
qui
peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin").
Quelqu'un voit-il comment faire ?
Sub Macro1() 'à partir de la sélection du champ de ligne x = Selection.End(xlDown).Row y = Selection.End(xlToRight).Column Range(Cells(Selection.Row, Selection.Column), Cells(x, y)).Select End Sub
isabelle
Bonjour,
JE CORRIGE MA QUESTION :
Je dois mettre en place une macro qui crée un tableau croisé à partir d'une
liste. Ca marche bien sauf pour le point suivant: Le fait de sélectionner la zone concernée par Ctrl + Maj + Fin va bien à
la fin, mais dans le code la zone est répertoriée par l'adresse absolue des
cellules. Aussi, la prochaine fois que la macro sera lancée, la même adresse absolue sera utilisée au lieu de l'adapter à la nouvelle liste importée qui
peut grossir ou rétrécir. ( et non "au nouveau Ctrl + Maj + Fin"). Quelqu'un voit-il comment faire ?