2 conditions remplies dans colonne = suppression ligne

Bonsoir le forum

Je souhaiterais que pour la colonne D si D="TU" dans une des cellules ET que dans une des cellules de la colonne F "F" ='SA" alors on supprime la ligne.

Merci à vous.

Salut Moreno,

A tester

Sub SupprimerLignes()
   Dim i As Long
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 4).End(xlUp).Row To 1 Step -1 ' 4 pour la colonne "D"
      If Cells(i, 4) = "TU" AND Cells(i, 6) = "SA" Then Rows(i).Delete
   Next i
   Application.ScreenUpdating = True
End Sub

Bonne nuit

Merveilleux c'est tout simple en fait.

Merci

Re bonsoir

Je souhaiterais adapter cette formule.

Si dans la colonne A case vide alors on applique cette formule et on ajoute en plus le contenu de la colonne I sinon on laisse son contenu.

Range("A2:A" & Derlg)="=IFERROR(INDEX('RLR'!A:A,MATCH(B2,'RLR'!C:C,0)),"""")"

Une idée?

Merci

Bonsoir Moreno76,

En A2 : =SI(A1="";SIERREUR(INDEX(RLR!A:A;EQUIV(B2;RLR!C:C;0);1)+I1;""))

J'ai l'impression qu'il manque des données dans ton Equiv alors je les inventé

Bonne adaptation

Christian

Bonsoir Christian,

Je mets en PJ mon fichier.

Je n'arrive pas à adapter ta formule en VBA.

Mon souhait en macro

Il y a déjà une macro qui positionne des informations.

Je souhaiterais que si dans la colonne A une cellule est vide (vide mais il y a des formules dedans d une autre macro)

alors rechercher dans l'onglet receptionreappro si le code de la colonne B de synthèse est présents dans la colonne C de receptionreappro. SI c'est le cas marquer RECEPTIONNEE et indiquer dans la colonne L de synthèse la valeur de la colonne I de receptionreappro. Si ce n'est pas le cas laissez tel quel.

De longues explications vont-elles se traduire en ligne? Merci