Autres réunir les 2 macros

[un internaute]

Bonjour le forum
j'ai ces 2 macros l'une dans feuille PLANNING HEBDOMADAIRE

Sub Semaine_Suivante_Hebdomadaire()
  If MsgBox("Voulez-vous changer de semaine Hebdomadaire", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
Range("A3").Value = Range("A3").Value + 1
End If
End Sub

L'autre dans PLANNING ANNUEL

Sub Semaine_Suivante_Annuelle()
  If MsgBox("Voulez-vous changer de semaine Annuelle", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
Range("AE1").Value = Range("AE1").Value + 1
End If
End Sub

je voudrais réunir les 2 de façon que quand je click sur Semaine_Suivante_Hebdomadaire ça copie aussi dans cellule AE1 de la feuille PLANNING ANNUEL
Merci pour vos éventuels retour

 

[fanch55]

Bonjour le forum
j'ai ces 2 macros l'une dans feuille PLANNING HEBDOMADAIRE
...
je voudrais réunir les 2 de façon que quand je click sur Semaine_Suivante_Hebdomadaire ça copie aussi dans cellule AE1 de la feuille PLANNING ANNUEL

Bonjour, pourquoi ne pas appeler la sub Semaine_Suivante_Annuelle dans Semaine_Suivante_Hebdomadaire ?

 Sub Semaine_Suivante_Hebdomadaire()
     If MsgBox("Voulez-vous changer de semaine Hebdomadaire", vbQuestion + vbOKCancel, "Annuler") = vbOk  Then
       Range("A3").Value = Range("A3").Value + 1
       Semaine_Suivante_Annuelle
     End If
End Sub

ou si vous ne voulez pas passer par la question :

 Sub Semaine_Suivante_Hebdomadaire()
     If MsgBox("Voulez-vous changer de semaine Hebdomadaire et Annuelle", vbQuestion + vbOKCancel, "Annuler") = vbOk  Then
       Range("A3").Value = Range("A3").Value + 1
      Range("AE1").Value = Range("AE1").Value + 1
     End If
End Sub

Nota: vous parlez de copie mais c'est plutôt une incrémentation ?

ça copie aussi dans cellule AE1 de la feuille PLANNING ANNUEL

 

[sylvanu]

Bonjour UnInternaute, Fanch,
Si j'ai bien compris les deux actions s'effectuent dans deux feuilles différentes, donc vous pourriez faire :

Sub Semaine_Suivante()
    If MsgBox("Voulez-vous changer de semaine ?", vbQuestion + vbOKCancel, "Annuler") = vbOK Then
        Sheets("PLANNING HEBDOMADAIRE").[A3] = Sheets("PLANNING HEBDOMADAIRE").[A3] + 1
        Sheets("PLANNING ANNUEL").[AE1] = Sheets("PLANNING ANNUEL").[AE1] + 1
    End If
End Sub

 

[fanch55]

Bonjour UnInternaute, Fanch,
Si j'ai bien compris les deux actions s'effectuent dans deux feuilles différentes, donc vous pourriez faire :

Bien vu, je n'avais pas fait attention aux 2 feuilles différentes ..

 

[sylvanu]

Et si les deux questions doivent être posées :

Sub Semaine_Suivante()
Phrase = "Voulez-vous changer de semaine "
With Sheets("PLANNING HEBDOMADAIRE")
    If MsgBox(Phrase & "Hebdomadaire", vbQuestion + vbOKCancel, "Annuler") = vbOK Then .[A3] = .[A3] + 1
End With
With Sheets("PLANNING ANNUEL")
    If MsgBox(Phrase & "Annuelle", vbQuestion + vbOKCancel, "Annuler") = vbOK Then .[AE1] = .[AE1] + 1
End With
End Sub