Voil=E0 un code que j'ai r=E9cup=E9r=E9 de l'internet, que je voulais modif=
ier
pour afficher dans une MsgBox, =E9l=E9ment par =E9l=E9ment pour voir ce qu'=
il
contient comme valeur, mais une erreur est signal=E9e :
Incompatibilit=E9 de type.
Les donn=E9es :
A2: 10
A3:11
A4:aa10
A5 10bb
A6:12
Le code :
'------------------------------------------
Sub suppr_FiltreElabore()
Dim rF As Range
With ActiveSheet
.Range("C2").FormulaR1C1 =3D
"=3DOR(COUNTIF(RC[-2],""10""),COUNTIF(RC[-2],""*10*""))"
.Range("A1:A" & [A65536].End(xlUp).Row).AdvancedFilter
Action:=3DxlFilterInPlace, CriteriaRange:=3DRange("C1:C2"), Unique:=3DFalse
Set rF =3D .Range("_FilterDataBase")
rF.Select
MsgBox "rF.rows.count-1 =3D " & rF.Rows.Count - 1
'rF.Offset(1, 0).Resize(rF.Rows.Count -
1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
i =3D 1
For Each c In rF
'MsgBox "element " + i + " =3D " + c.Value
i =3D i + 1
Next c
.ShowAllData
'.Range("C2").Clear
End With
End Sub
'-------------------------------
