Autres réunir les 2 macros

un internaute · 12 Novembre 2023

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

VB:

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

Code:

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 · 12 Novembre 2023

un internaute à dit:
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 ?

VB:

 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 :

VB:

 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 ?

un internaute à dit:
ça copie aussi dans cellule AE1 de la feuille PLANNING ANNUEL

sylvanu · 12 Novembre 2023

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

VB:

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 · 12 Novembre 2023

sylvanu à dit:
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 · 12 Novembre 2023

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

VB:

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

Autres réunir les 2 macros

un internaute

XLDnaute Impliqué

fanch55

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

fanch55

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

Discussions similaires