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

[benoa]

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

 

[Efgé]

Re : recherche d'une chaine de caractère dans une feuille

Bonjour benoa

Tu n'étais pas loin du but 😀

Sub test()
Dim cellule As Range, MaChaine As String
Dim col As Long, lig As Long
MaChaine = "blabla"
Set cellule = Sheets("feuil2").Cells.Find(What:=MaChaine, After:=Cells(1, 1), MatchCase:=False)
If Not cellule Is Nothing Then 'au cas ou "blabla" soit abscent
   col = cellule.Column
   lig = cellule.Row
End If
End Sub

Cordialement

 

[benoa]

Re : recherche d'une chaine de caractère dans une feuille

Est ce qu'il est nécessaire de préciser la cas où la chaîne n’apparaît pas ?

 

[Efgé]

Re : recherche d'une chaine de caractère dans une feuille

Re
Ce n'est obligatoire que si tu veux éviter un plantage 😀
Cordialement

 

[benoa]

Re : recherche d'une chaine de caractère dans une feuille

Merci pour ton aide 😀