Discussion :

[Quentin006]

Salut tout le monde,

J'ai parcouru le forum et essayé quelques méthodes préconisées pour mon probléme mais en vain...

Je posséde un fichier excel de 3000 lignes; Je posséde 2 attributs : Le nom et le numéros de téléphone.

Je voudrai supprimer automatiquement toutes lignes où il n'y a pas de numéros ainsi que les lignes où le numéro correspond à un numéro fixe (contrairement au numéro mobile).

J'ai écris cette formule pour reconnaitre les lignes où le numéro est un fixe et ou il n'y a pas de numéro mais je ne trouve pas de solution pour suprimer la ligne automatiquement :
SI(ESTERREUR(TROUVE("06";C16;1));"ko";"")

Peut etre pourai-je me servir de la condition "ko" ?!

Merci pour votre précieuse aide!!

Quentin

[casefayere]

Bonjour Quentin006, re le forum

si tu cherches à supprimer vraiment une ligne, je te conseille de passer par une macro, mais peut-etre ne veux tu qu'effacer la ligne, ce qui est différent

Bonne journée

[Invité]

Bonjour,

Pourquoi ne pas faire tout simplement un tri sur la colonne contenant le N°.

Sinon vous pouvez utiliser :

Code :

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

=SI(GAUCHE(C16;2)="06";"OK";"")

mais de toute façons il faudra trier puis supprimer les lignes manuellement.

Ou comme le dit Casafayere utiliser une macro.

[Fvandermeulen]

Salut,
Est-ce que cette manipulation sear unique car dans ce cas avec ce que tu as déjà fait tu peux te contenter de trier sur base de ta colonne qui contient ta formule et de supprimer toutes les lignes concernées en une fois.

Si tu tiens à passer par une macro là aussi plusieurs possibilités, imaginons les noms dans la colonne A, les numéros en B et ta formule en C.
On prend la référence du nombre de ligne sur la colonne A car il y a toujours un nom.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub SupprLigne()
 
Dim i As Integer
Dim DerLigne As Integer
 
DerLigne = Range("a" & Range("a:a").Rows.Count).End(xlUp).Row
 
For i = DerLigne To 1 Step -1
    If Cells(i, 3).Value = "KO" Then
    Cells(i, 3).EntireRow.Delete
    End If
Next i
 
End Sub

Tu pourrais évidement faire l'équivalent de ta formule directement dans la macro.

Bonne continuation

Edit: Une fois de plus je suis deuxième, enfin troisème

[Quentin006]

Merci beaucoup pour vos réponse et votre réactivité!!

Effectivement la réponse à ma question est toute bête!
Comme vous me l'avez conseillé un simple tri des numéros est suffisant!

Je cherchais à faire difficile alors que c'était en réalité trés simple.

Merci beaucoup à vous !