XL 2013 Calendrier VBA

blade39

XLDnaute Nouveau
Bonjour à tous !
Etant nouveau ici je vous sollicite tous afin d'obtenir un aide précieuse.
Je souhaiterais obtenir un calendrier flottant sous format VBA, bien sur j'ai réussi a trouver des exemples ici même mon seul souci et que je n'arrive pas a changer la colonne ou appliquer ce calendrier..
J'arrive a l'appliquer sur les cellules A2:A999, C2:C999, R2:R999 ect... mais pour les colonnes comportant deux lettres (mon tableau étant grand) c'est a dire après Z soit AB2:AB999 ou CD2:CD999 ect je n'y parviens pas.
Ci joint le calendirer flottant, ouvrir VBA et vous allez comprendre le soucis auquel je suis confronté.
Espérant trouver une réponse à mes attentes
Merci à vous !
 

Fichiers joints

youky(BJ)

XLDnaute Barbatruc
Bonjour,
Faire un click bouton droit de souris en bas sur "Feuil1" (le nom de l'onglet)
et visualiser le code . . . .
C'est sur cette ligne qu'il faut corriger >cela peux être seulement "A2:IV65000"
If Not Intersect(Target, Range("C2:C999,D2:D999,E2:E999,I2:I999,L2:L999,N2:N999,R2:R999,AB2:AB999")) Is Nothing Then

Bruno
 

blade39

XLDnaute Nouveau
Bonjour,
Je ne souhaite pas l'appliquer à toute la feuille mais seulement sur les champs A2:A999, C2:C999 ainsi que sur AB2:AB999, CD2:CD999
N'etant pas expert en VBA je ne comprends pas pourquoi vous dites que cela peux etre seulement "A2:IV65000" ?
Est-ce que vous avez la possiblilté de modifier cette ligne de code pour que cela colle parfaitement avec ma demande..?
Merci d'avance à toute personne pouvant m'apporter son aide preciseuse.

Blade
 

youky(BJ)

XLDnaute Barbatruc
hello,
If Not Intersect(Target, Range("A2:A999,C2:C999,AB2:AB999,CD2:CD999")) Is Nothing Then
modifier aussi (en vba Affichage fenêtre des propriétés si pas affichée)
La propriété de l'userform doit à StartUpPosition=2-CenterScreen
Bruno
 

Discussions similaires


Haut Bas