salut le forum
re thierry, merci pour ta reponse: j'ai essayer plusieurs choses du genre :
Sub FiltreReport()
Dim cell As Range
Dim MaPlage As Range
Dim i As Integer
Dim iF2 As Integer
Dim ZoneA() As String, ZoneB() As String, ZoneC() As String, ZoneD() As String
Sheets(2).Range("a2:d100").ClearContents
iF2 = 2
Set MaPlage = Sheets("Sheet1").Range("A2", [A65536].End(xlUp))
Set MaPlage = Sheets("Sheet1").Range("A2", [A65536].End(xlUp))
Set MaPlage = MaPlage.SpecialCells(xlCellTypeVisible)
ReDim ZoneA(0 To MaPlage.Count - 1)
ReDim ZoneB(0 To MaPlage.Count - 1)
ReDim ZoneC(0 To MaPlage.Count - 1)
ReDim ZoneD(0 To MaPlage.Count - 1)
For Each cell In MaPlage
If Len(cell.Text) > 90 Then cell.ClearContents --------------------------
ZoneA(i) = cell.Value
Sheets("Sheet2").Range("A" & iF2) = ZoneA(i)
ZoneB(i) = cell.Offset(0, 1)
Sheets("Sheet2").Range("B" & iF2) = ZoneB(i)
ZoneC(i) = cell.Offset(0, 2)
Sheets("Sheet2").Range("C" & iF2) = ZoneC(i)
ZoneD(i) = cell.Offset(0, 3)
Sheets("Sheet2").Range("D" & iF2) = ZoneD(i)
i = i + 1
iF2 = iF2 + 1
Next cell
End Sub
ca efface les lignes --------------------------------- mais pas le +++++++++++++++++ bizzard non ?
et je voudrais effacer la ligne completement la ca vide les cellules ...
then DeletingRows il veux pas ....
Then cell.EntireRow.Delete
un peu de mal pour effacer la ligne
lol
merci pour ton aide
avo