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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
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
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
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
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
oui en ffet ..))
Merci
"isabelle" <i@v> a écrit dans le message de news:
%231fXWUJ4JHA.1528@TK2MSFTNGP05.phx.gbl...
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
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