Discussion :

[kakariki]

Bonsoir.
Je recherche un code en VBA pour vider les cellules en doublon dans les lignes d' une mise en page excel issue d'un SQL. Vous trouverez en pièce jointe la page excel avec les cellules vertes que je veux vider/supprimer mais sans changer les valeurs ou emplacement des cellules blanches.
Merci de votre aide ...

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
Sub EffacerDoublons()
Dim i As Long
Dim Tb
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")                        'Adapte le nom de ta feuille
    Tb = Intersect(.Range("A1").CurrentRegion, .Range("A:M"))
    For i = UBound(Tb, 1) To 2 Step -1
        If Not NoDoublon(Tb, i) Then Efface Tb, i
    Next i
    .Range("A1").Resize(UBound(Tb, 1), 13) = Tb
End With
End Sub
 
Private Function NoDoublon(ByVal Tb, ByVal i As Long) As Boolean
Dim j As Integer
 
For j = 1 To 13                                  'On teste de la colonne A à M
    If Tb(i, j) <> Tb(i - 1, j) Then
        NoDoublon = True
        Exit For
    End If
Next j
End Function
 
Private Sub Efface(ByRef Tb, ByVal i As Integer)
Dim j As Byte
 
For j = 1 To 13                                  'on vide de la colonne A à M
    Tb(i, j) = Empty
Next j
End Sub

[casefayere]

Re, bonsoir mercatog,
j'avais préparé quelque chose de plus simple (sans l'avoir testé) en ayant estimé que toutes les réferences (col I) sont groupées :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub sup_lignes()
Dim derlg As Long, codePrim As Long, x As Long
derlg = Range("I" & Rows.Count).End(xlUp).Row
For x = 3 To derlg
  codePrim = WorksheetFunction.CountIf(Range("I" & x, "I" & derlg), Range("A" & x - 1))
  Range("A" & x, "M" & codePrim).ClearContents
  x = codePrim + 1
Next x
End Sub

Je répète => non testé donc erreurs possibles
Bonne soirée

[mercatog]

Bonsoir casefayere
Bien vu pour la colonne I (si c'est systématique)

[casefayere]

Par contre, j'ai envie de préciser à kakariki que passer par une boucle comme celle que je propose, risque de ralentir son programme s'il a beaucoup de lignes à traiter et dans ce cas passer par les variables tableau.

Bonne nuit à tou(te)s

[kakariki]

Merci pour le code ...