Je viens vers vous car je souhaiterais savoir s'il existe une macro qui ajoute à chaque cellules de catégorie date (01/01/2016) une sélection de date de départ automatique.
Désolé mais je n'ai rien compris !... C'est quoi une cellule de catégorie date ? C'est quoi une "sélection" de date de départ automatique ? Peut-être jeter un œil dans l'onglet Accueil du coté de Remplissage / Série...
Arf ! Là c'est beaucoup plus clair !... Mais je ne dispose pas des contrôles "calendrier" sur mon PC et ne pourrai donc t'être d'aucune utilité sur ce coup. Sache quand même que ça risque de planter si le fichier est utilisé par un utilisateur qui, comme moi, ne dispose pas de ces contrôles sur son PC.
Il existe d'autres solutions proposées par des membres de ce forum mais je ne me souviens plus par qui. Fait une recherche avec le mot clé "calendrier". Sinon d'un éminent ancien membre, que je salue au passage, ici.
Essayez voir en ajoutant le mot clé PtrSafe entre Déclare et Function dans les deux instructions au début de l'UFmCalend.
Chez moi ça n'empêche pas le fonctionnement mais ça ne sert plus à rien.
Bonjour.
Il ne peut y avoir qu'une seule procédure portant un certain nom dans un module.
Mettez les instructions qu'il faut à la fin du code de celle existante, par exemple.
Remarque: cette version aurait de fortes chances de ne réagir qu'aux cellules, même vides, pré-équipées d'un format de date comportant l'année :
VB:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Target(1, 1)
If Target.NumberFormat Like "*y*" Then
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie("", Target.Value, Date)
End If
End Sub
Je reviens vers vous car j'aimerais savoir comment exclure une cellule de l'affichage automatique du calendrier.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Target = Target(1, 1)
If Target.NumberFormat Like "*y*" Then
UFmCalend.Posit Target, 0, 1
Target.Value = UFmCalend.Saisie("", Target.Value, Date)
End If
End Sub