Macro suppression cellule suite

[Flavian]

Bonjour a tous,

Je reviens a nouveau malgre les aides plus que precieuses de Bernard et Robert. En effet Bernard m'a fait une macro qui permet de rendre un fichier texte exploitable sur Excel, cette macro fonctionne parfaitement, mais il n y a qu une petite erreur qui decale les lignes du faut de suppression de cellules.
c 'est ainsi que Robert m' a fait une autre macro mais cette macro est une boucle, d'une part je n attive pas la reproduire sur plusieurs lignes et par la suite je ne sais pas s'il y a une autr5e methodeque les boucles.

En clair comme le fichier present ici je cherche a eliminer les cellule en jaune, ce fichier n'est qu un partie d'un chier de 7000 lignes.

Merci beacoup de votre aide.

Flavian

[file name=MISENFORME3.zip size=7875]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MISENFORME3.zip[/file]

 

[Bernard_XLD]

Bonjour

Voila un code qui devrait te convenir

Sub Supprime_Cellules()
Dim Der_Ligne As Long
Der_Ligne = Range('A65536').End(xlUp).Row
Range('B2:C65536').ColumnDifferences(Comparison:=Range('B65536')).Offset(1, 0).Delete shift:=xlUp
Range('D2:H' & Der_Ligne).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp
End Sub

Cordialement, A+

 

[flavian]

Genial yeaouh c'est exactement ce qu'il me fallait merci beaucoup, tu me sauve.

Flavian