Re : comment rechercher une cellule sur une feuille de calcule
bonjour laurent , ici le code avec la ligne de recherche la cellule doublé pour la démo ; remaque le code avec " 1 2 3 4 5 " et le "7 8 22 28 38" ne fonctionne pas ; 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("1 2 3 4 5") Then '
If tab1(i, J) = CStr("7 8 22 28 38") 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
ps: je ne peux pas enpecher le décalage qui a mon avis fait planter le code :
If tab1(i, J) = CStr("1 2 3 4 5") Then '
If tab1(i, J) = CStr("7 8 22 28 38") Then '
clerc