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

[keygen08]

Bonsoir

En mettant la valeur recherché (xxxx1111) dans L2

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
16
17
Sub devellopez_com()
Dim cell As Range
Dim ID As String
Dim k As Integer
 
ID = Range("l2").Value
 
lig = Range("a65000").End(xlUp).Row
For Each cell In Range("a1:a" & lig)
    If cell.Text = ID Then
    k = cell.Row
    End If
Next cell
 
Range("a2:j" & k).Select
 
End Sub

On obtient la selection du tableau voulu.

Je ne dis pas que c'est LA solution, il doit y avoir autre chose mais ne sachant d'ou vienne tes données ou ce que tu veux en faire.
Puisse ce peti bout de code t'inspirer.

[xuantran]

Merci bcp pour votre réponse, mais je tiens absolument à créer une fonction et non pas une sub. Pour etre plus clair, je souhaite obtenir le meme résultat que celui de la sub contenue dans le fichier ci joint...jusqu a présent impossible d'y arriver! Help!

[mercatog]

Une fonction (qui prend en charge la feuille de recherche)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SelectRange(ByVal Feuille As String, ByVal Id As String) As String
Dim Ws As Worksheet
Dim c As Range, v As Range
 
Set Ws = Worksheets(Feuille)
Set c = Ws.Range("A:A").Find(Id, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not c Is Nothing Then
    Set v = Ws.Range("A:A").Find(Id, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
    SelectRange = c.Resize(v.Row - c.Row + 1, 10).Address(0, 0)
    Set v = Nothing
    Set c = Nothing
End If
Set Ws = Nothing
End Function

La fonction est appelée dans une cellule (si l'id est dans O1 de Feuil1)

Code :

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

=SelectRange("Feuil1";O1)

[xuantran]

Merci bcp mercatog!
La fonction marche bien pour sélectionner le range demandé.
Finalement, je souhaiterais ne pas sélectionner les deux premières colonnes dans le résultat de la fonction, ie j'ai besoin d'un range dont la colonne de départ est C, celle de fin est J.
Savez vous quelles modifications appliquer?

merci d'avance
xuan

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function SelectRange(ByVal Feuille As String, ByVal Id As String) As String
Dim Ws As Worksheet
Dim c As Range, v As Range
 
Set Ws = Worksheets(Feuille)
Set c = Ws.Range("A:A").Find(Id, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlNext)
If Not c Is Nothing Then
    Set v = Ws.Range("A:A").Find(Id, LookIn:=xlValues, lookat:=xlWhole, searchdirection:=xlPrevious)
    SelectRange = c.Offset(0, 2).Resize(v.Row - c.Row + 1, 8).Address(0, 0)
    Set v = Nothing
    Set c = Nothing
End If
Set Ws = Nothing
End Function