une petite explication

Bonsoir

je regarde cette macro comme je suis en train d'apprendre VBA...
je comprends cette macro mais pourquoi cette ligne : If c Is Nothing Then
AnB
Merci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub

bonjour Anb,

si la valeur de Target n'est pas trouvé dans la plage [B3:B15]
la variable "c" sera égale à rien (Nothing)
alors refaire une tentative pour trouver Target dans la plage [E3:E15]

isabelle

AnB a écrit :

Bonsoir

je regarde cette macro comme je suis en train d'apprendre VBA...
je comprends cette macro mais pourquoi cette ligne : If c Is Nothing
Then
AnB
Merci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$B$4" Then
With Sheets("13")
Set c = .[B3:B15].Find(Target.Value, , , xlWhole)
If c Is Nothing Then
Set c = .[E3:E15].Find(Target.Value, , , xlWhole)
End If
[B6:E6].Value = .Range(.Cells(c.Row, 2), .Cells(c.Row,
5)).Value
End With
End If
End Sub