Suppression dans Collection

[Mytå]

Salut le forum

J'ai encore besoin de votre aide

Fichier joint (ALT+F11) pour le code

'Je cherche le code pour
'supprimer dans la Collection1
'les cellules de la Plage2

Merci à l'avance
Mytå

P.S. Je risque d'être absent pour x jours (Chirurgie)
ne soyez pas faché d'une réponse tardive.

 

[Pierrot93]

Re : Suppression dans Collection

Bonjour Myta,

peut être en utilisatnt le code ci dessous :

Sub SansDoublonsMoinsUtiliser()
Dim Collection1 As New Collection
Dim Plage1 As Range, Plage2 As Range, Cellule As Range
Dim x As Integer

With Sheets(1)
Set Plage1 = .Range("B3:B8")
Set Plage2 = .Range("C3:C6")
End With

  For Each Cellule In Plage1
    On Error Resume Next
    If Err = 0 Then Collection1.Add Cellule, CStr(Cellule)
    On Error GoTo 0
  Next Cellule

For Each Cellule In Plage2
    For x = Collection1.Count To 1 Step -1
        If Cellule = Collection1.Item(x) Then Collection1.Remove (x)
    Next x
Next Cellule
End Sub

Bon courage et bonne journée.
@+

 

[Hervé]

Re : Suppression dans Collection

salut myta 🙂

a essayer :

Sub SansDoublonsMoinsUtiliser()

Dim Collection1 As New Collection
Dim Plage1, el, el1
Dim Plage2
Dim Cellule ' As String

With Sheets(1)
Plage1 = .Range("B3:B8")
Plage2 = .Range("C3:C6")
End With

  For Each Cellule In Plage1
    On Error Resume Next
    If Err = 0 Then Collection1.Add Cellule, CStr(Cellule)
    On Error GoTo 0
  Next Cellule
  
  For Each el In Collection1
    For Each el1 In Plage2
        If el = el1 Then Collection1.Remove el
    Next el1
  Next el
 
End Sub

bonne courage.

salut

edition : oups, salut pierrot 🙂, pas rafraichit

 

[Mytå]

Re : Suppression dans Collection

Salut Le Forum

Merci j'ai adapter mon fichier avec les réponses
(L'exemple étant une ébauche)

Mytå