Je vous demande de l'aide car je ne connais rien à VBA.
J'ai lu dans ce forum qu'il est possible d'activer une macro suite à la modification d'une donnée d'une cellule. Le problème c'est qu'en faisant les modifs je n'y arrive pas. J'ai lu qu'il fallait mettre le code a un endroit précis mais je ne comprends pas ou il faut le mettre.
J'ai ajouté dans la feuille commentaire un test pour avoir le numero des couleur et la couleur correspondante mais a une certaine valeur il s'arrête pourtant il ne me semble pas que j'ai toutes les couleurs.
J'ai fait une liste déroulante avec les années. Est il possible de faire un code VBA pour remplir cette liste déroulante avec une boucle pour incrémenter l'année jusqu'a une borne.
Re : lancer une macro + Tests Couleurs + Liste Déroulante
Salut Mec94,
J'ai lu dans ce forum qu'il est possible d'activer une macro suite à la modification d'une donnée d'une cellule. Le problème c'est qu'en faisant les modifs je n'y arrive pas. J'ai lu qu'il fallait mettre le code a un endroit précis mais je ne comprends pas ou il faut le mettre.
Le code peut être mis soit dans la feuille ou la saisie se fait, grace à :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
End Sub
ou dans ThisWorkbook grace à :
Code:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
J'ai ajouté dans la feuille commentaire un test pour avoir le numero des couleur et la couleur correspondante mais a une certaine valeur il s'arrête pourtant il ne me semble pas que j'ai toutes les couleurs.
J'ai fait une liste déroulante avec les années. Est il possible de faire un code VBA pour remplir cette liste déroulante avec une boucle pour incrémenter l'année jusqu'a une borne.
Tu peux nommer une zone dans laquelle tu mets toutes les années que tu souhaites avoir, et dans donnée validation, tu fait référence à ce nom : =MaListe
Re : lancer une macro + Tests Couleurs + Liste Déroulante
Voilà j'ai essayé ce code pour activer ma macro calendrier :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$AP$1" Then
Calendrier
End If
If Target.Address = "$AP$2" Then
Calendrier
End If
End Sub
Cette partie de code ainsi que ma macro se trouve dans la feuil1. Mais quand je change la valeur de AP1 ou AP2 rien ne se passe.