XL 2016 Pb dates inversées dans userform

[YOUYOU25]

Bonjour à tous,
J’ai créé un formulaire userform de recensement de matériel au travail et j’ai 2 Pb, un avec le bouton ajouter et
l’autre avec le bouton modifier. Je voudrais à partir d’une ligne existante, la recopier autant de fois
que d’ateliers concernés (soit ajouter) puis apporter des modifications pour différencier l’atelier
d’appartenance et les différentes dates.
J’appelle l’userform depuis la touche recensement au niveau de la cellule A1 du tableur excel. Je click
sur la troisième ligne de la ListView, les textbox sont renseignées puis je click sur ajouter, une
nouvelle ligne est créée mais les jours et les mois sont inversés dans les 3 cellules date (premier pb).
Ensuite je click cette fois sur cette nouvelle ligne insérée et pour exemple je modifie les données atelier et
je mentionne D pour essai puis je click sur modifier et là les données apportées à cette nouvelle ligne
sont reportées dans la ligne initiale et cette fois également avec les dates inversées.
Pourriez-vous SVP apporter une correction à ces pb.
Merci d’avance pour votre aide

 

[YOUYOU25]

bonsoir JM,

J'ai reporté toutes les données dans ton fichier et ça fonctionne trés bien pour la partie de gauche soit la recherche par code mais ça bug au niveau de la demande multicritére les données s'affiche bien mais quand je click sur ligne il y a débogage "index out of bounds" mais peux être que tu n'avais pas terminé cette partie mais si tu as encore un peu de temps à me consacrer pour ce pb je suis preneur .Mais pour le reste c'est génial c'est là que l'on voit les pros .

Merci à toi

Dom

 

[ChTi160]

re
je n'y ai pas regardé !
(Pb dates inversées dans userform)

mais ça bug au niveau de la demande multicritére

Je vais y regarder Lol
Jean marie

 

[ChTi160]

Re
Voir le fichier joint ! à tester .
Jean marie

 

[YOUYOU25]

Re
Voir le fichier joint ! à tester .
Jean marie

JM,

Oui dans la recherche multicritère que je mette code ou autres choix et que je remplis la textbox 12. Il m'affiche bien les lignes demandées mais lorsque je click dessus : débogage sur LgnCible = Item.ListSubItems(.LstV_BDD.ColumnHeaders.Count - 1).

Et idem après essai de ton fichier modifié.

Dom

 

[ChTi160]

Re
Tu dis :

mais lorsque je click dessus : débogage sur LgnCible = Item.ListSubItems(.LstV_BDD.ColumnHeaders.Count - 1).

Je pense avoir oublié de compléter la colonne qui contient la Ligne cible !
Excuses !
Je regarde
Jean marie

 

[YOUYOU25]

Bonsoir JM,
Ton fichier #32 fonctionne nickel J'y ai donc entré mes 647 lignes de matériels , ça fonctionne pour la partie gauche mais pas dans la recherche multicritère soit avec mes valeurs? que je mette code ou autres choix a peine je click un chiffre ou lettre dans la textbox 12 débogage cette fois 13 incompatibilité de type sur la ligne .ListSubItems.Add , , IIf(i > 6 And i < 10, Format(Tab_BDD(Lgn, i), "dd/mm/yyyy"), Tab_BDD(Lgn, i)). Sans doute du à mes valeurs ? Alors je te joins ton fichier mais avec quelques données de ma liste pour essai.

Merci d'avance

Dom

 

[ChTi160]

Re
je regarde dès que possible !
Mais , il y a bien des dates dans les colonnes 7,8,9 ?

 .ListSubItems.Add , , IIf(i > 6 And i < 10, Format(Tab_BDD(Lgn, i), "dd/mm/yyyy"), Tab_BDD(Lgn, i))

jean marie

 

[YOUYOU25]

Oui JM

MERCI