Discussion :

[linooo]

Bonjour,

J'ai un tableau à plusieurs colonnes (10). Je voudrais supprimer les lignes dont les deux premières colonnes se répètent.
ex : Voici mon tableau :

partout déjà ...
essais transformation ...
espoir découverte ...
partout déjà ...
peut essayer ...
espoir découverte ...
partout découverte ...
essais essayer ...

Je voudrais obtenir :

partout déjà ...
essais transformation ...
espoir découverte ...
peut essayer ...
partout découverte ...
essais essayer ...


La macro ci-dessous fonctionne en deux temps :
- Faire une boucle qui permet de supprimer la case de la première colonne de la ligne dont les éléments se répètent.
- Supprimer toutes les lignes dont la première case est vide.

Malheureusement, cela ne fonctionne pas. Je me demande si le "&" de ma condition est conforme :

Code :

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

If Range("A" & i).Value = Range("A" & j).Value & Range("B" & i).Value = Range("B" & j).Value Then Range("A" & j).Delete

[B]Quelqu'un pourrait-il m'aider s'il vous plaît?[/B]

Merci d'avance

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
' Macro1 Macro
' Macro enregistrée le 2007-06-18 par BoissinT
'
Dim i As Integer
Dim j As Integer
Dim o As Integer
 
 
 
i = 0
While i < 100
    i = i + 1
    j = i
        While j < 100
        j = j + 1
        If Range("A" & i).Value = Range("A" & j).Value & Range("B" & i).Value = Range("B" & j).Value Then Range("A" & j).Delete
        Wend
 
Wend
 
For o = Cells(82, 1).End(xlUp).Row To 1 Step -1
If Cells(o, 1).Value = "" Then Cells(o, 1).EntireRow.Delete
Next o
 
'
End Sub

[COCONUT2]

effectivement

Le & sert à concatener des élements alors que ce que tu cherches, c'est la fonction logique ET (AND en anglais)

donc en remplacant le & par AND, ca devrais marcher comme tu le souhaites

D'autre part, tu utilises un delete pour effacer cette première case .
Le clear ne serait il pas mieux approprié?

[linooo]

Ah super, Merci coconut2.
C'est vrai que le clear est plus approprié, car le delete supprime la case, alors que le clear enlève simplement le contenu.
Donc dans le premier cas ma macro ne fonctionne pas, et dans le deuxième tout va bien