une petite explication

Le
AnB
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #19445601
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





AnB
Le #19445711
oui en ffet ..))
Merci
"isabelle" a écrit dans le message de news:
%
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







Publicité
Poster une réponse
Anonyme