1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
| Dim i As Integer
For i = 3 To 200
Cells(i, 1).Select
Selection.Copy
Sheets("vérif nature").Select
Cells(1, 10).Select
ActiveSheet.Paste
ActiveSheet.Paste
Application.Run macro:="EssVRetrieve"
IgnoreBlank = Range("C1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("D1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("E1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("F1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("G1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("H1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("I1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("J1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
IgnoreBlank = Range("K1")
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="..."
.IgnoreBlank = True
.InCellDropdown = True
.ShowInput = True
.ShowError = True
End With
Cells(67, 4).Select
Selection.Copy
Sheets("centre").Select
Cells(i, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("vérif nature").Select
Cells(68, 4).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("centre").Select
Cells(i, 3).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("vérif nature").Select
Cells(69, 4).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("centre").Select
Cells(i, 4).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next i
End Sub |
Partager