hi,
Le 2013-08-15 10:09, isabelle a écrit :
Le 2013-08-15 09:15, a écrit :
you help me to show you can programmatically select a item for cell A1?
eg select the last item in data validation (réf. is :name range, range
address or text list)
Sub Select_Item_Data_Validation()
Dim x As Integer
On Error Resume Next
x = UBound(Split(Sheets("Sheet1").Range("A1").Validati on.Formula1, ";"))
x = Range(Sheets("Sheet1").Range("A1").Validation.Form ula1).Count
Err.Clear
If Not IsError(Application.Find(";",
Sheets("Sheet1").Range("A1").Validation.Formula1)) Then
'text list
Sheets("Sheet1").Range("A1") =
Split(Sheets("Sheet1").Range("A1").Validation.Form ula1, ";")(x - 1)
Else
Err.Clear
'name range or range address
Sheets("Sheet1").Range("A1") =
Range(Sheets("Sheet1").Range("A1").Validation.Form ula1)(x)
End If
End Sub
isabelle