Code : Tout sélectionner
Function FirstDuplicate(sArray() As String) As String
Dim i&
FirstDuplicate = ""
For i = LBound(sArray()) To UBound(sArray()) - 1
If sArray(i) = sArray(i+1) Then
FirstDuplicate = sArray(i)
Exit For
End If
Next
End Function
Modérateur : Vilains modOOs
Code : Tout sélectionner
Function FirstDuplicate(sArray() As String) As String
Dim i&
FirstDuplicate = ""
For i = LBound(sArray()) To UBound(sArray()) - 1
If sArray(i) = sArray(i+1) Then
FirstDuplicate = sArray(i)
Exit For
End If
Next
End Function
elle fonctionne.pourquoi cette fonction ne fonctionne pas ?
Code : Tout sélectionner
pour le formatage des instructions : il suffit de sélectionner tout le code et de cliquer sur le bouton [b]Code[/b].
Code : Tout sélectionner
Sub test
dim tableau(10) As String
for i = 0 to 10
tableau(i) = int(rnd*10)
mess = mess+" , "+tableau(i)
next i
msgbox mess
msgbox FirstDuplicate(tableau())
End Sub
Function FirstDuplicate(sArray() As String) As String
Dim i&
FirstDuplicate = ""
For i = LBound(sArray()) To UBound(sArray()) - 1
If sArray(i) = sArray(i+1) Then
FirstDuplicate = sArray(i)
Exit For
End If
Next
End Function
Code : Tout sélectionner
Function FirstDuplicate(sArray()) As String