Formule STXT en VBA

C

CHALET53

XLDnaute Barbatruc

• 10 Avril 2016

• #2

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+

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 10 Avril 2016

• #3

Re : Formule STXT en VBA

Bonjour,

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

++
Hieu.

ps : oublié de "OT"

 

Dernière modification par un modérateur: 10 Avril 2016

Vote positif 0 Vote négatif

M

marfipo

XLDnaute Occasionnel

• 10 Avril 2016

• #4

Re : Formule STXT en VBA

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

Merci beaucoup chalet, Hieu pour vos réponses

 

Vote positif 0 Vote négatif

H

Hieu

XLDnaute Impliqué

• 10 Avril 2016

• #5

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)

++

 

Vote positif 0 Vote négatif

K

koikili

Guest

• 10 Avril 2016

• #6

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

 

Vote positif 0 Vote négatif