Suppression cellule

salut à tous, je suis nouveau sur le forum et surtout avec excell,

je ne l'ai jammais vraiment utilisé, mais maintenant, pour des raisons professionelles, je dois y passer.

finalement c'est pas si mal que ça.

j'ai glanné un peu le net, j'ai pu trouver quelques formules qui me facilitent déja la vie.

j'ai plusieurs choses que je pourrais automatiser, premiere chose :

j'ai un fichier qui commence par plusieurs zéros.

genre a2 jusque a 54 00000000,

j'aimerais faire une formule qui detecte jusqu'ou j'ai des 00000000.

car chaque mois, mon fichier est amené à bouger, donc le début et fin ne seront pas toujours les memes, ici c'est de a2 à a54 mais le mois d'apres cela peut commencer à a3 à a45.

du coup si j'arrives à detecter les cellules qui comportent les 00000000, ex: A2 A54, j'aimerais supprimer ces cellules.

je pourais le selectionner à la main et clic droit supprimer. mais une formule serait bien bien cool.

résumé.

***détection des cellules concernées par les caracteres 00000000

***si A2 à A54 concerné, suppression des cellules A2 à A54

disons que les celllules de A2 à A54 contiennent toutes 000000

tu veux les "supprimer", qu'est-ce que tu veux dire ?

tu veux dire "vider", ou "décaler A55 vers la gauche" ou autre ?

que donne "rechercher/remplacer" ?

ben j'ai trouvé un chouette truc, qui est l'enregisteur de macro.

   Range("B4:H4").Select
   Selection.EntireRow.Delete

ça fait ce que je veux, cepandant, j'aimerais trouver un moyen de detecter là ou j'ai mes 00000000

histoire de pouvoir remplacer le range par la valeur qui dependra d'un xls à l'autre.

Bonsoir,

Fais-nous voir à quoi ressemble le fichier

comme exemple

Claude

ok ça ressemble à ça.

re,

3 questions

1) là où il y a les 0000, il y a rien en colonne A ?

2) ces lignes se suivent-elles ?

3) c'est toujours en début de feuille ?

Auquel cas, çà devrait être facile

Claude

oui les 00000000 se suivent tous et oui ils seront toujours en début de page

et là ou j'ai des 00000000 je n'ai pas de données en colonne a

ensuite oui en A, c'est la colonne du numéro de chaque article, mais tant que j'ai des 0 j'ai rien en A

re,

Sub SupprLignes()
Dim Lg%
    Lg = Range("b" & Rows.Count).End(xlUp).Row
    Application.DisplayAlerts = False
    Range("a1:a" & Lg).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

çà devrait le faire

édit: attention, çà supprime toutes les lignes qui sont vides en colonne "A"

Claude

salut, hé bien oui ça marche vraiment bien,

cependant, ce serait sympa de commenter le code histoire que je comprenne ce qui s'y passe.

merci encore

re,

Quelques explications sur ton autre poste (suite)

sinon dans le code, met le curseur sur un mot et Touche F1 (aide)

Claude