mettre une valeur nulle

[KN4]

Bonjour!
J'ai une macro qui recherche la valeur de l'erreur 9006;

voila ma macro

Private Sub Worksheet_Activate()
Dim I As Integer

For I = 2 To 13
If Worksheets('Feuil1').Cells(1, I).Value = '9006' Then C = I
Next I

Worksheets('Feuil2').Range('B3').Value = Worksheets('Feuil1').Cells(2, C)
End Sub

Je voudrais juste que si il ne trouve pas l'erreur 9006, il me renvoie une valeur nulle dans ma cellule B3;
merci pour votre aide

NICO

 

[porcinet82]

Salut Nico,

Je ne suis pas sur d'avoir bien compris, mais peut etre en modifiant la macro comme suit :

Private Sub Worksheet_Activate()
Dim i As Integer, C As Integer

For i = 2 To 13
    If Worksheets('Feuil1').Cells(1, i).Value = '9006' Then C = i
Next i

If C = 0 Then
    Sheets('feuil2').Range('B3').Value = 0
Else
    Sheets('Feuil2').Range('B3').Value = Sheets('Feuil1').Cells(2, C).Value
End If
End Sub

@+

 

[KN4]

MERCI
c'est tout à fait ce que je voulais.
MECI ENCORE

NICO