suppression de ligne si cell contient lettre

[Hervé]

Bonjour à tous, je découvre tout juste ce site, et je suis en galere du type 'maitriser une macro excel en qqes heures est facile pour mon boss'

J'ai un tableau d'environ 15000 ligne (le nb de zéros est bon) et je voudrais supprimer les lignes dont la cellule de la colonne F (par exemple) contient une lettre et pas en chiffre en caractère numéro 3.
Je sais pas si je suis très explicite.

bref si F2 = 'BJ55'
je garde la ligne

si F5 = 'BJL4'
je supprime,

je insérer ca dans une macro qui tourne déjà sur le fichier, qqun pour m'aider?

merci d'avance

 

[PascalXLD]

Re

alors essaies

For i = 1 To UBound(PlageSource)
If IsNumeric(Mid(PlageSource(i, ColToScan), 3, 1)) And _
(Mid(PlageSource(i, ColToScan), 3, 1) <> ' ') And _
((Mid(PlageSource(i, ColGamme), 1, 3) = 'BER') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'ESP') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'PAD') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'QUI') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'SER') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'TRE') Or _
(Mid(PlageSource(i, ColGamme), 1, 3) = 'TYR')) Then

J'ai ajouté des parenthèses pour regrouper tes Or

 

[Hervé]

ca marche...
merci les gars...
j'ai du tout essayer sauf ca... comment vous faites pour pas vous enerver... (j'imagine que ca doit arriver...)


encore merci....
c'est génial...

 

[_Thierry]

Re Bonjour Pascal, Hervé

Entre-temps je suis au bureau maintenant. Si la dernière soluce de Pascal (parenthèses) ne passe toujours pas...

Bon je reprends ce que tu as écrit bien plus bas à 08:42 :

c'est dès que je veux ajouter la condition sur la colonne 4 que ca merdoie...
et c'est la ligne là qu'il me met en jaune:

Range(Cells(1, 1), Cells(x, NbCol)) = PlageCible

Si cette ligne se met en erreur, ce n'est pas semble-t'il d&ucirc; à tes conditions...

Pourrais-tu nous détailler le message d'erreur, si c'est au niveau dimensionnent des plage/tableaux, je pense que le mieux serait de faire un extrai de ton tableau à scanner en y supprimant toute données confidentielles, mais en conservant des exemples de cas à garder et à supprimer pour tes cas de figures de conditions... Un 30ène de ligne devraient suffire.

Nous ?... nous énerver, jamais... Ce ne serait pas 'XLD-Compliant'


...






Mais on est tous bien atteind quand même...




@+Thierry

Message édité par: _Thierry, à: 15/03/2005 09:43

 

[PascalXLD]

Thierry

O&ugrave; as-tu trouver ma photo ???

Bonne journée surtout que ça a l'air de marcher pour Hervé