VBA-Excel : sélection des colonnes d'une sélection, dans le UsedRange

Bonjour,

Je souhaiterais développer une macro afin de sélectionner les colonnes à l'intérieur du UsedRange, qui correspondent à la sélection en cours.

Exemple :
si j'ai un UsedRange A1:G17
et que l'utilisateur sélectionne c8:d9, puis active la macro,
alors je voudrais que la macro me sélectionne c1:d17

Pouvez-vous m'aider à écrire cette macro ?

Merci par avance.

tu as essayé avec l'enregistreur de macro ?

Citation:

---

Envoyé par Commodore_Psykopate

tu as essayé avec l'enregistreur de macro ?

---

Malheureusement, j'ai essayé mais Excel me traduit cela en adresses FIXES : donc cela ne vas pas !

eh bien remplace les adresses fixes par des variables ;)

-edit- peux-tu mettre le code généré ici si tu as encore des problèmes ?

Citation:

---

Envoyé par Commodore_Psykopate

eh bien remplace les adresses fixes par des variables ;)

-edit- peux-tu mettre le code généré ici si tu as encore des problèmes ?

---

Commodore_psychopate : tu ne me comprend pas :
Dans cette problématique, utiliser l'enegistreur de macro pour obtenir la base de la macro et la modifier ensuite à la main ne fonctionne PAS DU TOUT.
C'est vrai que c'est une bonne idée dans certains cas, mais pas ici.

En fait il faut bien savoir manipuler les fonctions VBA Excel liées aux plages, aux lignes et aux colonnes relatives.
Pour l'instant, j'ai juste réussi, difficilement, à déterminer une partie du problème, de la façon suivante :

' adresse de la cellule ligne 1 correspondant à l'adresse en haut à gauche de la sélection
Cells(1, ActiveCell.Column).Address

Il me reste à trouver l'autre extrémité de la sélection (voir l'énoncé de mon problème).

HELP : Personne n'aurait la solution ???:(

voir intersect..

Code:

---

1 2 3 4 5 6

Sub MaSelect() Dim r As Range Set r = Intersect(ActiveSheet.UsedRange, Selection.EntireColumn) If Not r Is Nothing Then r.Select End Sub

---

Alors là, chapeau bas à bbil :

cela marche super bien.

merci beaucoup :lol: