Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim tabColorColumn As Long, tabColorRow As Long Dim MaCellule As Range Set MaCellule = Worksheets("Sheet1").Cells.Find(What:="table color", After:=Cells(1, 1), MatchCase:=False) If Not MaCellule Is Nothing Then 'si la recherche est infructueuse l'objet "Macellule" est vide tabColorRow = MaCellule.Row tabColorColumn = MaCellule.Column Else MsgBox "Recherche infructueuse !", vbInformation End If
j ai un tableau dont le titre est "table color"
Dim C As Range Set C = Worksheets(sheet1).Cells.Find("table color") tabColorRow = C.Row tabColorColumn = C.Column