Une macro recherche
Bonjour
ma question est sans doute très bête mais quelqu'un pourrait il m'aider
je travaille en temps qu'assistante dans une société de transport et ,pour cela nous employons des codes que j'ai placé dans une colonne disons 1
Dans la colonne 2 j'ai mis le nom commercial
et dans la colonne 3 un code de danger associé (car se sont des produits toxiques
j'ai créer un userform en suivant vos conseils (sur ce site) mais après je bloque car je ne sais pas quel code associé
tout ce que j'ai entrepris a échoué donc si quelqu'un peux m'aider !!!
je reconnais ne pas avoir grand chose de fait .....ne m'en veuillez pas trop pour mon premier post !!!
bises a tous
charlotte
Bonjour Charlotte et bienvenue,
C'est une illusion d'optique ou ton fichier est ... désespérément vierge de toute donnée !?
Bonjour
et merci pour votre réponse rapide
Pour etre franche je me suis servi d'un fichier existant qui a l'air a peu pres semblable est donc voici le code:
Option Explicit
Private Sub CommandButton1_Click()
Dim R As Range
Set R = Range("D1:a" & Range("A65536").End(xlUp).Row).Find(TextBox1.Value)
If Not R Is Nothing Then
Me.TextBox2 = R.Offset(0, 1).Text
End If
End Sub
Private Sub Label1_Click()
recherche
End Sub
Private Sub TextBox1_Change()
End Sub
Private Sub TextBox2_Change()
End Sub
Private Sub Label2_Click()
End Sub
Private Sub UserForm_Click()
End Sub
mais comme je suis nulle car je n'ai jamais reçu d'enseignement dans ce domaine je n'ai pas oser le mentionner
j'ai d'ailleurs pu m'apercevoir que pour ma demande c'a ne marchait pas ..........
Bonjour à tous,
Un début > j'ai remplacé le textbox1 par un combobox > quand le formulaire est ouvert sélectionne ton numéro de produit.
ric
ric c'est exactement c'a
vous êtes adorable
merci beaucoup beaucoup
Une ultime question et après je ne vous embête plus
si je veux placer mon bouton sur une page nommée "code "
et avoir ma liste sur une feuille nommée "feuil 6"
c'est faisable ?
super merci Ric pour ma première visite j'ai eu un super accueil
je vais essayé de mettre tout ton travail dans mon fichier original
bises
charlotte
petite question à tous afin de mieux comprendre
dans le fichier élaboré par Ric je note une structure établie comme ceci:
- vba Project
- Microsoft excel objets
- feuille 1
- feuille2
- feuille3
-thisworkbook
-feuille
-useform 4
-modules
- module 1
Pourtant lorsque je crée mon bouton par développer insérer" bouton de commande active x " je n'est après création qu'un accès a
"visualiser un code" contrairement a ce que je retrouve dans creation d'un bouton formulaire ou la j'ai accès a une macro
d'où ma question qui va vous paraître idiote comment faites vous pour créer cette structure qui est pour le moins très complète .
j'espère avoir été claire dans ma demande
bises a tous merci
charlotte
Ric
tout fonctionne à merveille grâce a vous
En suivant les cours sur ce site je suis arrivée a mes fins
il y a juste un point de détail que je ne trouve pas
étant donné que c'est un fichier de recherche produit, et il possible de rajouter une fonction afin d'avoir un message d'erreur au lieu du :
erreur d'exécution 1004 ?
BISES
Charlotte
Bonjour,
Un exemple de gestion d'erreur de kiki29 sur un autre forum ...
Option Explicit
Sub Tst()
Dim sNom As String
On Error GoTo Erreurs
sNom = Application.WorksheetFunction.VLookup(Range("J1" ), Range("F4:F515" ), 1, False)
Sortie:
Exit Sub
Erreurs:
If Err.Number = 1004 Then
MsgBox ("Recherche infructueuse" )
'Application.StatusBar = "Recherche infructueuse"
Resume Sortie
End If
End Subric