Renvoi vers une feuille après saisie

Bonjour,

Comment peut t'on renvoyer le curseur sur un autre feuille si l'on saisie un X dans une cellule.

Ex: 1ere feuille = VK

2ème feuille =1

en ccéllule N3 on saisie X et l'on se retrouve à la feuille VK tout en laissant le X dans la céllule N3

Merci à vous.

Bonsoir

A voir

Merci pour votre réponse,

le code fonctionne dans votre exemple mais je n'arrive pas a le modifier pour mon classeur.

Etant novice dans les macros, j'ai inserer le code sur la feuille VK (clic droit puis copier/coller le code), j'ai essayer de modifier quelques valeurs mais le renvoi ne fonctionne pas depuis les autres feuilles.

Avec plus de détails , mon classeur comporte:

1ere Feuille = Feuille nommée "VK"

et ensuite j 'ai 31 Feuilles nommées "1" à "31"

Je voudrai après la saisie d'un X dans la plage de cellule N3:N39 de chaque feuille (de 1à 31) être renvoyé vers la 1ere feuille qui est "VK" en A1.

Très bonne idée pour le double clic a la place du X, si l'on peux l'inserer également ce serait top.

Merci encore une fois pour vos réponses.

Bonjour

A voir

Bonjour,

Le code fonctionne sauf qu'il y a un message d'erreur quand je modifie une autre cellule n'importe ou

(exemple pour dupliquer en étirant une cellule avec le curseur de la croix).

la ligne suivante se met en jaune : If Target.Column = 14 And UCase(Target) = "X" Then

Je remet le code ci-dessous:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Sh.Name <> "Vk" Then

If Target.Column = 14 Then

Cancel = True

Target = "X"

End If

End If

End Sub

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

If Sh.Name <> "Vk" Then

If Target.Column = 14 And UCase(Target) = "X" Then

Application.Goto Sheets("Vk").Range("A1"), scroll:=True

End If

End If

End Sub

Merci pour vos réponse

Bonjour,

Petite condition à ajouter :

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
  If Sh.Name <> "Vk" Then
   If Target.Count = 1 Then
    If Target.Column = 14 And UCase(Target) = "X" Then
      Application.Goto Sheets("Vk").Range("A1"), scroll:=True
    End If
   End If
  End If
End Sub

Bonjour,

Le code fonctionne et ne me donne plus cette erreur,

Par contre lorsque j'active la protection de la feuille "VK" lors de la saisie du X dans la conne N provoque un

message d'erreur = erreur 1004 la méthode 'goto' de l'objet '_application'à échoué

et en mode débogage la ligne

Application.Goto Sheets("VK").Range5"A1",Scroll:=True

est surligné en jaune

merci pour vos réponses

Bonjour

Vérifies si tu n'as pas coché que "Sélectionner les cellules déverrouillées"

Il faut aussi "Sélectionner les cellules verrouillées"

Ou alors ta cellule A1 ne doit pas être verrouillée

A tester

merci pour votre réponse rapide

effectivement il fallait dévérouiller la cellule A1!