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

Cobra · 29 Mai 2021

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 · 29 Mai 2021

@Cobra

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

VB:

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

soan

soan · 29 Mai 2021

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

soan · 29 Mai 2021

@Cobra

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

VB:

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

soan

Cobra · 29 Mai 2021

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.

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

Cobra

XLDnaute Nouveau

soan

soan

XLDnaute Barbatruc

soan

XLDnaute Barbatruc

Cobra

XLDnaute Nouveau

Discussions similaires