Selection multi colonne pour une variable

Version imprimable

06/03/2015, 08h57
guilld

Selection multi colonne pour une variable
Bonjour,

J'ai piqué un bout de code sur le NET pour retrouver des doublons dans une feuille Excel.
Mais ce code ne prends en compte qu'une seule colonne..
J'ai besoin de vous car je ne parviens pas à faire une multi selection de colonne (A, B et D).

Si quelqu'un à la solution...
Merci
Code:

1 2 3 rngMyData As Range Set rngMyData = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
06/03/2015, 09h03
Menhir

Le code que tu présentes ne recherche pas les doublons. Il se contente de donner une référence aux cellules non vide de la colonne A.

Ok, ca j'avais bien compris.
Donc voici le code en entier.

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
 
 
Dim rngCell As Range, _
    rngMyData As Range
    Dim strMyDupList As String
    Dim intMyCounter As Integer
    Dim objMyUniqueList As Object
 
    Set rngMyData = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    Set objMyUniqueList = CreateObject("Scripting.Dictionary")
 
    Application.ScreenUpdating = False
 
    strMyDupList = "": intMyCounter = 0
 
    For Each rngCell In rngMyData
        If rngCell <> "V" And rngCell <> "R" Then
            If Evaluate("COUNTIF(" & rngMyData.Address & "," & rngCell.Address & ")") > 1 Then
                rngCell.Interior.Color = RGB(255, 255, 204)
                If objMyUniqueList.exists(CStr(rngCell)) = False Then
                    intMyCounter = intMyCounter + 1
                    objMyUniqueList.Add CStr(rngCell), intMyCounter
                    If strMyDupList = "" Then
                        strMyDupList = rngCell
                    Else
                        strMyDupList = strMyDupList & vbNewLine & rngCell
                    End If
                End If
            Else
                rngCell.Interior.ColorIndex = xlNone
            End If
        End If
    Next rngCell
 
    Set rngMyData = Nothing: Set objMyUniqueList = Nothing
 
    Application.ScreenUpdating = False
 
    If strMyDupList <> "" Then
        MsgBox "Présence de doublon, merci de vérifier!" & vbNewLine & strMyDupList
    Else
        MsgBox "There were no duplicates found in " & rngMyData.Address
    End If

Bonjour,

Pour une union de plage, utiliser la propriété "Union" de Application :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Sub UnionDePlages()
 
    Dim PlageA As Range
    Dim PlageB As Range
    Dim PlageD As Range
    Dim PlageTotale As Range
 
    With Worksheets("Feuil1")
 
        Set PlageA = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
        Set PlageB = .Range(.Cells(1, 2), .Cells(.Rows.Count, 2).End(xlUp))
        Set PlageD = .Range(.Cells(1, 4), .Cells(.Rows.Count, 4).End(xlUp))
 
    End With
 
    Set PlageTotale = Union(PlageA, PlageB, PlageD)
 
    MsgBox PlageTotale.Address(0, 0)
 
End Sub

Hervé.