Calendrier dans Useform

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #2

Bonjour le fil, le forum

@Roseline [Bienvenue sur le forum]

Est-ce que vous pourriez m'aider svp.

Cliquez pour agrandir...

T'aider comme cela, ex nihilo, à brûle pourpoint, sans le concours d'un fichier Excel que tu aurais concocté en guise d'exemple, risque d'être pas forcément évident.

Par contre, le ciel pourrait s'éclaircir si tu cliquais sur le bouton Téléverser un fichier pour joindre ton fichier anonymisé avec ton userform.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #3

Re

@Roseline
Si j'ai bien compris ta problématique, remplaces le code existant de la feuille AQ par celui-ci

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect([M6:M26], Target) Is Nothing Then
If Target.Count > 1 Then Exit Sub
UserForm1.Top = ActiveCell.Top + 100
UserForm1.Left = ActiveCell.Offset(0, 1).Left + 25
UserForm1.Show
End If
End Sub

PS: Mes amitiés au Gouvernement du Canada😉

 

Dernière édition: 20 Janvier 2018

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Janvier 2018

• #4

Bonjour,

autre idée...

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.NumberFormat Like "*[d,m,y]*[d,m,y]*" Then
        UserForm1.Top = ActiveCell.Top + 100
        UserForm1.Left = ActiveCell.Offset(0, 1).Left + 25
        UserForm1.Show
    End If
End Sub

Si le format de cellule a au moins 2 éléments d'un format date, l'UF s'affiche.
Tout se fait donc sur la feuille sans retoucher la macro, par contre il faut peut-être ajouter des zones d'exclusions comme C3, ou des colonnes avec format date (tu en as beaucoup) qui ne seraient pas concernées. A toi de voir pour les finitions
eric

 

Dernière édition: 20 Janvier 2018

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #5

Bonsoir eriiiiic

Pour info:
Si la cellule a un format Heure , l'userform s'affiche aussi.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 20 Janvier 2018

• #6

Exact. On pourrait imposer la présence d'un séparateur de date :
Like "*[d,m,y]*[/,.,-]*[d,m,y]*"
ou interdire le ":"
Like "*[d,m,y]*[!:]*[d,m,y]*"
Il reste aussi les cas date-heure, laisser passer ou pas ? C'est selon...
Je pense qu'il faut se limiter aux cas des formats réellement utilisés sur la feuille et ne pas chercher l'universalité.
eric

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #7

Re,

@Eriiiiic
Pourquoi ne pas simplement passer par:
If Not Intersect([M6:M26], Target) Is Nothing Then
En ajoutant des plages de cellules si besoin ?

Ceci dit, jamais lu de Like de ce genre, mais je les Like 😉

 

Vote positif 0 Vote négatif

Roseline

XLDnaute Occasionnel

• 20 Janvier 2018

• #8

Bonjour,
Merci beaucoup, tout fonctionne à merveille.
Bonne journée

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #9

Re

@Roseline
Tu as retenue quelle syntaxe?
Celle d'Eriiiiic ou la mienne?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 20 Janvier 2018

• #10

Bonsoir job75

Ce n'est pas ma macro, elle était déjà dans le fichier joint par Roseline
Je n'ai ajouté que ces deux lignes
If Not Intersect([M6:M26], Target) Is Nothing Then
If Target.Count > 1 Then Exit Sub

Je voulais juste savoir avant d'aller me coucher à qui s'adressait le dernier message de Roseline 😉

EDITION: job75
Tu viens de supprimer ton message.
Du coup le mien est moins compréhensible de par le fait 😉

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 21 Janvier 2018

• #11

Pourquoi ne pas simplement passer par:
If Not Intersect([M6:M26], Target) Is Nothing Then
En ajoutant des plages de cellules si besoin ?

Cliquez pour agrandir...

Trop classique, j'ai voulu innover 🙂

Et puis ça fait une macro unique sans avoir besoin de recenser les plages à traiter.
Pas un grand plus sur une feuille statique et simple...
Mais une qui évolue, il suffit de mettre un format date sur une cellule et on a le sélecteur de date sans toucher au code.
Ou bien plusieurs feuilles, on peut mettre dans ThisWorkbook sans aller éplucher toutes les feuilles pour savoir quelles plages traiter pour chaque. N'importe quelle date mise n'importe où, à n'importe quel moment, aura le sélecteur d'office.
Si, si, il peut y avoir un intérêt je pense ;-)
Bon, il faut peut-être fignoler un peu plus le choix des formats déclencheurs, je n'ai pas voulu faire un truc à rallonge qui effraie...

 

Vote positif 0 Vote négatif

Roseline

XLDnaute Occasionnel

• 21 Janvier 2018

• #12

Staple1600 à dit:

Re

@Roseline
Tu as retenue quelle syntaxe?
Celle d'Eriiiiic ou la mienne?

Cliquez pour agrandir...

La tienne c'est certain....elle fonctionne trop bien....merci encore

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 21 Janvier 2018

• #13

Bonjour le fil, le forum

Eriiiiic
T'as bien eu raison d'innover.
Je suis friand des codes VBA qui sortent des chemins battus 😉

Suite à ton code, j'ai voulu voir de ce côté
Donc j'ai testé ceci
A1 est au format Date
en B1 on a =CELLULE("format";A1)
Et dans le code de la feuille

VB:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x
x = Evaluate("=CELL(""format""," & Target & ")")
MsgBox x
End Sub

Si tu sélectionnes B1, le MsgBox s'affiche, sinon...
Tu peux m'expliquer le pourquoi de la chose, stp?

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 21 Janvier 2018

• #14

Bonjour Stapple,

Surprenant au début, mais avec Target.Address après c'est mieux ;-)

Je vois où tu veux en venir mais je me demande si la doc de Cellule() est correcte.
Les formats heure => Dx
Sans compter les éventuels formats personnalisés qu'il faudrait de toute façon analyser.
eric

 

Vote positif 0 Vote négatif