Titre du sujet : Re: Find sur cellules avec un format personnalisé
par Eric le 17/05/2010 10:41:49
Re (avec un peu de retard)
En conclusion, voici le code complet (de ma demande) avec la déclaration des variables :
Option Explicit
Sub cherche_max_dans_ligne_5()
Dim c As Range
Dim firstAddress As String
Dim i As Integer
Dim mavar As Integer 'dans ce cas
Dim monadresse As String
mavar = Application.Max(Sheets("Feuil1").Range("d5:iv5"))
With Worksheets("Feuil1").Range("d5:iv5")
Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
'********************** ce que je cherche
monadresse = c.Address
MsgBox monadresse
'**********************
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
pour ceux que cela intéresse. A adapter.
Bonne journée à tous
Eric
|
Didier FOURGEOT