Contre-vérification secondaire ()
Application.ScreenUpdating = faux
Faible r comme gamme
Le faible WS comme feuille de travail
Placer le WS = les feuilles de travail (« réconcilier »)
Placer r = le WS. Gamme (« B5 », le WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.FormulaR1C1 = « =IF (ISNA (VLOOKUP (RC [- 1], système ! C : C, 1, FAUX)), """", VLOOKUP (RC [- 1], système ! C : C, 1, FAUX)) »
r.Offset (, 1).FormulaR1C1 = « =IF (ISNA (VLOOKUP (RC [- 2], système ! C [- 1] : C, 2, FAUX)), """", VLOOKUP (RC [- 2], système ! C [- 1] : C, 2, FAUX)) »
r.Resize (, 2).Copy
Application.DisplayAlerts = faux
r.Resize (, xlPasteValues 2).PasteSpecial
Application.CutCopyMode = faux
Placer r = le WS. Gamme (« B5 », le WS. Cells.SpecialCells (xlCellTypeLastCell)).EntireRow.Resize (, 1).Offset (, 1)
r.EntireRow.RowHeight = 15
r.Resize (, 1).Offset (, -1) .SpecialCells (xlCellTypeBlanks) .EntireRow.Delete
Application.DisplayAlerts = rectifient
Application.ScreenUpdating = rectifient
Sous-marin d'extrémité
|