Bonsoir, j'aimerais connaitre la signification et le rôle de ces 5 "termes" pour essayer de comprendre "un peu" ce code(qui fonctionne très bien)alors une traduction voir vulgarisation
m'aiderait!
ClearContents ??
End With ??
On Error Resume Next ??
, , , xlWhole, xlByColumns).Row
Application.CutCopyMode = False ??
Sub NotesSm1Sm2()
Dim lig1, lig2
With Sheets("Feuil1")
.Range("K58,K61").ClearContents
End With
With Sheets("Feuil1")
On Error Resume Next
lig1 = .Range("A1:A32").Find(Sheets("Feuil2").Range("AF49"), , , xlWhole, xlByColumns).Row
.Range("A" & lig1 & ":AW" & lig1).Copy Sheets("Feuil2").Range("K58")
lig2 = .Range("A39:A70").Find(Sheets("Feuil2").Range("AF49"), , , xlWhole, xlByColumns).Row
.Range("A" & lig2 & ":AW" & lig2).Copy Sheets("Feuil2").Range("K61")
End With
Application.CutCopyMode = False
End Sub
Crdlmt
Nonno