Comment passer d'un Cells à un Range ?

Bonjour à tous

Petite question relevant du B-A-BA du VBA sous Excel... Je peux passer outre, mais ça me simplifierait drôlement la vie d'y trouver une réponse : y a-t-il un moyen de passer directement d'un, par exemple, "Cells(1,1)" à la notation "A1" ?

Pour l'instant, les numéros de colonne et de ligne étant des variables, et pas des nombres fixes, je suis obligée de faire un Select Case... (J'ai en effet besoin de savoir le nom de la cellule, pour la référencer dans une autre feuille (vous savez, "Feuil1!A1" ...)


Existe-t-il plus simple... ?

Code:

---

cells(ligne,colonne).value=range(colonne & ligne).value

---

donc

Code:

---

cells(1,1).value=range("A1").value

---

Salut,

Pourrait-on avoir un petit bout de code, surtout au niveau du Select Case ?

Sinon, en faisant

Code:

---

Cells(1,1).Address

---

tu obtiens $A$1.

Cependant, je pense que tu as beaucoup plus simple mais j'aimerais bien voir le code pour mieux comprendre ça :

Citation:

---

(J'ai en effet besoin de savoir le nom de la cellule, pour la référencer dans une autre feuille (vous savez, "Feuil1!A1" ...)

---

Par exemple, pour parler de la cellule A1 de la feuille "Feuil1" tu n'as pas besoin de ça : un simple

Code:

---

Worksheets("Feuil1").Cells(1,1) ou Range("A1")

---

suffit.

tu peux faire :

Code:

---

feuill.range(Replace(classeur.Worksheets("nomfeuille").Cells(i, j).Address, "$", ""))

---

enfin je le vois comme ca je pense qu'on peut faire mieux

si ca repond bien a ta question.

si ca marche pas comme ca peut etre qu'il faut les guillemet:

Code:

---

feuill.range(Chr(34) & Replace(classeur.Worksheets("nomfeuille").Cells(i, j).Address, "$", "") & Chr(34))

---

Merci à tous pour vos réponses rapides

Pour le Select Case, ça donnerait quelque chose comme :
(Prenons un exemple : si je veux référencer la cellule (i, 1) de la feuille 1 dans la cellule (j, 1) la feuille 2...)

Code:

---

1 2 3 4 5 6 7 8

Select Case i Case 1 Cells(j, 1) = "=Feuil1!A1" Case 2 Cells(j, 1) = "=Feuil1!B1"   ...

---

La réponse de PsychoSiffleur me parait en effet pas mal.
J'aurai pensé qu'Excel avait une fonction toute faite pour ce genre de choses...

Re,

Tu as quelques incohérences dans ton algorithme, il me semble.

Prenons Cells(X,Y). X est le numéro de la ligne et Y est le numéro de la colonne. Je pense donc que tu voudrais plutôt dire :

Code:

---

1 2 3

Cells(j, 1) = "=Feuil1!A1" et Cells(j, 1) = "=Feuil1!A2"

---

En effet, il me semble plus logique d'attribuer à la cellule A2 de Feuil1 la cellule A2 de Feuil2 plutôt que la cellule B1. Après, ce n'est peut-être pas ce que tu veux mais ça semble plus logique à vue de nez.

Enfin, tu n'as pas besoin de faire tout cela. Il suffit de faire :

Code:

---

1 2 3 4 5 6 7 8

Dim j as integer   j = 1   For i = 1 to 10 'Si tu as 10 Case par exemple (je préfère la boucle plutôt que le Select Case mais tu peux rester avec) Worksheets("Feuil2").Cells(j, 1) = "=Feuil1!A" & i j = j +1 Next

---

Citation:

---

En effet, il me semble plus logique d'attribuer à la cellule A2 de Feuil1 la cellule A2 de Feuil2 plutôt que la cellule B1. Après, ce n'est peut-être pas ce que tu veux mais ça semble plus logique à vue de nez.

---

Ce n'était qu'un exemple. Je retrouve ce problème un peu partout dans mon code, et mes exemples à moi sont bien trop compliqués pour cette simple question. Mais j'insistais volontairement sur le fait que ce soit la colonne qui change. En effet, si c'est la ligne, pas de problème, une boucle suffit, mais si c'est la colonne, je dois à chaque fois marquer à nouveau la formule (puisque le A se tranforme en B, etc). C'est assez prise de tête... :?

et bien déplace toi avec un cells(i,j) dans un double boucle, ou carrement:

Code:

---

For Each c In [A1:IK51]

---

comme ca tu choisi ta case de départ et d'arrivé que ce soit sur une ligne ou ligne et colonne tu choisi tout comme tu veux, c'est encore plus simple.... je crois .:mrgreen:

Justement, tout le problème est que la taille de la selection n'est pas fixe... =/
C'est tout un tas de calculs qui désignent la dernière case, et je ne peux donc pas faire une boucle For Each non plus, puisque je ne sais pas à l'avance où la terminer...

Tu peux très bien savoir à l'avance où terminer.

Code:

---

Range("A65536").End(xlUp).Row

---

représente par exemple la ligne de la dernière cellule de la colonne A non vide. Tu peux aussi obtenir la colonne ou l'adresse que tu peux manipuler avec un Replace. Tu peux aussi le faire pour des colonnes etc. Ce ne sont que des exemples.

Citation:

---

Tu peux aussi obtenir la colonne ou l'adresse que tu peux manipuler avec un Replace. Tu peux aussi le faire pour des colonnes etc. Ce ne sont que des exemples.

---

Pas tout compris. :?
Toutes ces fonctions servent à voir la derniere cellule de telle ligne, telle colonne, etc, c'est bien ça ?

Mais là, en l'occurence, la fin de ma sélection ne tombe pas sur ce genre de cellule..
Enfin, cela dit, ça reste possible, puisque j'ai mon i et mon j, mais on en revient à ma question initiale, qui est "comment savoir directement quelle lettre est associée à mon j (par exemple i = 2 et j = 1 -> A2)", et donc au final ça ne simplifie pas ^^' .
Mais merci de vous pencher sur ce problème u_u

Bon, arrêtons de tourner autour du pot 8O

Que dirais-tu d'exposer TOUT le problème clairement code à l'appui ? Avec des petits exemples et tout le tintouin ! :mouarf: Comme cela, on pourrait enfin comprendre de quoi il s'agit :ccool:

Je suis sûr à 99,9% qu'il y a bien plus simple de faire ce que tu souhaites et qu'Excel le gère. Pour l'instant, on te propose des choses sans savoir de quoi il retourne, c'est pas super.

J'avoue :roll:
A vrai dire à la base je pensais qu'il suffirait d'une seule réponse, contenant une fonction capable de passer de "Cells(1, 1)" à "Range("A1")" :roll:

Visiblement non ^^'

Pour l'instant j'ai trouvé le moyen de contourner ma difficulté, je continuais à poser la question par curiosité, et parce que le problème se présentera très certainement à nouveau.
Du coup... je donnerai code et exemples quand je me trouverai à nouveau face à ce petit soucis... =/


Merci de votre patience.

Citation:

---

A vrai dire à la base je pensais qu'il suffirait d'une seule réponse, contenant une fonction capable de passer de "Cells(1, 1)" à "Range("A1")"

---

C'est surtout que c'est plus ou moins la même chose, donc tant que tu ne nous aura pas expliqué pourquoi l'un et pas lautre on ne fait qu'énnoncer des généralité.
Tant que l'on y est je rajoute ma fonction (bien inutile celle là)

Code:

---

Range(Cells(i,j).address)

---

Voila j'avais un cells j'ai un range

tu peux plus simplement faire

Code:

---

Range(Cells(i,j),cells(k,n))

---

cella permet de sélectionner une plage (et si i=k et k=n tu selectionne une seule cellule)

hmm bien sur i,j,k,n sont a remplacer par des nombre ou du moins il faut leur donner une valeur (je dit ca parce qu'on ma fait le coup aujourd'hui :aie:)

Citation:

---

C'est surtout que c'est plus ou moins la même chose, donc tant que tu ne nous aura pas expliqué pourquoi l'un et pas lautre on ne fait qu'énnoncer des généralité.

---

Simplement parce que je souhaite utiliser la cellule en question dans une formule du type "=Feuil1![Cellule-en-question]", et que ça ne marche pas avec un Cells. Je voulais juste l'équivalent en lettre + chiffre (type "A1").

Et bien la on avanc,e et ni un cells ni un range ne fonctionne
essaye

Code:

---

"=Feuil1!" & cells(1,1).address

---

ou alors

Code:

---

1 2	"=Feuil1!" & Range("A1").address

---

ou directement

Code:

---

1 2 3

dim ad as string ad="A1" 'ou ad="A" & 1 "=Feuil1!" & ad

---

Comme quoi pose un question précise si tu veux une réponse précise (la on est encore un peu vague mais c'est mieu)

Citation:

---

Comme quoi pose un question précise si tu veux une réponse précise (la on est encore un peu vague mais c'est mieu)

---

Mais c'est ce que je me tue à dire depuis mon tout premier message =O !
"(J'ai en effet besoin de savoir le nom de la cellule, pour la référencer dans une autre feuille (vous savez, "Feuil1!A1" ...)"

J'essairai le ".adress". Les deux autres ne me servent à rien, plutot que de mettre

Code:

---

"=Feuil1!" & Range("A1").address

---

par exemple, il est bien plus simple de mettre directement

Code:

---

"=Feuil1!A1"

---

.
Non, mon problème était que justement, je connaissais bien les numéros de ligne et de colonne, mais pas l'équivalent en lettre et chiffre, parce que mes numéros de ligne et colonne étaient des variables, des nombres qui n'étaient pas fixes.

bon et moi aussi je me tu a te donner la réponse
tu connai le numéro de ligne et de colonne regarde cette reponse que est un copier collé de la précédente

Code:

---

"=Feuil1!" & cells(1,1).address

---

tu replace les 1 par TES variables et c'est fini, non ?

Si la colonne est fixe mais pas la ligne
Range("A" & i)

Tu peut assi avoir un range venant d'un find et avoir besoin de l'utiliser ou partir d'un range et utilisé offset.
On est pas dans ta tête et si on a pas des donnée précise on est générale. L'un des meilleur moyen d'avoir un réponse précise est de donner un morceau de code

Oui, et c'est pour ça que j'ai dit que j'allais tenter le ".adress" :roll:
(non mais on va y arriver, hein ^^')
merci