Bonjour,
J'ai ce code pour un feuillet :
Private Sub Worksheet_Calculate() 'au recalcul dans l'onglet
ThisWorkbook.Activate
Select Case Range("A1").Value
Case Is = "cochon"
ThisWorkbook.Sheets("Formulaire_cochon").Select
Case Is = "poule"
ThisWorkbook.Sheets("Formulaire_poule").Select
End Select
End Sub
Au lieu que les 2 "select" portent sur les feuillets mentionnés, je voudrais préciser une cellule (par exemple la cellule A10 de chaque feuillet).
Le but est donc que selon la valeur indiquée dans la case A1, l'utilisateur soit automatiqement redirigé vers la case indiquée dans le code.
J'ai essayé de bidouiller avec ce que j'ai trouvé dans les forums (Range ou Cells etc...) mais ça ne fonctionne pas.
Quelqu'un sait-il comment compléter ce code?