Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Formulaire recherche

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

mordious

XLDnaute Occasionnel
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
 

Pièces jointes

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
 

Pièces jointes

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
@+
 
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
379
  • Question Question
Microsoft 365 Contrôle sur date
Réponses
8
Affichages
410
Réponses
16
Affichages
1 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…