Code vba

Calvus

XLDnaute Barbatruc

• 9 Janvier 2018

• #2

Bonjour,

Voici un code.

VB:

Sub Suppr()
Dim i As Integer
For i = Range("E" & Rows.Count).End(xlUp).Row To 1 Step -1
If Cells(i, 5) = "X" And Cells(i, 5) = Cells(i, 7) Then Cells(i, 5) = ""
Next
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 9 Janvier 2018

• #3

Je te remercie Calvus, super
Mes meilleurs vœux

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 9 Janvier 2018

• #4

Re,

Merci.
Meilleurs voeux également.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 9 Janvier 2018

• #5

Bonsoir le fil, le forum

Une variante sans boucle

VB:

Sub DelNoLoop()
With Range("H5:H48")
    .FormulaR1C1 = "=IF(RC[-3]&RC[-1]=""XX"",1,""$$"")"
    .SpecialCells(-4123, 1).Offset(, -3) = ""
    .ClearContents
End With
End Sub

 

Vote positif 0 Vote négatif

castor30

XLDnaute Occasionnel

• 10 Janvier 2018

• #6

Bonjour Staple
Je te remercie pour ton code

 

Vote positif 0 Vote négatif