Recherche d'une chaine de caractère dans une feuille

Bonjour,

Je souhaiterais trouver, à l'aide d'une ligne de programme VBA, la cellule correspondant au mot "blabla" dans toute ma feuille excel., afin de restituer sa ligne et sa colonne.

J'utilise pour cela la ligne de code suivante :

Dim cellule As Range, col As Integer, lig As Integer

cellule = Worksheet("feuil1").Cells.Find(What:="blabla", After:=Cells(1, 1), MatchCase:=False)

col = cellule.Column

lig = cellule.Row

Je débute en VBA et j'ai du mal avec la syntaxe du langage.

Est-ce-que je pourrais aussi crée une variable As String pour contenir ma chaine puis utiliser cette variable dans le code :

MaChaine = "blabla"

cellule = Worksheet("feuil1").Cells.Find(What:=MaChaine, After:=Cells(1, 1), MatchCase:=False)

Merci à tous de votre aide

Bonjour

essaie comme ceci :

Sub Macro1()
'Dan
Dim cel As Range
Dim maref As String
maref = "blabla"
Set cel = Worksheets("feuil1").Cells.Find(maref, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False)
MsgBox "La cellule se trouve en " & cel.Address
End Sub

Si ok, lors de ta réponse clique sur le V vert à coté du bouton EDITER pour cloturer le fil

Amicalement

Rechercher des sujets similaires à "recherche chaine caractere feuille"