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

Cobra

XLDnaute Nouveau
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

XLDnaute Barbatruc
Bonjour Cobra,

si F1 est sur la feuille "litrage" :

VB:
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 :

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

soan
 

Discussions similaires

Réponses
1
Affichages
299
Réponses
1
Affichages
443

Statistiques des forums

Discussions
294 412
Messages
1 938 343
Membres
188 785
dernier inscrit
michelle40000