EXCEL - VBA - compter le nombre de cellules commençant par

[airsage]

Bonjour,

J'ai le code VBA ci dessous qui sert à compter le nombre de cellules "Failed" consécutifs :

Cette macro fonctionne pour les cellules "Failed". par contre je voudrais que ma macro compte le nombre de cellules COMMENÇANT PAR "Failed" car j'ai aussi des "Failed-" avec 1 a x "-".

Sub test()

For i = 2 To Range("E65535").End(xlUp).Row
If Cells(i, 5) = "Failed" Then
For j = 6 To 11
If Cells(i, j) <> "Failed" Then Exit For
Next j
Cells(i, 12) = j - 5
Else
Cells(i, 12) = 0
End If
Next i

End Sub


Merci par avance de votre aide.

 

[CHALET53]

Re : EXCEL - VBA - compter le nombre de cellules commençant par

Bonjour,

Peut-être comme ceci si j'ai compris la question :

If Left(Cells(i, j),6) <> "Failed" Then Exit For

a+

 

[airsage]

Re : EXCEL - VBA - compter le nombre de cellules commençant par

Bonjour,

Ça fonctionne à merveille.

Merci pour ta réponse rapide.

 

[Gardien de phare]

Re : EXCEL - VBA - compter le nombre de cellules commençant par

Bonjour,

Une autre solution serait d'utiliser l'opérateur Like, plus souple :

If Not Cells(i, j) Like "Failed*" Then Exit For

 

[airsage]

Re : EXCEL - VBA - compter le nombre de cellules commençant par

Bonjour Gardien de phare,

Ça fonctionne aussi.

Merci et @+