sourcier08
XLDnaute Occasionnel
Bonjour à tous,
J'essaie de récupérer la valeur d'une cellule (entête) en fonction d'une valeur max d'une ligne. Seulement, je n'arrive pas à définir la plage de rechercher (une ligne précise) pour ensuite récupérer l'entête.
Je ne vois pas où est le problème et pourquoi il me renvoie donc cette erreur en me parlant de bloc with et d'objets.
Merci d'avance pour l'aide.
J'essaie de récupérer la valeur d'une cellule (entête) en fonction d'une valeur max d'une ligne. Seulement, je n'arrive pas à définir la plage de rechercher (une ligne précise) pour ensuite récupérer l'entête.
Je ne vois pas où est le problème et pourquoi il me renvoie donc cette erreur en me parlant de bloc with et d'objets.
Code:
Sub valeur1()
Dim Plage1 As Range, c As Range, cell As Range
Dim choix1 As Integer
Dim g As Integer
g = Sheets("saisie").Range("C2").Value
For Each cell In Sheets("saisie").Range("liste")
choix1 = Sheets(cell.Value).Range("A4:A19").Find(g).Row 'qu'est-ce qui foire là ?
Set Plage1 = Range("b" & choix1 & ":p" & choix1)
Set c = Plage1.Find(Application.WorksheetFunction.Max(Plage1), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then MsgBox Cells(3, c.Column).Value
Next cell
End Sub
Merci d'avance pour l'aide.