Bonjour,
j'aimerai savoir comment on fait pour commenter un code ?
Je voudrais un peu d'aide pour m'expliquer ce code que j'ai du mal à comprendre ?
merci pour votre aide
Sub chercher()
Dim wbks As Workbook, adr$, fin&, x$, n, n1$, t
adr = ThisWorkbook.Path
x = Year(Date)
With Feuil1
If Application.WorksheetFunction.CountA(.Range("B2:B100")) > 0 Then
fin = .Range("B" & Rows.Count).End(xlUp).Row
val = .Range("B" & fin)
n = Split(val, "-")(2): n1 = CDbl(n) + 5
val = Replace(val, n, n1)
Else:
Set wbks = Workbooks.Open(adr & ":Factures.xlsx")
'Set wbks = Workbooks.Open(adr & "\Factures.xlsx")
With wbks.Sheets(x)
fin = .Range("B" & Rows.Count).End(xlUp).Row
val = .Range("B" & fin)
End With
wbks.Close
n = Split(val, "-")(2): n1 = CDbl(n) + 5
val = Replace(val, n, n1)
End If
End With
End Sub
j'aimerai savoir comment on fait pour commenter un code ?
Je voudrais un peu d'aide pour m'expliquer ce code que j'ai du mal à comprendre ?
merci pour votre aide
Sub chercher()
Dim wbks As Workbook, adr$, fin&, x$, n, n1$, t
adr = ThisWorkbook.Path
x = Year(Date)
With Feuil1
If Application.WorksheetFunction.CountA(.Range("B2:B100")) > 0 Then
fin = .Range("B" & Rows.Count).End(xlUp).Row
val = .Range("B" & fin)
n = Split(val, "-")(2): n1 = CDbl(n) + 5
val = Replace(val, n, n1)
Else:
Set wbks = Workbooks.Open(adr & ":Factures.xlsx")
'Set wbks = Workbooks.Open(adr & "\Factures.xlsx")
With wbks.Sheets(x)
fin = .Range("B" & Rows.Count).End(xlUp).Row
val = .Range("B" & fin)
End With
wbks.Close
n = Split(val, "-")(2): n1 = CDbl(n) + 5
val = Replace(val, n, n1)
End If
End With
End Sub