Macro Excel

[Claude5]

Bonjour,

dans une macro, j'ai besoin d'éliminer des cellules vides mais en fonction du fichier, l'élimination ne commence pas forcément à partir de la même cellule. Voir exemple ci dessous. Le range A41475 est variable.

Sub Macro2()
'
' Macro2 Macro
'

'
Columns("A:A").Select
Selection.AutoFilter
ActiveSheet.Range("$A$1:$A$140000").AutoFilter Field:=1, Criteria1:="="
Range("A41475").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("A41475:O41534").Select
Selection.ClearContents
ActiveSheet.ShowAllData
Selection.AutoFilter
Range("A2").Select
End Sub

Merci de votre aide.

Claude

 

[job75]

Re : Macro Excel

Bonjour Claude5,

Ce n'est pas bien clair mais essayez :

Sub Supprime()
On Error Resume Next 'si aucune cellule vide
With [A:A].SpecialCells(xlCellTypeBlanks)
  Intersect(.EntireRow, [A:O]).Delete xlUp 'supprime
  'Intersect(.EntireRow, [A:O]).ClearContents 'efface
End With
End Sub

Les lignes des cellules vides en colonne A sont supprimées (ou effacées).

Attention : une cellule contenant le texte vide "" n'est pas vide !

A+

 

[Claude5]

Re : Macro Excel

Merci beaucoup de votre aide. Claude