N
Nadine
Guest
bonjour le Forum,
Comment extraire la colonne et la ligne de cet macro:
Sub Recher_Text()
Dim SearchString, SearchChar, MyPos
Texte = 'DB' & Worksheets('DB').Cells(1, 3)
SearchChar = Texte
For Each Cell In Range('A1:AH1')
SearchString = Cell.Text
MyPos = InStr(SearchString, SearchChar)
If MyPos > 0 Then
MsgBox Cell.Address
End If
Next
End Sub
je voudrais avoir la colonne dans une variable et la ligne dans une autre.
Merci de votre aide
:kiss:
Comment extraire la colonne et la ligne de cet macro:
Sub Recher_Text()
Dim SearchString, SearchChar, MyPos
Texte = 'DB' & Worksheets('DB').Cells(1, 3)
SearchChar = Texte
For Each Cell In Range('A1:AH1')
SearchString = Cell.Text
MyPos = InStr(SearchString, SearchChar)
If MyPos > 0 Then
MsgBox Cell.Address
End If
Next
End Sub
je voudrais avoir la colonne dans une variable et la ligne dans une autre.
Merci de votre aide
:kiss: