Formulaire recherche

[mordious]

bonjour

j'ai un userform pour saisir des données
je souhaite en cas d'erreur pouvoir modifier
avec l'userform existant ou un autre
voici comment je souhaite procédé

1) saisir une date dans TextBox1
2) à l'aide du CommandButton "recherche"
rechercher la date saisie dans: BaseDon , colonne "date"
et afficher les valeurs des cellules dans les TextBox de Userform
4) valider

ci-joint fichier

merci pour votre aide

 

[gmb]

Re : Formulaire recherche

Bonjour

Cela te convient-il ?

 

[mordious]

Re : Formulaire recherche

bonjour gmb

je te remercie
cela convient parfaitement à ma demande

mais "désolé" j'ais oublié de mentionner dans ma demande
que la recherche doit me servir en cas d'erreur à modifier les données et de
remplacer les données "erronées " par les donnée corrigées

cela est il possible ?

ci-joint fichier

 

[gmb]

Re : Formulaire recherche

Bonsoir

Qu'à cela ne tienne !
Bye !

 

[mordious]

Re : Formulaire recherche

merci, du rapide

magnifique solution fonctionne parfaitement "sauf pour les décimal ne prend pas les valeurs avec décimal "
as tu une solution ?

bonne soirée

 

[mordious]

Re : Formulaire recherche

rectification prend la "," mais pas le "."

dans mon fichier les saisies avec décimal se font avec le "."

quelle solution pour saisir avec le "." ???

bonne soirée

 

[gmb]

Re : Formulaire recherche

Bonjour

Là, je ne vois pas. Peut-être cela vient-il de la configuration ou du paramétrage de ton PC ?
Désolé.

 

[Pierrot93]

Re : Formulaire recherche

Bonjour àtous,

rectification prend la "," mais pas le "."

dans mon fichier les saisies avec décimal se font avec le "."

quelle solution pour saisir avec le "." ???

bonne soirée

pas tout compris moi... il se produit quand ? où ? et comment ? ce problème.... voir peut être du coté de la fonction "replace" ou du coé de l'événement "KeyPress" des "textbox" pour inhiber la saisie de la virgule ou du point... selon....

bonne journée
@+

 

[mordious]

Re : Formulaire recherche

Bonjour

Quand = modif saisie
Ou = TextBox
Comment = saisie de nouvelles valeurs avec décimal "." à l’aide du pave numérique
= bug
LB_Nom1.Caption = .Range("I1:I" & DerLn).Find(Dte).Offset(0, 1).Value

bonne journée à tous

 

[Pierrot93]

Re : Formulaire recherche

Re,

= bug
LB_Nom1.Caption = .Range("I1:I" & DerLn).Find(Dte).Offset(0, 1).Value

vois pas trop le rapport avec l'utilisation de point ou virgule....

 

[mordious]

Re : Formulaire recherche

Dans le fichier de départ (voir ci-joint exemple1)
Le “. “ pris par la saisie
Dans le fichier modifié (Exemple-V4)
Ne prend plus “. “ lors de la saisie
=erreur d’execution 13 :

Bonne journée

 

[Pierrot93]

Re : Formulaire recherche

Re,

pas de souci chez moi... mais le point est mon séparateur décimale....

 

[mordious]

Re : Formulaire recherche

bonsoir Pierrot , gmb

c'est bon = changer la "," par le "." dans panneau de config Windows/Région et Langue
maintenant tout fonctionne

merci à vous