Discussion :

[SmOkEiSBaD]

Bonjour,
Je sélectionne un Range grâce à la fonction GoTo, je souhaiterais récupérer ce Range dans un objet de type CRange.
Je ne trouve pas de fonction du type get_CurrentSelection ou get_CurrentRange, et la fonction get_ActiveCell ne me renvoie pas tout mon range mais seulement la première cellule de ceui-ci...

Y a t-il une solution ?

Merci.

[zazaraignée]

Parce qu'il y a l'objet ActiveCell que tu peux appeler directement. Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "La valeur de la cellule " & ActiveCell.Address & " est " ActiveCell.Value

[mayekeul]

bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "La valeur de la cellule " & ActiveCell.Address & " est " ActiveCell.Value

je mettrais plutot ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox "La valeur de la cellule " & selectionAddress & " est " ActiveCell.Value

[SmOkEiSBaD]

Bonjour,
Le problème est que mon Range est plus grand qu'une Cellule, et la première cellule de ce Range est également un Range nommé, donc lorsque j'utilise Active_Cell il me renvoie le nom de la Cellule et non mon Range entier.

[zazaraignée]

Non, non! nous ne sommes pas ...

Et j'ai bien mis le mot Exemple juste avant mon exemple...

Il faut boucler sur tous les objets Range de ton bloc de cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim cellule As Range
For Each cellule In Selection
    ' tu mets ton code ici
Next cellule

[SmOkEiSBaD]

Ce n'est pas tout à fait ce que je souhaite faire, je rééxplique le problème :
- J'ai un Range qui s'appelle "record" (3 cellules)
- Dans ce Range j'ai deux autres Ranges "r.vente" (1 Cellule) et "r.prix" (1 Cellule)
- Avec la fonction GoTo je selectionne mon range "record"
- Après souhaitant récupérer mon Range "record" sous une objet de type CRange, j'utilise ActiveCell qui me renvoie la première cellule de "record" c'est à dire "r.vente"
- Donc au final je n'ai pas "record" mais seulement "r.vente"

Je ne sais pas si j'ai été plus clair
On verra bien.

[mayekeul]

et si tu utilise "selection" plutot que "activecell"?

[zazaraignée]

mayekeul: tu m'ôtes les mots de la bouche... heu... les touches de sous les doigts...

[SmOkEiSBaD]

Mais "selection" est une propriété d'un Range, or justement je cherche à récupérer un Range, je ne peux donc pas l'utiliser à moins qu'elle ne soit accessible à partir du Worksheet ou de l'application ?

[mayekeul]

tu m'ôtes les mots de la bouche... heu... les touches de sous les doigts...

tu sais plus écrire alors?
bouges pas, je te les rendre de suite!




sinon selection représente la selection en cours et est un objet range à part entière.

donc

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

debug. print selection.address

doit te renvoyer l'adresse de la plage de cellules sélactionnées

[SmOkEiSBaD]

Bonjour tlm,

Je ne comprend pas pourquoi tu utilises Go To pour sélectionner ta plage de cellules ?

Pourquoi ne fais-tu pas comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Plage As Range
Set Plage = Range("A1:D10")

Si tu veux sélectionner manuellement la plage

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim Plage As Range
Set Plage = Selection

Et ensuite tu manipules la variable plage comme tu veux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Plage.Interior.ColorIndex = 3
Plage.ClearContents
MsgBox Plage.Address
 
Dim Cel As Range
For Each Cel In Plage
'...
Next
 
'etc...

Et le tout...sans passer par les "Select" !

Bonjour, le problème est que le Range n'est pas fixe, il peut être n'importe ou dans la feuille d'où l'utilité du GoTo.

Comment accède-t-on à cet objet Selection ?

[zazaraignée]

Y'a certainement un truc que je n'ai pas compris... Pour commencer, je suis sous Excel XP et je ne sais pas ce qu'est un Objet CRange...

Explications requises

[mayekeul]

oui mais bon si on dois récuperer l'adresse de la selection...
ton code... ben....

et c'est ici toute la question

[SmOkEiSBaD]

En fait je ne code pas en VB mais en C++/MFC (Beaucoup de chose diffère dans l'utilisation du modèle objet Excel).
Toute les Classes s'appelle C.... donc CApplication, CRange, CDrawingObjects, CWorksheet, CWorkbook, etc...

De plus les énumérations ne sont pas accessibles (xl...) , je suis donc obligé de tout redéfinir en dur...

[SmOkEiSBaD]

Bonjour, le problème est que le Range n'est pas fixe, il peut être n'importe ou dans la feuille d'où l'utilité du GoTo.

Mon range peut très bien être de A1 à C10 comme de Z2 à AB30. Je ne sais pas ou il se trouve, c'est justement la fonction que j'éssaye de faire, je lui donne le nom d'un range en paramètre et elle me renvoie l'objet Range correspondant.

[mayekeul]

dans ce cas, si "selection" n'est pas dispo
essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range(activecell.end(xldown),activecell.end(xldown).end(xlright)).address

[zazaraignée]

Ben... alors t'es pas dans le bon forum... ? Veux-tu qu'on déplace la discussion dans le forum C++ ? Je peux le faire... Y'a qu'à...

[SmOkEiSBaD]

dans ce cas, si "selection" n'est pas dispo
essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
range(activecell.end(xldown),activecell.end(xldown).end(xlright)).address

Je ne sais pas si "Selection" est dispo, à partir de quel objet peut récupérer "Selection" ? Il ne tombe pas du ciel quand même o_O

[SmOkEiSBaD]

Ben... alors t'es pas dans le bon forum... ? Veux-tu qu'on déplace la discussion dans le forum C++ ? Je peux le faire... Y'a qu'à...

Non merci les gens de C++/MFC ne connaisse pas grand chose sur Excel

[mayekeul]

il fait partie (dans ton cas) de ton objet CApplication