Rajout d'une condition en VBA

criscris11 · 17 Juillet 2008

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

Code:

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 · 17 Juillet 2008

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 · 18 Juillet 2008

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 · 18 Juillet 2008

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 😉

Code:

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 · 18 Juillet 2008

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 · 18 Juillet 2008

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 😉.

Rajout d'une condition en VBA

criscris11

XLDnaute Accro

Ratatouil

Guest

criscris11

XLDnaute Accro

Compte Supprimé 979

Guest

criscris11

XLDnaute Accro

criscris11

XLDnaute Accro

Discussions similaires

Rajout d'une condition en VBA

criscris11

XLDnaute Accro

Ratatouil

Guest

criscris11

XLDnaute Accro

Compte Supprimé 979

Guest

criscris11

XLDnaute Accro

criscris11

XLDnaute Accro

Discussions similaires

Privacy & Transparency

Privacy & Transparency