Detecter un mot dans une colonne

bonjour

j'aimerai savoir comment faire pour détecter un mot ou nombre dans la colonne C et si le mot et trouver coller la ceulle A1 dans la colonne D en face du mot trouver

merci

bonne journée

Bonjour Jonat, bonjour le forum,

Deux propositions :

Sub Macro1()
'si le mot est fixe, en dur
Dim O As Worksheet
Dim MAT As String
Dim R As Range

Set O = Worksheets("Feuil1") 'à adapter
COL = 3
MAT = "TOTO" 'à adapter
Set R = O.Columns(3).Find(MAT, , xlValues, xlWhole)
If Not R Is Nothing Then O.Range("A1").Copy O.Cells(R.Row, "D")
End Sub

Sub Macro2()
'si le mot se trouve dans une cellule (B1 par exemple)
Dim O As Worksheet
Dim R As Range

Set O = Worksheets("Feuil1") 'à adapter
COL = 3
Set R = O.Columns(3).Find(O.Range("B1").Value, , xlValues, xlWhole)
If Not R Is Nothing Then O.Range("A1").Copy O.Cells(R.Row, "D")
End Sub

bonjour ThauThème,

c'est exactement ce que je voulais merci beaucoup pour ce code et de ta rapidité

bonne journée a toi !!