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

benoa

XLDnaute Junior
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é

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

Bonjour benoa

Tu n'étais pas loin du but :D
VB:
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
 
Dernière édition:

Discussions similaires

Statistiques des forums

Discussions
312 435
Messages
2 088 396
Membres
103 838
dernier inscrit
noureddine