doublons colonne complexe

Bonjour,

Sub SupDoublons()
nblignes = Sheets("2").[A65000].End(xlUp).Row + 1
For i = nblignes To 2 Step -1
x = Sheets("2").Cells(i, 2)
If Not IsError(Application.Match(x, Sheets("tel").[b2:b1000], 0))
Then
Rows(i).Delete
End If
Next i
End Sub

JB
http://boisgontierjacques.free.fr/

On 22 fév, 09:46, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J'ai une liste de num de téléphone en feuille nommée (tel) en colon ne A

et une feuille nommée "2" ou il y a des tel en colonne C

les tel sont en form texte par exemple "06xxxxxxxx"

j'aimerais une macro si possible qui me supprime les numéros de la feui lle
"2" déjà contenu dans la feuille "tel"

merci bcps d'avance

merci génial ca marche nikel

merci bcps

"JB" <boisgontier@hotmail.com> a écrit dans le message de news:
adf3135e-37d4-4c24-af81-e24c4836bad7@i39g2000yqm.googlegroups.com...
Bonjour,

Sub SupDoublons()
nblignes = Sheets("2").[A65000].End(xlUp).Row + 1
For i = nblignes To 2 Step -1
x = Sheets("2").Cells(i, 2)
If Not IsError(Application.Match(x, Sheets("tel").[b2:b1000], 0))
Then
Rows(i).Delete
End If
Next i
End Sub

JB
http://boisgontierjacques.free.fr/

On 22 fév, 09:46, "STEPH B" <step...@prodiag.fr> wrote:

Bonjour,

J'ai une liste de num de téléphone en feuille nommée (tel) en colonne A

et une feuille nommée "2" ou il y a des tel en colonne C

les tel sont en form texte par exemple "06xxxxxxxx"

j'aimerais une macro si possible qui me supprime les numéros de la feuille
"2" déjà contenu dans la feuille "tel"

merci bcps d'avance