Selectionner une cellule

Version imprimable

11/08/2013, 10h39
apdf1

1 pièce(s) jointe(s)

Selectionner une cellule

Bonjour

Suite a mon code j'aimerai lui apporter une modification.
C'est à dire:
Le code fonctionne très bien pour une colonne la "B" j'aimerai si possible que cela fonctionne sur les colonne "B à J"

je vous un fichier exemple
Je vous remercie d'avance et vous souhaite une bonne journée

Cordialement

Max

Bonjour,

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
42
43
Private Sub UserForm_Initialize()
Dim c As Range
Dim tablo()
Dim i As Integer, j As Integer
Dim temp As String
Dim present As Boolean
Dim Plage As Range
 
ReDim tablo(1 To 1)
tablo(1) = Cells(3, 3)
With Sheets("Feuil1")
    For i = 2 To 10 Step 2
        If Plage Is Nothing Then
            Set Plage = .Range("B8:B" & Range("b65536").Offset(, i - 2).End(xlUp).Row).Offset(, i - 2)
        Else
            Set Plage = Union(Plage, .Range("B8:B" & Range("b65536").Offset(, i - 2).End(xlUp).Row).Offset(, i - 2))
        End If
    Next i
End With
Plage.Select
For Each c In Plage
    present = False
    For i = 1 To UBound(tablo)
        If tablo(i) = c Then present = True
    Next i
    If Not present Then
        ReDim Preserve tablo(1 To UBound(tablo) + 1)
        tablo(UBound(tablo)) = c
    End If
    For i = 1 To UBound(tablo)
        For j = 1 To UBound(tablo)
            If tablo(i) < tablo(j) Then
                temp = tablo(i)
                tablo(i) = tablo(j)
                tablo(j) = temp
            End If
        Next j
    Next i
Next c
 
ListBox1.List = tablo
 
End Sub

PS. Comme tu as peu d'items, tu n'as pas besoin de modifier ton code. Envisage, au lieu de boucler à chaque fois sur le tableau, d'utiliser la fonction Match :

Code:

1
2
3
4
5
For Each c In Plage
    If Not IsNumeric(Application.Match(c.Value, tablo, 0)) Then
        ReDim Preserve tablo(1 To UBound(tablo) + 1)
        tablo(UBound(tablo)) = c
    End If

11/08/2013, 11h44
apdf1

Bonjour Daniel

Et merci de la réponse mais je n'arrive pas a le faire fonctionner?

Peut être peut tu faire quelque chose?

@+

Max
11/08/2013, 11h56
SfJ5Rpw8

bonjour ,

il est ou le code ?

ici ?

Bonjour

Mon Code initiale

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
 
Private Sub ComboBox2_Change()
    Dim Cel As Range
    List_Race.Clear
    For Each Cel In [Plage]
        If Left(Cel, 1) = ComboBox2.Value Then List_Race.AddItem Cel
    Next Cel
End Sub
 
 
Private Sub List_Race_Click()
Dim Cel As Range, Choix
Choix = List_Race.Value
For Each Cel In [Plage]
        If Cel = Choix Then Cel.Select
    Next Cel
 
Sheets("Feuil1").Range("B8:J140").Interior.ColorIndex = 0
Sheets("Feuil1").Cells(List_Race.ListIndex + 8, 2).Interior.ColorIndex = 3
 
 
 
    Unload UserForm1
End Sub
 
 
Private Sub UserForm_Initialize()
    Dim n As Byte
    For n = 65 To 90
        ComboBox2.AddItem Chr(n)
    Next
    ComboBox2.SetFocus
End Sub

@+

Max

11/08/2013, 12h14
Daniel.C

1 pièce(s) jointe(s)

Regarde le classeur joint.
11/08/2013, 13h48
SfJ5Rpw8

bonjour,

ensuite il faudrait être plus clair sur ce qu'est censé faire ton code et sur ce qui ne fonctionne pas ...