Recherche vba

Bonsoir

Oui c'est possible

Tu as du mettre un bouton de validation sur ton userform

Dans le code du bouton tu mets une macro de ce style :

Private Sub CommandButton1_Click()
On Error GoTo erreur 'gestion de l'erreur si reference non trouvée
a = UserForm1.TextBox1.Value 'récupération de la donnée en Textbox1
ligne = Application.Match(a, Range("A1:A30"), 0) 'recherche de cette donnée dans la plage A1:A30 - renvoie le n° de ligne où est la donnée
b = UserForm1.TextBox2.Value ' récupération de la donnée Textbox2
ActiveSheet.Range("H" & ligne) = b ' écriture de cette donnée en colonne H et même ligne que la donnée de Textbox1
Exit Sub ' sortie
erreur: ' gestion de l'erreur sin donnée non trouvée par affichage d'un message
MsgBox ("Cette valeur n'existe pas dans la colonne A")
End Sub

A adapter et à compléter selon tes besoins

Cdlmnt

Merci beaucoup, je vais tester ça tout de suite :)

Bonne soirée ;)

Juste exceptionnelle ta réponse!!!

Très bonne soirée à toi ;)

PS : comment on met en résolu?

Re Bonsoir,

J'ai une petite question :

Comment vba fais pour envoyer sur la bonne feuille ??? Sachant que nul part dans mon code je n'ai écrit sur quelle feuille il doit envoyer les données

Voici mon code au complet :

Private Sub UserForm_Initialize()
heure.Value = Time
dat.Value = Date
End Sub

Private Sub CommandButton1_Click()
a = UserForm3.Numéro.Value
ligne = Application.Match(a, Range("A1:A65536"), 0)
b = UserForm3.dat.Value
ActiveSheet.Range("O" & ligne) = b
c = UserForm3.heure.Value
ligne = Application.Match(a, Range("A1:A65536"), 0)
ActiveSheet.Range("P" & ligne) = c
d = UserForm3.nom.Value
ligne = Application.Match(a, Range("A1:A65536"), 0)
ActiveSheet.Range("Q" & ligne) = d
e = UserForm3.quantité.Value
ligne = Application.Match(a, Range("A1:A65536"), 0)
ActiveSheet.Range("R" & ligne) = e
CommandButton1.Visible = False
CommandButton2.Visible = False
UserForm3.PrintForm
Unload Me
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub

Cordialement

Bonne soirée

J'ai trouvé lol

Au lieu de activesheets, je mets Worksheets("la feuille que je veux")

et hop c'est parti!!!

Tchou tchou et encore merci

Bonsoir,

C'est moi que revoilà...lol

J'ai un soucis! En fait ça ne marche pas non plus le code si la feuille sur laquelle j'envoie les données n'est pas la feuille active :/

Est-ce qu'il y a une solution à mon problème?

De plus pour le code actuel, je ne mets pas "ligne = Application.Match(a, Range("A1:A65536"), 0)" dans b,c,d et e

Bonne soirée

++

Bonjour,

Je n'arrive toujours pas à envoyer les données vers la feuille voulue.

Voici le lien de mon fichier simpliflé https://www.cjoint.com/?3Kqi1RLbeii
Il est simplifié mais si j'arrive à faire ce que je veux sur celui-ci, l'adaptation au vrai fichier est assez simple.

j'ai essayé avec un code diffèrent du votre sur l'userform3 mais il y a également un bug.
Je pense simplifier les userforms, cela fait un peu "jeu" lol, comme regrouper 1ère utilisation et 2ème utilisation, ce serait un TextBox qui permettrait de savoir.
Le choix de la préparation pourrait être fait par liste déroulante aussi mais bon il faudrait un code pour envoyer sur la feuille correspondante, et là je galère déjà suffisamment pour des codes simples :/

De plus, je pars un peu plus loin mais je souhaite par la suite (quand j'aurai l'esprit vba xD) de protéger le fichier par mot de passe, l'utilisateur serait reconnu automatiquement et son nom serait inscrit ainsi dans l'userform sans possibilité de choix. De plus, l'affichage du userform lors d'exécution serait en plein écran mais l'impression en format prédéfini dans vba... Voilà c'est juste pour aller plus loin...

Merci pour votre aide
Cordialement ;)