Discussion :

[dado91400]

bonjour à tous,

j'ai deux colonnes, H et J.

je souhaite rechercher sur toute ma colonne H, à chaque fois que j'ai un doublon.

lorsque j'en trouve un, alors je met "doublon" dans la colonne d'en face

qu'est ce qui cloche d'apres vous ? serait-ce une erreur dans mes boucles?

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
Sub test_doublon()
 
For i = 0 To i = 10
 
    For j = 1 To j = 10
 
        If Range("H1").Offset(i, 0).Value = Range("H1").Offset(j, 0).Value Then
 
        Range("H1").Offset(j, 1).Value = "doublon"
 
        End If
 
    Next j
 
Next i
 
End Sub

merci d'avance

[did103]

Salut

Sans vraiment essayer, j'écrirai comme cela:

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
Sub test_doublon()
 
For i = 1 To 10
 
    For j = 1 To 10
 
        If Range("H" & i).Value = Range("J" & j).Value Then
 
               Range("K" & j) = "doublon"
 
        End If
 
    Next j
 
Next i

J'aime pas trop les offsets, on sait jamais où on est

[ouskel'n'or]

Si tu peux trier tes données par ordre alphabétique, tu as une solution très simple. Le peux-tu ?
A+

[dado91400]

oui effectivemement je peux les trier par ordre alphabétique.

A+

[ouskel'n'or]

Alors c'est simple
Tu tries tes données (enregistre le code en faisant) puis tu testes ça

Code :

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

1
2
3
4
5
Dim cell as range
For each cell in range("H2:H10") 'tu peux remplacer 10 par le N° de la dernière ligne
     if cell = cell.offset(-1,0) or cell = cell.offset(+1,0) then _
          Cell(0, 1) = "doublon"
Next

Tu dis
A+

[dado91400]

merci pour vos idées, mais je suis rester sur ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Sub test_doublon3()
 
    For j = 0 To 100
 
    If Range("H2").Offset(j, 0).Value = Range("H2").Offset(j + 1, 0).Value Then
    Range("H2").Offset(j + 1, 1).Value = "doublon"
    End If
 
    Next j
 
 
End Sub

merci
A+

[BOU59000]

Salut

Sans vraiment essayer, j'écrirai comme cela:

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
Sub test_doublon()
 
For i = 1 To 10
 
    For j = 1 To 10
 
        If Range("H" & i).Value = Range("J" & j).Value Then
 
               Range("K" & j) = "doublon"
 
        End If
 
    Next j
 
Next i

J'aime pas trop les offsets, on sait jamais où on est

Bonjour, désolé de vous déranger.

J'ai déjà vu dans un programme l'utilisation de i = et j = ...

Serait il possible que tu m'expliques a quoi servent les lignes de ton programme?

Merci

[ouskel'n'or]

L'un parcourt les lignes, l'autre les colonnes. C'est pourquoi For each cell in range("H2:H10") qui fait la même chose est plus simple.

merci pour vos idées, mais je suis resté sur ça :

........................................

[Bevan]

Bonjour,
En passant une solution élégante sans VBA et sans trier à la question initiale :

je souhaite rechercher sur toute ma colonne H, à chaque fois que j'ai un doublon je mets "doublon" dans la colonne d'en face

Dans la colonne I je copie la formule :
=NB.SI($H:$H;H1)-1
avec le format :
"Doublon";;

[did103]

Alors là BEVAN

=NB.SI($H:$H;H1)-1
avec le format :
"Doublon";;

Pas de macro!!!

Par contre même le 1er chiffre rencontré quand y en a plusieurs identiques fait apparaître aussi "doublon"...

[Bevan]

Bonjour,

Par contre même le 1er chiffre rencontré quand y en a plusieurs identiques fait apparaître aussi "doublon"...

J'avais mal compris la demande. Alors on va faire :

Code :

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

=NB.SI($H$1:$H1;$H1)-1