Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour philippe,
Sub Macro1() On Error Resume Next Set plg = Range(Sheets("Feuil2").Cells.Find(What:=[ActiveCell]).Address) Application.Goto Reference:=Sheets("Feuil2").Range(plg.Address) Err.Clear If ActiveSheet.Name <> "Feuil2" Then MsgBox "valeur non trouvée" End Sub
Sub Macro1()
On Error Resume Next
Set plg = Range(Sheets("Feuil2").Cells.Find(What:=[ActiveCell]).Address)
Application.Goto Reference:=Sheets("Feuil2").Range(plg.Address)
Err.Clear
If ActiveSheet.Name <> "Feuil2" Then MsgBox "valeur non trouvée"
End Sub
Sub Macro1() On Error Resume Next Set plg = Range(Sheets("Feuil2").Cells.Find(What:=[ActiveCell]).Address) Application.Goto Reference:=Sheets("Feuil2").Range(plg.Address) Err.Clear If ActiveSheet.Name <> "Feuil2" Then MsgBox "valeur non trouvée" End Sub