extraction

[Nadine]

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:

 

[Hervé]

Bonjour nadine

ci dessous, ton code modifié.

j'ai ajouté des déclarations de variables.

Ligne devrait toujours etre egale à 1 puisque tu ne boucles que sur la premier ligne.

Sub Recher_Text()
Dim SearchString As String
Dim SearchChar As String
Dim MyPos As Byte
Dim cell As Range
Dim ligne As Byte
Dim colonne As Byte
Dim texte As String

texte = 'DB' & Worksheets('DB').Cells(1, 3)
SearchChar = texte

For Each cell In Range('A1:AH1')
    SearchString = cell.Text
    MyPos = InStr(SearchString, SearchChar) 'ici tu pourrais directement utiliser la variable texte

    If MyPos > 0 Then
        ligne = cell.Row 'renvoi le numero de la ligne
        colonne = cell.Column 'renvoi le numero de la colonne
        MsgBox cell.Address
    End If
Next C
End Sub

salut

 

[nadine]

merci Hervé