test avec find(...) comme condition

[escaxavinf]

Bonjour,
comment faire un test sur la fonction find?

Rows("2:2").Select
Cells.Find(What:="P", After:=ActiveCell).Select
Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "temps"

en gros :

si Cells.Find(What:="P", After:=ActiveCell).Select = vrais
alors Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "temps"
si non Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "P"
Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "temps"
fin si

merci

 

[fodjio]

Salut escaxavinf ! (pas facile à dire comme pseudo)

essaie ça :


If Cells.Find(What:="P", After:=ActiveCell) <>Nothing then
Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "temps"
Else Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "P"
Selection.EntireColumn.Insert
ActiveCell.FormulaR1C1 = "temps"
End If