Dim valCherch as string valCherch ="Mot_Cherché" Set vc = Cells.Find(what:=valCherch, lookAt:=xlWhole, After:=ActiveCell, SearchOrder:=xlByColumns, SearchDirection:=xlNext, LookIn:=xlValues, MatchCase:=False, SearchFormat:=False) If Not vc Is Nothing Then VcCol = vc.Column 'N° de colonne où se trouve la valeur cherchée VcLig = vc.Row 'N° de ligne où se trouve la valeur cherchée End If
Su le site que tu donnes dans ton commentaire, il fait pourtant référence a la méthode find.
Sous quel forme se présente tes données ?
...le 31 oct. 2011</td><td class="yfnc_tabledata1" align="right">2,02</td><td class="yfnc_tabledata1" align="right">2,04</td><td class="yfnc_tabledata1" align="right">1,99</td><td class="yfnc_tabledata1" align="right">1,99</td><td class="yfnc_tabledata1" align="right">22 093 000</td><td class="yfnc_tabledata1" align="right">1,99</td></tr><tr><td class="yfnc_tabledata1" nowrap align="right">...
Quel est ton souci exactement ?
Function FindAfter() T = """right"">" R = Cells.Find(T, MatchCase:=True) If R > "" Then FindAfter = Mid(R, InStr(R, T) + Len(T), 4) End Function Sub Test() [D11] = FindAfter End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionSub open9() Open "C:\Users\Medo\Desktop\rien2.txt" For Output As #1 End Sub