XL 2013 modification de la suite d'une macro selon la valeur d'une cellule

[Cobra]

Bonjour à tous,
j'ai fait différent essaie mais je ne trouve pas :-( la seule solution que je n'ai trouvé c'est avec une MsgBox
je voudrais supprimer l' MsgBox (yes - no) qui détermine la suite de la macro
En résumer si la cellule G1 est supérieur à la cellule F1 = Then

voici le code de mon msgBox
Dim answer As Integer
answer = MsgBox(" " & Sheets("litrage").Range("G1") & vbLf & "Est-ce la fin de mois", vbQuestion + vbYesNo + vbDefaultButton2, "Vérification données")
If answer = vbYes Then
Range("G2").Copy
etc.

Else
choix = UCase(Format(Range("V2"), "mmmm"))
etc.

en vous remerciant d'avance pour votre aide.

 

[soan]

Bonjour Cobra,

si F1 est sur la feuille "litrage" :

Sub Essai()
  If [litrage!G1] > [litrage!F1] Then
    [G2].Copy
    'etc...
  Else
    choix = UCase$(Format([V2], "mmmm"))
    'etc...
  End If
End Sub

---

si F1 est sur la feuille active :

Sub Essai()
  If [litrage!G1] > [F1] Then
    [G2].Copy
    'etc...
  Else
    choix = UCase$(Format([V2], "mmmm"))
    'etc...
  End If
End Sub

soan

 

[soan]

@Cobra

si la feuille active est "litrage", tu peux mettre :

Sub Essai()
  If [G1] > [F1] Then
    [G2].Copy
    'etc...
  Else
    choix = UCase$(Format([V2], "mmmm"))
    'etc...
  End If
End Sub

soan

 

[Cobra]

Bonjour Soan,

Merci pour rapide ta réponse,

Génial cela fonctionne très bien j'allais chercher beaucoup plus loin .... pour rien

encore merci bonne fin de journée.