Discussion :

[zoumzoum59]

Bonjour à tous

Quelqu'un saurait il comment recuperer l'adresse de la premiere cellule et l'adresse de la derniere cellule d'une selection faite sur une plage de cellule sur une seule colonne.

Exemple:
Selection avec la souris de D4 à D10 et donc recuperer l'adresse D4 et l'adresse D10 dans une variable.

Merci d'avance.

[wape]

Bonjour,

Une possibilité :

Code :

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

1
2
MsgBox "Adresse première cellule : " & Selection(1).Address(0, 0)
MsgBox "Adresse dernière cellule : " & Selection(Selection.Rows.Count).Address(0, 0)

wape

[zoumzoum59]

merci wape

[AlainTech]

Avais-tu, seulement, essayé

Code :

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

MsgBox Selection.Address

???

Il n'y a vraiment aucun mal à faire des essais et à observer le résultat.
On y apprend souvent plein de choses.

Tiens, un petit truc:

Code :

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

1
2
3
4
  Dim Adresses
  Adresses = Split(Selection.Address, ":")
  MsgBox Adresses(0)
  MsgBox Adresses(1)

Intéressant, non?
Valable même si la sélection est sur plusieurs colonnes.

A part les MsgBox, il est vital d'utiliser la fenêtre des variables locales et de faire du pas à pas.
Dans certains cas il faut utiliser des espions.

C'est très souvent l'observation du contenu de ces 2 fenêtres qui me permet de donner des réponses sur ce forum.
Car, contrairement à ce qu'on pourrait penser, je n'ai pas la science infuse et mes connaissances ne me viennent pas d'une école quelconque.

[zoumzoum59]

Tu as raison AlainTech

D'autant plus que la fonction split etait completement inconnue à mes yeux.

C'est j'ai tendance à utiliser stop dans mes procedure pour controler mes variable mais je vais essayer ce que te me propose.
Parcontre les espion ça m'a pas parue simple à utiliser, mais certainement parceque je n'ai pas l'abitude.

Merci