mettre une valeur nulle

KN4 · 4 Février 2006

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 · 4 Février 2006

Salut Nico,

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

Code:

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 · 4 Février 2006

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

NICO

mettre une valeur nulle

KN4

Guest

porcinet82

XLDnaute Barbatruc

KN4

Guest

Discussions similaires

mettre une valeur nulle

KN4

Guest

porcinet82

XLDnaute Barbatruc

KN4

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency