julien clerc
XLDnaute Junior
bonjour à tous je cherche une macro afin d'identifier une cellule sur une feuille de calcule sans chercher manuellement car trop long
merci de votre aides
merci de votre aides
Sub trouve()
lin = Range("A65536").End(xlUp).Row
col = Range("A1").End(xlToRight).Column
Dim F1 As Worksheet
Set F1 = Worksheets("Feuil1")
' Variable
Dim L As Integer
Dim C As Integer
Dim Vrai As Boolean
Vrai = False
tab1 = F1.Range(F1.Cells(1, 1), F1.Cells(lin, col))
For i = 1 To UBound(tab1, 1)
For J = 1 To UBound(tab1, 2)
If tab1(i, J) = CStr("15 33 36 41 47") Then '
MsgBox tab1(i, J)
L = i
C = J
Vrai = True
Else
End If
Next J
Next i
If Vrai = True Then
' Selection de la cellule
F1.Cells(L, C).Select
Else
MsgBox "Le code n'existe pas"
End If
End Sub
tu vois robert je suis pas le fils a casse...