Discussion :

[Adrien0634]

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 :

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

1
2
3
4
5
If Range("A6") = "BE" Then
Range("A6").Select
Call be
End If
...

--

Dans la macro appelé j'ai :

--

Code :

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

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,

[patricktoulon]

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 :

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

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

[Adrien0634]

Merci beaucoup Patricktoulon

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

[Gorfael]

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 :

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

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 :

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

1
2
3
4
5
If Range("A6") = "BE" Then
set Cel = Range("A6")
Call be
End If
...

Code :

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

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+