Discussion :

[mjlaurent]

]bonjour
je veux établir un programme qui fais la recherche du mot import sur un plage de cellule A2:AZ100,
si il trouve le résultat il doit ecrire d*$

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub find()
Dim x As Range
 
 
Set x = [A1:AZ200].find(What:=TcVide, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByColumns).Address
 If Not x Is Nothing Then
  Range("AF1").Select
           ActiveCell.FormulaR1C1 = "oui"
 
           else 
  Range("AF1").Select
           ActiveCell.FormulaR1C1 = "non"
end if 
End Sub

[gFZT82]

Bonjour,

Tu peux tester ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Chercher()
Dim TcVide As String
Dim x As Range
    TcVide = "import"
    Set x = [A1:AZ200].find(What:=TcVide, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
    If Not x Is Nothing Then
        Range("AF1") = "oui"
    Else
        Range("AF1") = "non"
    End If
End Sub

Cordialement.

[mjlaurent]

je vous remercie pleinement M gFZT82 mon programme marche tres bien