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
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