Recherche du numéro de colonne d'une valeur de cellule

Re: Recherche du numéro de colonne (et de la lettre !) d'une valeur de cellule

Bonjour JB, le Forum


Voici une autre approche, mais je pense que ç'est ce que tu cherches...

En prime du numéro, je t'ai mis l'astuce pour retourner aussi la lettre de la colonne où la String aura été trouvée... Cà peut toujours être utile !!!

Pour la plage, on fait encore plus simple aussi avec UsedRange, très pratique...


Sub Recherche()
Dim MyString As String
Dim Msg As String
Dim C
Dim Col0 As Integer
Dim ColA As String

MyString = InputBox("Taper le mot recherché")
With Sheets("Sheet3").UsedRange
Set C = .Find(MyString, LookIn:=xlValues)
If Not C Is Nothing Then
ColA = Left$(C.Address(0, 0), (C.Column < 27) + 2)
Col0 = C.Column
Msg = " Colonne Numéro : " & Col0 & " / Colonne Lettre : " & ColA
End If
End With
If Msg <> "" Then
MsgBox "La String " & MyString & " a été trouvée dans : " & vbCrLf & Msg
Else
MsgBox "La string " & MyString & " n'a pas été trouvée !! "
End If
End Sub


Tape "TOTO" en IV 65536... hi hi hi

Bon App
@+Thierry

Re: Recherche du numéro de colonne (et de la lettre !) d'une valeur de cellule

merci thierry ta procédure marche niquel.

Juste une petite dernière(je l'espere) question :

J ai une fonction qui prends une String en entree et qui retourne une String egalement.

Le pb c est que cette string de retour est la valeur d'une cellule.

Ma fonction s appelle getlabelindic_bis(codind as String) as String

instruction

getlabelindic_bis = cells.item(ligne , col +1).value <------ICI Ca veut pas

end function

Sais tu comment faire


merci