Probleme fonction selection

Version imprimable

1 pièce(s) jointe(s)

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:

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

Bonsoir

En mettant la valeur recherché (xxxx1111) dans L2
Code:

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.

04/02/2013, 18h56
xuantran

1 pièce(s) jointe(s)

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!

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

Code:

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:

=SelectRange("Feuil1";O1)

05/02/2013, 10h36
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

Code:

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