Selectionner un Range

Version imprimable

10/12/2011, 23h12
apt

Selectionner un Range
Bonjour à tous,

J'aimerais pouvoir sélectionner un Range avec une adresse sous forme ($x$y), mais je n'y arrive pas.

J'ai :

Trouve.address = $B$8

et

Trouve.offset(0,1) = $C$8

Pour séléctionner la plage ("B8:C8") j'ai codé :
Code:

1 2 3 TrouveSel = Range(Range(Trouve.Address), Range(Trouve.Offset(0, 1).Address)) TrouveSel.Select
Mais ça ne marche pas !!

Une idée svp ?

Merci.
10/12/2011, 23h17
SfJ5Rpw8

Juste une question , cela te sert à quoi de sélectionner une plage ?
10/12/2011, 23h28
apt

Salut ,

Je fais une recherche et c'est normal qu'il doit y être une sélection, pour consultation ou une éventuelle modification.

Code:

1
2
3
4
...
dim r as range 
 Set r = Union(Trouve, Trouve.Offset(0, 1))
 r.select

11/12/2011, 00h03
apt

Je l'ai deja essayé et ça n'a pas marché.
11/12/2011, 00h05
SfJ5Rpw8

Citation:

Envoyé par apt

Je l'ai deja essayé et ça n'a pas marché.

recommence ...

TrouveSel est toujurs = Nothing

Parceque pour Trouve et trouve.offset(0,1) lorsque je fais passer la souris dessus, l'infobulle affiche "un_texte" et non pas uine addresse de plage.

Voila le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Trouves(num As Integer, m1 As String, m2 As String)
    Dim Plg As Range, Trouve As Range, TrouveSel As Range
 
    Application.ScreenUpdating = False
    Select Case num
    Case 1    '--- par téléphone
        Set Plg = Range([A6], [A65000].End(xlUp))
    Case 2    '--- par trp + pre
        Set Plg = Range([B6], [C65000].End(xlUp))
    Case 3    '-- SL + Pt
        Set Plg = Range([G6], [H65000].End(xlUp))
    End Select
 
    With Plg
        Set Trouve = .Find(Mid(m1, 2), LookIn:=xlFormulas, LookAt:=xlPart)
        If Not Trouve Is Nothing Then
            If num = 2 Or num = 3 Then
                firstAddress = Trouve.Address
                Do
                    If Trouve.Offset(0, 1).Value = m2 Then
                        'TrouveSel = Range(Range("Trouve.Address"), Range("Trouve.Offset(0, 1).Address"))
                        TrouveSel = Union(Trouve, Trouve.Offset(0, 1))
 
                        MsgBox "trouve à sélectionner = " & TrouveSel.Address
                        TrouveSel.Select
                        Exit Do
                    End If
                    Set Trouve = .FindNext(Trouve)
                Loop While Not Trouve Is Nothing And Trouve.Address <> firstAddress
            Else
                Trouve.Select
            End If
 
        Else
            MsgBox "Recherche non trouvée !", vbInformation, "Recherche"
        End If
    End With
    Set Plage = Nothing
    Set Trouve = Nothing
    Application.ScreenUpdating = True
End Sub

11/12/2011, 00h39
SfJ5Rpw8

relis mon code...
11/12/2011, 01h02
apt

Citation:

Envoyé par bbil

relis mon code...

Merci bbil, ça marche.

Il manquait le Set