Code vba

[castor30]

Bonjour,
Je vous souhaite à tous et à toutes une excellente année.
Je cherche a supprimer les X en colonne E
si un X se trouve sur la même ligne en colonne G par vba
En vous remerciant

 

[Calvus]

Bonjour,

Voici un code.

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.

 

[castor30]

Je te remercie Calvus, super
Mes meilleurs vœux

 

[Calvus]

Re,

Merci.
Meilleurs voeux également.

 

[Staple1600]

Bonsoir le fil, le forum

Une variante sans boucle

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

 

[castor30]

Bonjour Staple
Je te remercie pour ton code