Y
youyou
Guest
Bonjour tout le monde,
j'ai créer une nouvelle fonction excel que je n'arrive pas à utiliser ou plus exactement qui me retourne une erreur d'execution(valeur non correcte).
quelqu'un peut m'aider ??
Merci d'avance (c'est très urgent)
Function Search(s As String)
Dim i, j As Integer
i = 0
j = 11
Sheets("Résultat").Cells(10, 3) = Sheets("1").Cells(7, 10)
Sheets("Résultat").Cells(10, 6) = Sheets("1").Cells(7, 7)
Sheets("Résultat").Cells(12, 3) = " & s & "
Do While i < 31
Do While j < 296
If Sheets(i).Cells(j, 1) = " & s & " Then
Sheets("Résultat").Cells(12, 5) = Sheets(i).Cells(j, 2)
Sheets("Résultat").Cells(12, 7) = Sheets(i).Cells(j, 3)
Sheets("Résultat").Cells(i + 16, 2) = Sheets(i).Cells(j, 4)
Sheets("Résultat").Cells(i + 16, 3) = Sheets(i).Cells(j, 5)
Sheets("Résultat").Cells(i + 16, 4) = Sheets(i).Cells(j, 6)
Sheets("Résultat").Cells(i + 16, 5) = Sheets(i).Cells(j, 7)
Sheets("Résultat").Cells(i + 16, 6) = Sheets(i).Cells(j, 8)
Sheets("Résultat").Cells(i + 16, 7) = Sheets(i).Cells(j, 9)
Sheets("Résultat").Cells(i + 16, 8) = Sheets(i).Cells(j, 10)
Sheets("Résultat").Cells(i + 16, 9) = Sheets(i).Cells(j, 11)
End If
j = j + 1
Loop
i = i + 1
Loop
End Function
j'ai créer une nouvelle fonction excel que je n'arrive pas à utiliser ou plus exactement qui me retourne une erreur d'execution(valeur non correcte).
quelqu'un peut m'aider ??
Merci d'avance (c'est très urgent)
Function Search(s As String)
Dim i, j As Integer
i = 0
j = 11
Sheets("Résultat").Cells(10, 3) = Sheets("1").Cells(7, 10)
Sheets("Résultat").Cells(10, 6) = Sheets("1").Cells(7, 7)
Sheets("Résultat").Cells(12, 3) = " & s & "
Do While i < 31
Do While j < 296
If Sheets(i).Cells(j, 1) = " & s & " Then
Sheets("Résultat").Cells(12, 5) = Sheets(i).Cells(j, 2)
Sheets("Résultat").Cells(12, 7) = Sheets(i).Cells(j, 3)
Sheets("Résultat").Cells(i + 16, 2) = Sheets(i).Cells(j, 4)
Sheets("Résultat").Cells(i + 16, 3) = Sheets(i).Cells(j, 5)
Sheets("Résultat").Cells(i + 16, 4) = Sheets(i).Cells(j, 6)
Sheets("Résultat").Cells(i + 16, 5) = Sheets(i).Cells(j, 7)
Sheets("Résultat").Cells(i + 16, 6) = Sheets(i).Cells(j, 8)
Sheets("Résultat").Cells(i + 16, 7) = Sheets(i).Cells(j, 9)
Sheets("Résultat").Cells(i + 16, 8) = Sheets(i).Cells(j, 10)
Sheets("Résultat").Cells(i + 16, 9) = Sheets(i).Cells(j, 11)
End If
j = j + 1
Loop
i = i + 1
Loop
End Function