Taduction ou"vulgarisation" Code

Question

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

James007 · Answer

Pour éclairer les points soulevés : 1. ClearContents signifie effacer le contenu 2. End With est utilisé pour indiquer la fin d'un bloc qui a commencé avec un With ... 3. On Error Resume Next est utilisé pour demander de continuer même si elle rencontre une erreur ( rarement conseillé ...) 4. ...xlWhole, xlByColumns).Row la fin Row indique que l'on recherche le numéro de la ligne 5. Application.CutCopyMode = False c'est l'équivalent de la touche Echapper ... souvent utilisé après une copie ... En espèrant que cela t'aide...