Rajout d'une condition en VBA

[criscris11]

Re bonsoir à tous,
J'utilise ce code événementiel pour passer sur un autre onglet si "OR" en G20 :

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")
    If Sheets("RELEVE ANNUEL OU PARTIEL").Range("G20").Value = "OR" Then Application.GoTo Sheets("BONIFICATIONS").Range("A3")
End If
Cancel = False
End Sub

Je voudrais modifier le code pour dire si G20="OR" ou si Q29="MEDAILLE MILITAIRE" : quelle est la syntaxe exacte ?

Merci et bonne soirée.

 

[Ratatouil]

Re : Rajout d'une condition en VBA

Bonjour,
J'espère que ceci pourra t'aider


If Range("G20") = "OR" Or Range("Q29") = "Médaille.." Then
............
End If
End Sub

 

[criscris11]

Re : Rajout d'une condition en VBA

Re,
Merci Ratatouil mais cela ne fonctionne pas.
Merci quand même et bonne soirée.

 

[Compte Supprimé 979]

Re : Rajout d'une condition en VBA

Salut tout le monde,

Criscris11,
Ce que ta donné Ratatouil doit fonctionner, mais il faut mettre le code correctement 😉

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")
    If Sheets("RELEVE ANNUEL OU PARTIEL").Range("G20").Value = "OR" Or _
      Sheets("RELEVE ANNUEL OU PARTIEL").Range("Q29").Value = "MEDAILLE MILITAIRE" Then
      Application.GoTo Sheets("BONIFICATIONS").Range("A3")
    End If
End If
Cancel = False
End Sub

A+

 

[criscris11]

Re : Rajout d'une condition en VBA

Re,
Merci Bruno pour ta correction : je teste et reviens te dire.
Pour info, ce post est en relation avec mon post de toute à l'heure.
A tout de suite.

 

[criscris11]

Re : Rajout d'une condition en VBA

Re,
Ok cà fonctionne à merveille, encore merci à tous les deux.
Bonne soirée ou bonne nuit en tant cas je vais m'endormir moins bête encore une fois 😉.