Controle calendrier

A

abc

XLDnaute Impliqué

• 14 Octobre 2008

• #2

Re : Controle calendrier

Bonjour,
un exemple a adapter.
Modifie le code VBA .
A+

 

Pièces jointes

• DATES.xls

  32.5 KB · Affichages: 101
• DATES.xls

  32.5 KB · Affichages: 102
• DATES.xls

  32.5 KB · Affichages: 93

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 14 Octobre 2008

• #3

Re : Controle calendrier

bonjour Weider

vois si cela te convient

 

Pièces jointes

• Feuille de demande de personnel.zip

  19.8 KB · Affichages: 99
• Feuille de demande de personnel.zip

  19.8 KB · Affichages: 100
• Feuille de demande de personnel.zip

  19.8 KB · Affichages: 100

Vote positif 0 Vote négatif

W

WEIDER

XLDnaute Impliqué

• 14 Octobre 2008

• #4

Re : Controle calendrier

Merci ABC pour ta proposition, quand à celle de PierreJean, je l'adopte !
C'est exactement ce que je voulais (apparition du calendrier en 1 clic) !

Merci bien à tous les deux.

Amicalement

Weider.

 

Vote positif 0 Vote négatif

C

clcl

XLDnaute Nouveau

• 19 Octobre 2008

• #5

Re : Controle calendrier

Bonjour,

C'est vraiment ce que j'avais besoin, par contre je rencontre un problème lorsque je crée ce calendrier dans mon tableau de projet. Il se trouve que je place ce calendrier à la cellule S. Étant donné que cette cellule ce trouve trop éloigné dans mon tableau, il me fait apparaître le calendrier nulle part et sa bogue.

Merci,

 

Vote positif 0 Vote négatif

KEUDJ

XLDnaute Junior

• 27 Octobre 2008

• #6

Re : Controle calendrier

Bonjour Le Forum,

ce petit calendrier est top,
mais quelle modification au code pour permettre l`utilisation sur plusieurs colonne?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set isec = Application.Intersect(Target, Range("M8:M200"))
Set isec = Application.Intersect(Target, Range("N8:N200"))
Set isec = Application.Intersect(Target, Range("P8:P200"))
Set isec = Application.Intersect(Target, Range("Q8:Q200"))
If Target.Count > 1 Then Exit Sub
If Not isec Is Nothing Then
  UserForm1.Show
End If
End Sub

apres cette modif uniquement la derniere colonne fonctionne.

merci d`avance

@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Octobre 2008

• #7

Re : Controle calendrier

Bonjour à tous,

KEUDJ, modifies peut être le code comme suit, enfin si j'ai bien compris...

Code:

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim isec As Range
If Target.Count > 1 Then Exit Sub
Set isec = Application.Intersect(Target, Range("M8:M200,N8:N200,P8:P200,Q8:Q200"))
If Not isec Is Nothing Then
  UserForm1.Show
End If
End Sub

En l'état tu valorises ta variable "isec" 4 fois, ce qui a pour effet de la réinitialiser, donc de remplacer la dernière valorisation.

bonne journée
@+

 

Vote positif 0 Vote négatif

KEUDJ

XLDnaute Junior

• 28 Octobre 2008

• #8

Re : Controle calendrier

Hello le Forum,

Nickel Pierrot93, ca marche
merci

@+

 

Vote positif 0 Vote négatif