Pb code tout bête

[chanu]

Bonjour le forum,
J'ai un souci avec ce bout de code, j'ai une incompatibilité de type 13.
If Cells.Columns("C:E") = "<>" Then Entirerows.Delete
Si quelqu'un peut m'éclairer merci

 

[pierrejean]

Re : Pb code tout bête

bonjour chanu

A tester:

For Each cel In Range("C1:E65536")
 If cel.Value = "<>" Then Rows(cel.Row).Delete
Next cel

Note: Risque d'etre long a l'execution !!!

 

[chanu]

Re : Pb code tout bête

Bonjour pierrejean, j'ai testé mais cela ne fonctionne pas voici mon code en entier

Sub Transfert_Balance()
    Workbooks.OpenText Filename:="C:Monfichier\balance.txt", Origin:= _
        xlWindows, StartRow:=1, DataType:=xlDelimited, TextQualifier:= _
        xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, _
        Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), _
        Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
        Array(9, 1), Array(10, 1), Array(11, 1)), TrailingMinusNumbers:=True
        Cells.Select
        Selection.Copy
        Windows("base de données CIF test.xls").Activate
        Sheets.Add After:=Sheets(Sheets.Count)
        ActiveSheet.Paste
    Windows("balance.txt").Activate
    ActiveWindow.Close
    Range("A:A,G:G,J:K").Select
    Selection.Delete Shift:=xlToLeft
    For Each Cel In Range("C1:E5000")
     If Cel.Value = "<>" Then EntireRows.Delete
    Next Cel
End Sub

 

[pierrejean]

Re : Pb code tout bête

re

Veux-tu relire le code que jet'ai proposé

If cel.Value = "<>" Then [COLOR=blue]Rows(cel.Row).[/COLOR]Delete

 

[chanu]

Re : Pb code tout bête

Oui escuse moi je l'ai testé avec le tien et c'est la même chose, j'y connais pas grand chose en VBA 😉