Calendrier dans cellule

Bonjour,

Ayant eu quelques soucis avec "Datepicker" sur certains poste de mon entreprise, je me suis mis en quête d'un autre calendrier intégré aux cellules de A1 : A1000.

Interrogation ??? Est ce que tous les userform calendrier ont besoin de datepicker pour fonctionner sur les postes ?

De plus, j'ai maintenant quelques bug d'alignements et surtout de dates erronées ! (Voir explications et exemple sur fichier)

Comment puis je procéder pour que ça ne propose pas le calendrier sur une cellule déjà renseignées s'il vous plait ?

Merci par avance.

Bien à vous

Bonjour,

Ligne à rectifier :

ActiveCell.Value = Calendar1.Value

NB- La fonction Format convertit en texte...

La valeur à affecter doit être la valeur de Calendar1, qui est une valeur date.

Le format sous lequel elle apparaîtra se règle au niveau du format de cellule...

Bonjour,

Les Monthview, DT¨Picker et autres Calendar ne sont pas indispensable.

En pièce jointe un autre type de calendrier qui ne nécessite aucun "truc" particulier...

Ce n'est qu'un exemple (à améliorer en fonction des besoins de l'utilisateur) parmi beaucoup d'autres...

Pour la 2° question mettre :

If IsEmpty(Target) Then UserForm1.Show

[Edit] Bonjour Ferrand !

A+

Merci pour la correction des bug, une bonne chose de faite, c'est super sympa.

Pour la fonctionnalité uniquement sur cases vides, je viens de trouver :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  If Target = "" Then
    If Not Application.Intersect(Target, Range("A1:A1000")) Is Nothing Then

    UserForm1.Show

  End If
    End If

End Sub

Je gratte pour le dtpicker

MERCI.... @ toute....

Oups,

Merci Galopin, croisement de message je n'avais pas vu.

Je regarde ça de suite........... une lumière nait grace à toi

A tout de suite

Merci beaucoup

Galopin!

Merci Galpopin01 t'es super, je te remercie sincèrement et te souhaite une bonne journée............

Idem bien sur à MFerrand....................

Mais également à toute cette formidable communauté de geek

BRAVO