Bonjour à tous,
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
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
End If
Next I
la fonction "cells" demande deux valeurs nombres.
Exemple :
Code:
cells(3,5)
Je te propose d'utiliser le Range:
Code:
For I = 35 To 10 Step -1
If IsDate(Range("E" & I)) Then
If Range("E" & I) <= Range("B8") Then
If Left(Range("B" & I, 2) = "OT" Then Rows(I).Delete
End If
End if
Next I
Bonjour à tous,
j'ai modifié le code de cette façon est ça marché
Code:
For I = 35 To 10 Step -1
If IsDate(Cells(I, "E").Value) Then
If Cells(I, "E") <= Range("B8") Or Left(Cells(I, "B"), 2) = "OT" Then Rows(I).Delete
End If
Next I
Par contre, par rapport à ce que tu mettais initialement, j'mettrai plutôt "And" que "Or".
Quant à la fonction stxt, en vba, c'est mid (pour information)