Discussion :

[bigs3232]

j'aimerais savoir s'il est possible de créer une fonction pour récupérer une plage afin de réutiliser plus tard dans un sub
dans cet exemple la fonction range_1 qui récupère la plage et j'essaie de l'utiliser dans sub aa mais celà ne marche pas
j'ai l'impression que c'est le set qui déconne
merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
9
Function range_1()
Set plage = Range("a1", "c3")
'plage.Select
range_1 = plage
End Function
Sub aa()
Set plage = range_1
plage.Select
End Sub

[parmi]

Bonjour,

Esaie comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
Function range_1() As Range
    Set range_1 = Range("a1", "c3")
End Function
 
Sub aa()
    Dim plage As Range
 
    Set plage = range_1
    plage.Select
End Sub

[Kentarosan]

Bien le bonjour !

A mon avis il manque simplement un Set dans la fonction au moment d'attribuer plage dans range_1.

Code :

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

1
2
3
4
5
6
7
8
9
Function range_1()
    Set plage = Range("a1", "c3")
    'plage.Select
    Set range_1 = plage
End Function
Sub aa()
    Set plage = range_1
    plage.Select
End Sub

En espérant avoir aidé!

PS: Ma solution est la même que Parmi, et je trouve que sa solution est plus propre. Moi je n'ai fait que corriger ton code

[Invité]

Bonjour,

range_1 = plage

tu retourne les valeur trouvées dans tes cellules!

alors que parmi et Kentarosan font référence à la plage de cellules et tu peur donc faire un select!

[bigs3232]

merci à parmi et aux autres .votre code marche tres bien sauf que quand je l'adapte à mon code plus compliqué et ben ca ne marche pas
voici mon code en suivant la logique de parmi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function f_get_range_Ssel() As Range
lett_sel = Split(Columns(Selection.Column).Address(ColumnAbsolute:=False), ":")(1)
col = lett_sel
dern = Range(col & "65536").End(xlUp).Row
Set f_get_lett_Ssel = Range(col & "2", col & dern)
'Range(col & "2", col & dern).Select
End Function
Sub aa()
    Dim plage As Range
    Set plage = f_get_range_Ssel
    plage.Select
End Sub

[Invité]

Code :

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

Range(cells(2,col), cells(dern,col))

[bigs3232]

désolé dysorthographie.cela ne marche pas

[parmi]

Comme le dit dysorthographie,

Oublie les lettres qui ne sont pas nécessaires lorsqu'on nomme un Range

Code :

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

1
2
3
4
 
col=Activecell.column  'si c'est bien ce que tu cherches à faire
dern = Cells(rows.count, col).End(xlUp).Row
Set f_get_lett_Ssel =Range(cells(2,col), cells(dern,col))

[bigs3232]

merci parmi.je sais le faire ton dernier code .mais quand meme c'est un bug incompréhensible quoi.je n'aime pas trop lacher le morceau mais bon là on est tous coincé

[parmi]

Dans le code que tu as mis, il y a une erreur de "retour"
Set f_get_lett_Ssel = Range(col & "2", col & dern)
Ce n'est pas le nom de la Function...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function f_get_range_Ssel() As Range
    Dim lett_sel As String, col As String
    Dim dern As Long
 
    lett_sel = Split(Columns(Selection.Column).Address(ColumnAbsolute:=False), ":")(1)
    col = lett_sel
    dern = Range(col & "65536").End(xlUp).Row
    Set f_get_range_Ssel = Range(col & "2", col & dern)
End Function
 
Sub aa()
    Dim plage As Range
    Set plage = f_get_range_Ssel
    plage.Select
End Sub

Et habitue-toi à déclarer tes variables... et à utiliser Option Explicit...