Transformer une Range en Variable

Bonjour a tous,

Je souhaite transformer une Range qui est situé dans une macro en une Variable situé dans une autre macro.
Dans une ma macro principale j'ai :

--

Code:

---

1 2 3 4 5

If Range("A6") = "BE" Then Range("A6").Select Call be End If ...

---

--

Dans la macro appelé j'ai :

--

Code:

---

1 2 3 4 5 6 7

Sub be()   Dim a As Integer   a = Range.Selection Range("B" & a).Select ...

---

--

Cela ne fonctionne pas.

Quelqu'un pourrait-il m'aider a convertir ce range en variable dans la macro appelé ?

Merci d'avance,
Cordialement,

bonjour
si j'ai bien compris ton desir
tu veux selectioner un celule dans la colonne a et tu veux que ca selectionne la celule en colone b avec sur la meme ligne

et bien c'est tout simple

Code:

---

1 2 3 4 5 6 7

sub be () dim ligne as long   ligne =activecell.row   range ("a" & ligne & ":b" & ligne).select end sub

---

au plaisir

Merci beaucoup Patricktoulon

Tu m'enlèves une sacre épine du pied :)

Salut Adrien0634 et le forum
Sur un module général, ou si les deux sont sur le même module, sur le module :

Code:

---

Dim Cel as Range

---

La variable conservera sa valeur tant que le fichier Excel ne sera pas fermé, ou qu'une macro la change (voir les variables globales dans l'aide)

Code:

---

1 2 3 4 5

If Range("A6") = "BE" Then set Cel = Range("A6") Call be End If ...

---

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub be() Dim a As Integer if cel is nothing then 'si Cel est vide, alors Msgbox "pas de valeur" else a = Cel end if Range("B" & a).Select ...

---

Beurk... tu utilises des select/selection/Activecell. Ça ne sert généralement qu'à ralentir ton code.
J'ai respecté ton titre, mais si la valeur à utiliser est gorcément un numéro de ligne, il suffit de déclarer une variable globale en Long et de l'utiliser directement (si elle est supérieure à zéro).
A+