Microsoft 365 Test si existe sur 3 Valeurs

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #2

Bonjour à tous,
Oh la la je suis vraiment nul, voilà après quelques heures de réflexion une solution:
Z2 = Application.IfError(Application.Match(TxtDateDebut, .Range.Columns(39), 0), 0) And _
Application.IfError(Application.Match(CbPoseur, .Range.Columns(2), 0), 0) And _
Application.IfError(Application.Match(TxtHeure, .Range.Columns(40), 0), 0)
If Z2 <> 0 Then MsgBox "ATTENTION" & " " & CbPoseur & " " & "est déjà affecté à un chantier" & " " & "le" & " " & "à" & TxtHeure & " " & "veuillez modifier la date et/ou heure": Vidange: Exit Sub
Bonne journée à tous les passionnés (et aux autres aussi)

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #3

Bonjour
Ça ne me semble pas bon: ça va combiner bit à bit les numéros de lignes, pouvant être différents, où auront été trouvées les 1ères occurrences de chacun des 3 critères, mais ça peut par hasard correspondre à quelque chose de différent de 0.
Personnellement je ne fais pas de recherche dans les bases à mettre à jour par UserForm. J'utilise des ComboBox gérées automatiquement par un objet ComboBoxLiées. Je propose de nombreux exemples d'utilisation des modules de service définissant cet objet. Si la combinaison des ComboBox qu'on lui a confié existe, ça oriente automatiquement, au lieu d'un ajout, vers une modification de ligne existante, dont l'objet fournit le numéro de ligne à l'UserForm via un évènement. Mais de toute façon votre problème me semble plus compliqué parce que le poseur peut être occupé ailleurs plusieurs jours commençant plus tôt …

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #4

Bonjour Dranreb,
Merci pour votre réponse, en effet cela fonctionne quand le tableau est quasiment vide, ensuite il ne fait référence qu'à la premiere ligne du poseur trouvé, et donc ça ne fonctionne pas.
J'enlève donc le "Résolu" au cas ou quelqu'un ait une idée.
Bien complique comme problème!!!
Merci
Eric

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #5

Il pourrait être intéressant, pour détecter ces doublons, de travailler plutôt avec une base ayant une ligne pour chaque matin et après midi de chaque poseur, quitte à pouvoir en tirer des rapports par poseurs et par chantiers avec date/heure début et fin.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #6

Oui en effet ça serait top mais je ne suis pas assez calé pour faire ce genre de choses malheureusement!!!
Mais merci quand même pour ces conseils

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #7

J'ai récupéré ce système de plannification que j'ai déjà eu un mal fou à adapter à mon besoin alors pour faire ce que vous évoquez, c'est comme si je devais grimper au sommet de l'Everest...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #8

Mais ce serait facile avec un ComboBoxLiées, puisqu'il se charge à votre place des recherches et vous prévient de ce qu'il trouve.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #9

Des combobox liées pour les poseurs, c'est déjà le cas (à moins d'avoir mal interprété)? ou bien des combobox pour les tranches horaires?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #10

Non, dans votre classeur il n'y a pas les modules de classes requis ni le module standard de service MSujetCBx.
Ce classeur les a si vous voulez les pomper

 

Pièces jointes

• CLsCAsContacts.xlsm

  180.4 KB · Affichages: 4

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #11

Merci pour l'exemple mais je serai incapable d'adapter à mon classeur, quand je vous parlais de l'Everest j'ai sous estimé la difficulté on est plus sur la lune quand je tente de déchiffrer ces modules de classe.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #12

Il n'y a pas à les déchiffrer, juste connaître ses évènements, méthodes et propriétés. Il y a une page d'aide qui les décrit tous dans le classeur CBxLCtlA.xslm disponible en téléchargement et précurseur d'un .xlam autoinstallable.
Cette fonction pourrait vous intéresser :

VB:

Function TLgnPériode(ByVal DatHDébut As Date, ByVal DatHFin As Date) As Long()
   Dim TDon(), L As Long, TLgn() As Long, N As Long
   TDon = Feuil2.ListObjects(1).DataBodyRange.Resize(, 5).Value
   ReDim TLgn(1 To UBound(TDon, 1))
   For L = 1 To UBound(TDon, 1)
      If TDon(L, 3) <= DatHFin And TDon(L, 5) >= DatHDébut Then N = N + 1: TLgn(N) = L
      Next L
   If N > 0 Then ReDim Preserve TLgn(1 To N) Else ReDim TLgn(0 To 0)
   TLgnPériode = TLgn
   End Function

Elle devrait donner la liste des numéros des lignes dont la période mordrait sur une période spécifiée. Or un ComboBoxLiées est muni d'une méthode FiltrerLignes qui admet justement en argument une telle liste de numéros de lignes. Méthode AfficherTout pour la désactiver.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #13

Comme je l'ai dit précédemment je suis inexpérimenté et je n'arriverais pas à adapter ce que vous me proposez, je progresse au faire et à mesure du temps mais je suis encore à des années lumière de comprendre ce que vous me proposez

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Mars 2023

• #14

Procédez par étapes en commençant par acquérir les bases qui vous manquent.
Posez moi les questions dans l'ordre où vous rencontrez mes éléments de propos que vous ne comprenez pas.
Ce n'est quand même pas difficile: 99% du besoin se définit dans la Sub UserForm_Initialize, tout le reste ne sont que des procédure généralement petites qui l'exploitent à fond. Si vous ne saurez comment écrire certaines je vous les ferai, pas de problème.

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 28 Mars 2023

• #15

En fait j'arrive à comprendre à "peu près" la methode pour alimenter avec la base avec les combobox plutôt que de passer par des listbox, ce que je n'arrive pas à visualiser c'est la manière pour tester si un poseur à déjà été affecté à un autre chantier avec cette méthode, je vous remercie beaucoup mais je crois que je pars de trop loin!!!

 

Vote positif 0 Vote négatif