CALENDRIER DANS COLONNE resolus par ROLAND M

jmcr

XLDnaute Occasionnel
bonsoir le forum
voila ma demande j ai dans une feuille j ai un calendrier qui s'affiche dans quelque cellule B16,B26,B27, mais voila je voudrais changé j aurais voulus le faire apparaître dans toute la colonne I2 à I 100 dans une autre feuille
voila le code de ma feuille
pouvez vous me renseigner comment changer cela svp
amitié
JMCR


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim UnJour As Date
If Target.Count = 1 And Not Intersect(Target, Range("B16,B26,B27")) Is Nothing Then
UnJour = FormCal.Calendrier
If UnJour <> 0 Then
Target = Format(UnJour, "mm/dd/yyyy")
Target.Offset(0, -1).Select
Else
Target = ""
Target.Offset(0, -1).Select
End If
End If
End Sub
 

Roland_M

XLDnaute Barbatruc
bonsoir,

si j'ai bien compris:

If Target.Count = 1 And Not Intersect(Target, Range("I2:I100")) Is Nothing Then
 

jmcr

XLDnaute Occasionnel
merci beaucoup chapeau bas toujours la dans les bug et les mauvais coup merci beaucoup Roland pour ton aide
 

jmcr

XLDnaute Occasionnel
tout est pour le mieux cela fonctionne encore un grand merci
une toute dernière si je peux demandé encore une chose je recherche comment protéger efficacement mon dossier contre tout effacement ou bêtise du genre car cela fait bientôt deux mois que je travaille pour mon père GARDIAN sur sont projets car lui a plus la force de le faire (cause maladie )
AVEC TOUT MA GRATITUDE
 
Dernière édition:

Roland_M

XLDnaute Barbatruc
bonsoir,

exemple avec excel 2007, dans le ruban sélectionner l'onglet "Révision"
puis "Protéger la feuille" et cocher comme indiqué sur l'image !

dans le code vb, afin de pouvoir modifier les cellules de cette feuille,
avant il faudra déprotéger, effectuer les opérations que tu veux faire, puis protéger.

'pour déprotéger
ActiveSheet.Unprotect ("tonmotdepasse")
'suite de ton code ...
'pour protéger
ActiveSheet.Protect Password:="tonmotdepasse", DrawingObjects:=True, Contents:=True, Scenarios:=True

tu peux ne pas mettre de mot de passe, dans cas tu tapes simplement "enter"
et dans le code simplement:
ActiveSheet.Unprotect
'suite ton code ...
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

i1.jpg
 

jmcr

XLDnaute Occasionnel
bonjour le forum ROLAND M
un grand merci tout est aux poils je vais pouvoir tenir ma promesse de fini son dossier qui voulais tant
encore merci du fond du cœur de ton aide précieuse
amitié
JMCR
 

Haut Bas