Formule STXT en VBA

[marfipo]

Bonjour à tous,
dans le fichier ci-joint je voudrais modifier cette partie du code qui se trouve dans le module newmonthsheet :

  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

  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

 

[CHALET53]

Re : Formule STXT en VBA

Bonjour,

a priori, il te manque un End If

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

a+

 

[Hieu]

Re : Formule STXT en VBA

Bonjour,

la fonction "cells" demande deux valeurs nombres.
Exemple :

 cells(3,5)

Je te propose d'utiliser le Range:

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

++
Hieu.

ps : oublié de "OT"

 

[marfipo]

Re : Formule STXT en VBA

Bonjour à tous,
j'ai modifié le code de cette façon est ça marché

  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

Merci beaucoup chalet, Hieu pour vos réponses

 

[Hieu]

Re : Formule STXT en VBA

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)

++

 

[koikili]

Re : Formule STXT en VBA

re,
tu as raison hieu parce que je me suis mal exprimé..vue que je suis débutant en VBA
en tout cas merci beaucoup pour ta réponse