supprimer les nombres

[Alexandre]

Bonjour à toutes et à tous,

hé oui, encore moi...... que voulez-vous.

Voilà mon premier petit souci du jour :

J'ai une liste sur une colonne (à partir de ag3)dans laquelle on trouve des noms et des nombres. Je souhaite, par une macro, pouvoir supprimer tous les nombres de cette liste sans supprimer les lignes qui les contiennent ni les cacher.

En fait, tout simplement les ôter et faire suivre la liste de nom sans séparation.

Pour être encore plus clair, je laisse un fichier excel....


Merci encore à toutes et à tous


Alexandre

 

[Popeye]

Une petite macro vite faite

Dim li_liste_ini, li_liste_fini, col_liste_ini, col_liste_fini As Integer
li_liste_ini = 2 'numéro de ligne où commence ta liste
li_liste_fini = 2 'numéro de ligne où commence ta recopie
col_liste_ini = 1 'numéro de colonne où est ta liste
col_liste_fini = 5 'numéro de colonne où est ta recopié
While Cells(li_liste_ini, col_liste_ini) <> ""
If IsNumeric(Cells(li_liste_ini, col_liste_ini)) Then
li_liste_ini = li_liste_ini + 1
Else
Cells(li_liste_fini, col_liste_fini) = Cells(li_liste_ini, col_liste_ini)
li_liste_fini = li_liste_fini + 1
li_liste_ini = li_liste_ini + 1
End If
Wend

a mettre dans l'évenement d'un click de bouton ou une macro perso
si tu veux tu peux imaginer des input box pour demande les colonnes ou ligne

 

[C@thy]

Alexandre, on a du mal à te suivre avec tous ces fils sur le même sujet,

voici un petit code juste pour toi :

Range("A2").Select
FinA = Sheets("Feuil1").Range("A65536").End(xlUp).Row
i = 1
While i < FinA
i = i + 1
toto = Worksheets("Feuil1").Cells(i, 1)
If IsNumeric(toto) Then
Cells(i, 1).Delete Shift:=xlUp
i = i - 1
FinA = FinA - 1
End If
Wend

j'espère que mon précédent code t'a rendu service

 

[Alexandre]

Formidable Cathy, c'est tout à fait ce que je recherchais...

Oui, je sais, tu ne dois pas être la seule à avoir du mal à suivre "mon" fil.... Moi même je m'y perd parfois.

Mais vois-tu, je me heurtes à des soucis au fur et à mesure de la construction d'un outil Excel.....je sais, j'aurais dû mieux préparer mon "cahier des charges" à l'avance, mais bon.... c'est une première pour moi.


Encore merci


Alexandre

 

[Alexandre]

Heu...merci aussi Popeye


Le temps d'essayer les deux macros et je ferai mon choix


Merci encore