Bonjour à tous,
dans le fichier ci-joint je voudrais modifier cette partie du code qui se trouve dans le module newmonthsheet :
je souhaite modifier cette partie en rajoutant une nouvelle condition comme ceci :
pour chaque cellule de la colonne B ====> SI(STXT(B;1;2)="OT" alors supprimer la ligne
en cherchant dans le web j'ai rédigé le code ci-dessous mais il me r'envois une erreur je ne sais pas comment le modifier
Merci d'avance
dans le fichier ci-joint je voudrais modifier cette partie du code qui se trouve dans le module newmonthsheet :
Code:
For I = 35 To 9 Step -1
If IsDate(Cells(I, "E").Value) Then
If Cells(I, "E") < Range("B8") Then Rows(I).Delete
End If
Next I
je souhaite modifier cette partie en rajoutant une nouvelle condition comme ceci :
pour chaque cellule de la colonne B ====> SI(STXT(B;1;2)="OT" alors supprimer la ligne
en cherchant dans le web j'ai rédigé le code ci-dessous mais il me r'envois une erreur je ne sais pas comment le modifier
Code:
For I = 35 To 10 Step -1
If IsDate(Cells(I, "E").Value) Then
If Cells(I, "E") <= Range("B8") Then
If Left(Cells(I, "B"), 2) = "OT" Then Rows(I).Delete
End If
Next I
Merci d'avance