Tests de cellule sous Excel via VBA

Bonjour tout le monde,

Voici ce que j'aimerai faire. J'ai une colonne remplie de TEST PASS et de TEST FAIL. Dès qu'un TEST FAIL apparait dans cette colonne, je voudrai qu'un TEST FAIL s'écrire dans une case, en rouge. J'aimerai aussi, si toutefois ceci était possible, que lorsque je clique sur le TEST FAIL en rouge, il me conduise, à chaque appuie, à la case où il y a le problème.

Voici ce que j'ai commencé à faire (sachant que je ne suis pas très fort en programmation) :

Private Sub CommandButton1_Click()

Dim i As Integer
i = 3
Range("D3").Activate
For i = 1 To i = 999
If ActiveCell.Offset(i, 0).Value = "FAIL" Then
Range("E4").Activate
ActiveCell.Activate = "FAIL"
GoTo Fin
Else
Range("E4").Activate
ActiveCell.Activate = " TEST PASS"
End If
Next
i = i + 1
Exit For
Fin:
End Sub


Et biensûr ça ne marche pas. Si quelqu'un peut me venir en aide, il ou elle sera le ou la bienvenu(e). Merci d'avance.

@+

Adoc5

Bonjour,

Il y a moyen de faire bien plus simple en utilisant la fonction "Rechercher" d'Excel. Il faut associer la macro ci-dessous à un
bouton, à chaque clic sur ce bouton la 1ère cellule contenant
FAIL est selectionnée.

Sub ChercheFAIL()
'
' ChercheFAIL Macro
' Macro enregistrée le 30.08.2004 par dp
'
On Error Resume Next
Range("A1:A100").Select
Selection.Find(What:="FAIL", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
ActiveCell.Select
'
End Sub

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp

Merci bien.
J'ai modifié ton code de la façon suivante :

Private Sub CommandButton1_Click()

Dim toto As Variant
On Error Resume Next
Range("D3:D1002").Select
Selection.Find(What:="FAIL", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
toto = ActiveCell.Select
Range("E4").Activate
ActiveCell.Value = toto
End Sub

Mais le pb c'est qu'il m'affiche dans la case TRUE alors que j'ai des cases à FAIL. Il y a un bug, non ?

Il faut modifier une ligne de ton code :

toto = ActiveCell.Value

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp

C'est fait, mais il m'écrit PASS alors qu'il y a des FAIL dans ma colonne et le programme ne s'arrète pas au premier FAIL qu'il rencontre.

Vois-tu d'où provient le problème ?

Je pense que le problème est que tu as mis Range("D3").Activate
en dehors de ta boucle for.

Dès que tu as fait ta boucle une fois, la cellule active est E4, donc ton offset se rapporte à E4 et non pas à D3.

Dim i As Integer
i = 3
For i = 1 To i = 999
Range("D3").Activate
If ActiveCell.Offset(i, 0).Value = "FAIL" Then
Range("E4").Activate
ActiveCell.Activate = "FAIL"
....

pour le rouge :
ActiveCell.Font.ColorIndex = 3

J'ai testé ta macro (30.08; 16:00) sur mon poste, cela
fonctionne parfaitement. Il ne semble pas y avoir de bug.
Est-elle intégrée dans quelque chose de plus conséquent ?

Bon(ne) courage, développement, salutation...
(choisissez ce qui vous convient) dp

Salut et merci de ta remarque.

Voici ce que j'ai inscrit dans mon programme :

Private Sub CommandButton1_Click()

Dim i As Integer

i = 1
For i = 1 To i = 999
Range("D3").Activate
If ActiveCell.Offset(i, 0).Value = "FAIL" Then
Range("E4").Activate
ActiveCell.Activate = "TEST FAIL"
GoTo fin
Else
Range("E4").Activate
ActiveCell.Activate = "TEST PASS"
End If
fin:
Next
End Sub

Lorsque je le teste en pas à pas, je n'entre jamais dans la boucle for. Peux-tu m'aider s'il te plait ?
Merci d'avance.

Adoc5

Salut, je viens de tester ton prog en pas à pas.
Si j'ai bien compris, la variable toto contient "TRUE" lorsque il y a un FAIL présent dans la colonne ? C'est ça ?

Merci d'avance pour ta réponse.

Je viens de le tester de nouveau en remplissant une colonne entière de FAIL puis ensuite de PASS et la variable toto contient toujours TRUE. Tu vois ce que je veux dire ? Saurais-tu me dire d'où ceci peut-il bien provenir ?

Merci d'avance.