Tri et suppression par macro

[Alexandre]

Bonjour au Forum et ses fervents adeptes,


Voilà, j'ai juste un tout piti problème.

J'ai un tableau contenant des données diverses... je voudrais par une macro effacer toute les lignes qui contiennent une donnée numérique dans la colonne A et ne conserver que lignes contenant de l'alpha.

Ce que je cherche, c'est réellement effacer ces lignes et ne pas simplement les cacher par une fonction de tri.

Voilà, si quelqu'un a une astuce, elle sera la bienvenue.

Merci boucou

Alexandre

 

[Alain]

Bonjour,



Tu peux essayer avec la petite macro ci-dessous :


Sub Supp_Lignes()
Dim DerniereLigne As Integer
Dim i As Integer
Range("A1").End(xlDown).Select
DerniereLigne = ActiveCell.Row
Range("A1").Select
For i = DerniereLigne To 0 Step -1
If IsNumeric(ActiveCell.Offset(i, 0)) Then
ActiveCell.Offset(i, 0).EntireRow.Delete
End If
Next
End Sub


@+

 

[Alexandre]

ok, merci boucou, j'essaie ça tout de suite


Alexandre

 

[Alexandre]

Heu... en fait, ça ne fonctionne pas, et c'est de ma faute.

Voilà, je pensais qu'il s'agissait de caratère numérique, mais bien de caractère alpha (suite à une copie)...

En fait, je voudrais retirer ces caractères alpha qui appparaissent comme 1,2,3, etc.....jusqu'30... est-ce possible ?


Merci


Alexandre

 

[Alain]

Rebonjour,


Essayes avec ce code :


Sub Supp_Lignes()
Dim DerniereLigne As Integer
Dim i As Integer
Range("A1").End(xlDown).Select
DerniereLigne = ActiveCell.Row
Range("A1").Select
For i = DerniereLigne To 0 Step -1
If CInt(Val(ActiveCell.Offset(i, 0))) <> 0 Then
ActiveCell.Offset(i, 0).EntireRow.Delete
End If
Next
End Sub

@+

 

[alexandre]

Merci

En fait, j'ai finalement transformé l'alpha en numérique....

Ben oui, utilisation de la formule cnum....

je vais voir si ça marche maintenant réellement avec l'utilisation réelle du classeur et non plus des essais !


Merci encore



Alexandre

 

[Alexandre]

Re-bonjour

bon, ça marche toujours pas, car la fonction CNUM me renvoi un messag ed'erreur lorsqu'il s'agit d'un nom qui apparait dans la cellule adjacente.

Je laisse un fichier exemple, en espérant que quelqu'un pouura me dire s'il est possible d'effacer toutes les lignes (et pas seulement les cacher) dont la première cellule contient un nombre (mais en format alpha).

Encore merci à toutes à et à tous.


Alexandre