explication de VBA

[Florent]

Bonjour,

Bonne Saint-Valentin aux n'amoureux !

Un pote vient de me filer un code pour faire apparaître un calendrier lorsque je click dans une cellule de la feuille excel. Le code est le suivant :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Sel As Range
Set Sel = Range("D8")
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
Cancel = True
Calendrier3.Show
End If
End Sub

Est ce que quelqu'un peut m'expliquer les codes, je suis novice en VBA et je ne maîtrises pas tout. Merci bien...

 

[Robert]

Salut Florent, salut le forum,

La macro s'exécute automatiquement à chaque changement de sélection (chaque fois que tu vas déplacer la cellule active)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Déclare la variable Sel comme une plage
Dim Sel As Range

Définit la variable Sel comme étant la plage D8
Set Sel = Range("D8")

Condition : Si l'intersection entre D8 et la cellule active n'est pas vide (en clair, ça ne marche que en D8)
If Not Application.Intersect(Sel, Range(Target.Address)) Is Nothing Then
(ce code revient au même :If Not Application.Intersect(Sel,Target) Is Nothing Then)


(inutile dans ce cas, tu peux supprimer cette ligne)
Cancel = True

affiche le calendrier
Calendrier3.Show

Fin de la condition
End If

À plus,

Robert

 

[Florent]

Merci Rober pour ton explication...

Je me demandais également s'il était possible de faire apparaitre ce même calendrier quand on click dans plusieurs cellules...

Par exemple, la cellule ("B2"), la cellule ("D20"), et les cellules (A1:A9)

Merci en tout cas pour la rapidité de ta réponse et sa pertinence.

Bonne journée.

 

[Robert]

Re Florent, salut le forum,

Oui si tu définis ta plage:

Set Sel = Application.Union(Range("A1:A9"), Range("B2"), Range("D8"), Range("D20"))

Ici les plages A1:A9, B2, D8 et D20 fonctionnent.

À plus,

Robert

 

[florent]

Merci encore pour ta réponse ' Robert' et bonne journée.

Florent