E
escaxavinf
Guest
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
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