Récupérer Contenu TextBox d'un UserForm et l'inscrire dans cellule spécial
Bonjours à tous,
Je travaille actuellement sur un projet de base de donnée, avec un très gros effectif. Dans lequel, je me sers d'un UserForm (avec des ComboBox et des TextBox) pour chercher mes données afin de pouvoir les modifier plus rapidement.
Actuellement, la recherche de donnée se fait très bien ; c'est à dire que dans mes ComboBox et TextBox je récupère tout les éléments.
Mais j'arrive seulement à retransmettre les données des ComboBox dans mon tableau, mais pas des TextBox...
Je vous transmet un exemple de fichier qui représente ma problématique.
Il faut pour cela modifier Private Sub CommandButton2_Click() de mon userform.
(il n'y a pas de doublons dans la colonne A des codes et dans la colonne B des Nom-prénoms)
Merci d'avance de l'aide que vous pourriez m'apporter.
Bonjour Tomobilus le forum
ton fichier en retour
j'ai jeté ton code et j'ai refait c'était moins long que de modifier le tien
à toi de tester
a+
Papou
Bonjour,
Pour répondre à ton problème j'ai rajouté ces lignes de code:
For Each ctrl In Me.Controls
If TypeName(ctrl) = "TextBox" Then
Ws.Cells(Ligne, 7 + ctrl.Top \ 24) = CDbl(ctrl)
End If
Next ctrlJ'ai simplifié le cas comme tu avais toutes tes boites de textes espacées de 24 en hauteur.
Voici le fichier qui va avec :
Salut paritec
Merci à vous deux, de m'avoir répondu aussi vite
Vos méthodes fonctionnent parfaitement.
J'aurai une demande supplémentaire si cela est possible..
Actuellement pour trouver la personne qui m'intéresse dans mon formulaire je suis obligé de taper son code. serait-il possible de garder la même solution mais avec la possibilité de chercher par nom-prénom également..
Bonjour ausecour le forum
Pas digne de toi ce code!!!
Et si tu bouges un textbox ???
Stp va voir mon code pour charger l’userform
A plus
Papou
Ps: Tomobilus je te ferai une recherche intuitive demain
Bonjour ausecour le forum
Pas digne de toi ce code!!!
Et si tu bouges un textbox ???
Stp va voir mon code pour charger l’userform
A plus
Papou
Ps: Tomobilus je te ferai une recherche intuitive demain
Je sais je sais
Mais je n'avais pas envie de vérifier chaque textbox pour voir si elles étaient dans l'ordre, ni de mettre 19 tags, j'ai fait au plus rapide pour moi
Bonjour Tomobilus ausecour le forum
ton fichier en retour avec une recherche sur toutes les colonnes, tu as un textbox recherche, quand tu tapes un texte ou un chiffre une liste s'affiche dans une listbox, plus tu tapes de lettres plus tu affines la liste, et un clique sur une des lignes de la listbox et tes combos et textboxs se remplissent
tu ouvres tu testes et tu me redis.
a+
Papou
Bonjour à vous deux,
Comment vous dire que c'est encore mieux que dans mes rêves...
Cette fonction recherche avec l'aperçu à côté est fantastique
Merci pour votre super boulot
Bonne continuation
Re Tomobilus le forum
une V4 plus aboutie, avec tout ce qui manquait dans ta demande
a+
Papou
Re paritec,
Je te remercie pour cette V4, mais dans mon fichier initial je l'avais déjà prévu.
Par contre je vais me servir des tes messages d'alertes dans le cas où je supprime une ligne
A+
Re Tomobilus le forum
pourquoi tu as conservé ton code vba dans l'userform????
a+
papou
Re paritec,
Oui j'ai fait ça
Il ne faut pas ?
Re Tomobilus le forum
Ton code ne vaut pas grand chose, pour ne pas dire ''pas grand chose'', si je l'avais refait c'est pas pour rien !!!!!
Enfin fait comme tu veux, c'est toi qui va avoir des ennuies dans peu de temps c’est pas moi.
a+
Papou
Ah non ! on ne s'est pas compris
Le fichier que tu m'as transmis avec ton code j'ai tout récupéré et je l'ai remplacé dans mon fichier maître. L'autre code que j'avais bidouillé, il a disparu
Je pensais que tu étais en train de me dire qu'il ne faut pas stocker son code sur l'UserForm mais plutôt dans des modules où sur les feuilles.
Re Tomobilus le forum
pourquoi tu as conservé ton code vba dans l'userform????
Bah pourtant je t'avais bien mis en gras TON code
Bref donc tu as fait ce qu'il fallait c'est parfait !!! Tu as copié le nom aussi ????????????
bonne journée
A+
Papou
Re paritec,
Désolé c'est moi qui est bug
Oui j'ai tout fait comme il fallait, mon fichier maître fonctionne parfaitement, j'ai essayé toutes les éventualités sans problème.
Merci encore du temps que tu m'as consacré, cela va beaucoup m'aider dans mes futurs projets.
Bonne continuation
Thomas