macro

[chinel]

salut tout le monde !

je recherche une macro qui va créer un évènement

j'ai une feuille "planning" et je voudrais que tous les mardi une boîte s'ouvre et me demande s'il y a réunion ou pas et si je répond oui le mot réunion se met dans ma feuille en B42:J42 (car cellule fusionnée) ma date initiale se trouve en L1 (fonction aujourd'hui) c'est elle qui dira qu'on est mardi !

merci

 

[Guest]

Re : macro

Bonjour Chinel,


voici une macro qui se déclenche à l'ouverture du classeur. tu n'as plus qu'à remplacer "Feuil1" par le nom de la feuille ou se trouve la plage B42:J42

A mettre dans le module de code de ThisWorkBook

Private Sub Workbook_Open()
    Dim rep As Integer
    If Weekday(Date, vbMonday) = 2 Then
        rep = MsgBox("Avez-vous réunion aujourd'hui", vbQuestion + vbYesNo, "Réunion?")
        If rep = vbYes Then
            Sheets("[SIZE=3][COLOR=red]Feuil1[/COLOR][/SIZE]").Range("B42") = "Réunion"
        End If
    End If
End Sub

A+

 

[chinel]

Re : macro

merci mais je ne veux pas que se soit en auto open juste dans la feuille planning et si cela correspond a la date de la cellule L1 de la feuille planning


merci quand même !!!!!!!!!!!

 

[Guest]

Re : macro

Re Chinel,

Ce que tu veux dire c'est que la macro se déclenche lorsque tu change la date en L1 de la feuille Planning?

Si c'est ça:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "L1" Then
        If Not IsDate(Target.Value) Then Exit Sub
        'Si c'est un mardi
        If Weekday(Target.Value, vbMonday) = 2 Then
        Dim rep As Integer
        rep = MsgBox("Avez-vous réunion aujourd'hui", vbQuestion + vbYesNo, "Réunion?")
        If rep = vbYes Then
            Sheets("planning").Range("B42") = "Réunion"
        End If
        End If
    End If
End Sub

sinon je vois pas

A+

 

[chinel]

Re : macro

Merci je regarde !

 

[chinel]

Re : macro

salut la macro ne marche pas !

pourquoi ?

merci quand même !