Aller sur une autre feuille si...

[criscris11]

Bonsoir à tous,
Actuellement j'utilise ce code événementiel afin d'accéder au formulaire qui me sert à imprimer. Est-il possible de rajouter un bout de code de sorte que si dans la feuille "RELEVE ANNUEL OU PARTIEL" en G20 il y a inscrit "Or" on aille directement à la feuille "BONIFICATIONS" en A7 ?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
If Not Intersect(Target, Range("D3:D150")) Is Nothing Then
    Sheets("RELEVE ANNUEL OU PARTIEL").Range("C14").Value = Target.Offset(0, -3).Value
    Application.GoTo Sheets("RELEVE ANNUEL OU PARTIEL").Range("A7")
End If
Cancel = False
End Sub

Merci d'avance et bonne soirée.

 

[skoobi]

Re : Aller sur une autre feuille si...

Bonsoir criscris11,
essaye ceci:

If Sheets("RELEVE ANNUEL OU PARTIEL").Range("G20").Value = "Or" Then Sheets("BONIFICATIONS").Activate: Range("A7").Select

 

[criscris11]

Re : Aller sur une autre feuille si...

Bonsoir skoobi, re le forum,
Je dois rajouter ta ligne après

If Not Intersect(Target, Range("D3:D150")) Is Nothing Then
    Sheets("RELEVE ANNUEL OU PARTIEL").Range("C14").Value = Target.Offset(0, -3).Value
    Application.GoTo Sheets("RELEVE ANNUEL OU PARTIEL").Range("A7")

Correct ?
Bonne soirée.

 

[skoobi]

Re : Aller sur une autre feuille si...

Re,
je t'ai répondu un peu vite:
en rouge à ajouter

If Not Intersect(Target, Range("D3:D150")) Is Nothing Then
    Sheets("RELEVE ANNUEL OU PARTIEL").Range("C14").Value = Target.Offset(0, -3).Value
    Application.GoTo Sheets("RELEVE ANNUEL OU PARTIEL").Range("A7")
[COLOR="Red"]If Sheets("RELEVE ANNUEL OU PARTIEL").Range("G20").Value = "Or" Then Application.GoTo Sheets("BONIFICATIONS").Range("A7")[/COLOR]

 

[criscris11]

Re : Aller sur une autre feuille si...

Re,
Merci skoobi, cela fonctionne comme je le voulais. Bonne soirée à toi et à tous.