Discussion :

[xuantran]

Bonjour à tous,

Je souhaite créer une fonction qui me permette de sélection un range (elle doit renvoyer quelques chose de la forme "A1:C10") selon le code VBA ci dessous:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function SelectionTAB(ID As Variant) As String
m = 0
Range("A:A").Select
k = Selection.Find(What:=ID, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
 
m = k
Do Until Cells(m, 1) <> ID
m = m + 1
Loop
SelectionTAB = (Worksheets(1).Cells(k, 1).Address & Worksheets(1).Cells(m - 1, 10).Address)
 
End Function

Tout est expliqué dans le fichier ci joint. Avez vous une réponse à mon probleme?

Merci à tous,
Xuan