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
|
Private Sub ComboBox1_Click()
Dim WsSrc As Worksheet
Dim WsDest As Worksheet
Dim Plage As Range
Dim Cel As Range
Dim CelTrouve As Range
Dim Adr As String
Set WsSrc = Sheets("All Apps")
Set WsDest = Sheets("wsReport")
With Worksheets("wsReport")
Set Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Cel In Plage
Set CelTrouve = Plage.Find(Cel.Value, , xlValues, xlPart)
If Not CelTrouve Is Nothing Then
Adr = CelTrouve.Address
Do
WsDest.Cells(Cel.Row, 8) = WsSrc.Cells(Cel.Row, 3)
Set CelTrouve = Plage.FindNext(CelTrouve)
Loop While Adr <> CelTrouve.Address
End If
Next Cel
End Sub |
