Controle calendrier

Mapat à dit:

Bonjour

Merci te t'intéresser à mon petit problème
Oui tout fonctionne parfaitement mais je voudrais continuer à faire fonctionner le controle calendrier sur d'autres cellules
Ces cellules sont toutes les 30 lignes dans la colonne i
C'est à dire i1451, i1481 etc.
Dans ton fichier j'ai rajouté i1451 et ça ne fonctionne plus
Eh bien, bonne journée quand meme

Cliquez pour agrandir...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count > 1 Or Target.Column <> 9 Then Exit Sub
If Not Intersect(Target, Range("I8,I38,I69,I100,i130")) Is Nothing Or _
                                                     (Target.Row - 161) Mod 30 = 0 Then
    UserForm1.Show
End If
End Sub

Mapat à dit:

Bonjour Gorfael

J'ai regardé avec ta modif
J'ai toujours la meme erreur style
" Erreur d'exécution 1004"
"La méthode Range de l'objet Woorksheet à échoué"

J'ai essayé en écrivant "i8:i2500" et bien évidemment le calendrier s'affiche et fonctionne pour toutes les cellules de la colonne i jusqu'à 2500, mais cette façon ne me convient pas.
En effet, les cellules qui ne sont pas concernées dans la colonne i appellent le controle lorsqu'elles sont actives

Cliquez pour agrandir...