Formulaire de recherche multicritere

bonjour

cher panel d'expert en excel j'aimerai réalise un formulaire de recherche multicritère, en attacher le tableau de donnée et le formulaire que je souhaite réalise, je vous remercie d'avance pour toute votre aide

NB: je suis nul en VBA

formulaire de recherche
97fournisseur.xlsx (9.85 Ko)

Bonjour,

Fait en 5 mn avec un programme générique (6 combobox + recherche intuitive multi-mots.

Boisgontier

merci Mr Boisgontierjacques pour votre réponse rapide je vais tester tous ça et je reviendrai vers vous on cas de besoin

bonjour Boisgontierjacques

merci pour le fichier mais il ne fonctionne pas correctement , ci dessous le message qu'il m'affiche

sans titre

Le fichier que j'ai posté fonctionne correctement (je viens de le télécharger).

Boisgontier

merci MR Boisgontierjacques pour votre retour je vais réessayer peut être le probleme est a mon niveau , mais j 'aimerai ajouter un bouton email

de manier a envoyé un email au fournisseur filtré es ce que c'est possible ?

Bonsoir,

Vous pouvez insérer une colonne mais dans ColVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) , il faudra ajouter 11 si vous voulez qu'elle apparaisse dans le ListBox.

ColCombo = Array(1, 2, 3, 4, 5, 10) ' A adapter (1 à 6 colonnes maxi)

colVisu = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' Colonnes ListBox (à adapter)

colInterro = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) ' colonnes à interroger (adapter)

Boisgontier

bonsoir MR Boisgontierjacques

effectivement le formulaire marche très bien merci bcp pour votre aide,

cependant j ai besoin d 'un dernier coup de main si ce n'est trop vous demander , je bloque toujours sur le bouton mail

voila mon besoin , une fois j ai filtre mes fournisseur on fonction d un critère le bouton doit me permetre de leur envoyer l email a eux seulement , jai trouvez un code vba mais je n'arrive pas l'adapter , "mois j ai pas besoin d envoyer une piece joint"

Sub ENVOI_MAIL()

Dim msg As MailItem

Dim i, Olapp, A, B

A = Range("i1").Value + 1 'prend le numéro de la cellule i1 et ajoute 1

Range("i1") = A 'La cellule i1 prend le numéro de la cellule i1

Range("j1") = "CAPTURE NR " & A & " - " & Format(Date, "dd mm yyyy") 'insère un nom pour le futur PDF basé sur

'numéro de la cellule i1 et la date du jour

B = Range("J1").Text 'récupère les données de la cellule j1 au format text

Range("A19:H200").Select 'Plage de cellule à imprimer en PDF

'Impression du PDF et enregistrement automatique dans le chemin C:\Users\PCBureau48\Desktop\

'avec le nom de la cellule J1

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\PCBureau48\Desktop\" & B & ".pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

'effectue la boucle, dans le cas suivant sur 14 lignes

For i = 1 To 14

If ActiveCell <> "" Then

Set Olapp = New Outlook.Application

Set msg = Olapp.CreateItem(olMailItem)

mg.T ActiveCell.Offset(0, 9).Value

msg.Subject = "OBJET MESSAGE"

msg.HTMLBody = "<html><body><font color=""black""><font size=3><FONT FACE=""Georgia"">" & "Bonjour, " & _

"<br /><br /><br />" & "TEXTE DU MAIL" & _

"<br /><br /><br />" & " </font></font></font></body></html>"

msg.Display

ActiveCell.Offset(1, 0).Select

msg.Attachments.Add Range("M1").Text 'Correspond au lien existant en M1

Else

Exit Sub

End If

Next i

End Sub

Bonjour

HELP

Salut,

Si tu n'as pas besoin d'envoyer de pièce jointe supprime cette ligne

msg.Attachments.Add Range("M1").Text 'Correspond au lien existant en M1

Idem si tu n'as pas envie d'enregistrer quoique ce soit

A = Range("i1").Value + 1 'prend le numéro de la cellule i1 et ajoute 1
Range("i1") = A 'La cellule i1 prend le numéro de la cellule i1
Range("j1") = "CAPTURE NR " & A & " - " & Format(Date, "dd mm yyyy") 'insère un nom pour le futur PDF basé sur
'numéro de la cellule i1 et la date du jour

B = Range("J1").Text 'récupère les données de la cellule j1 au format text
Range("A19:H200").Select 'Plage de cellule à imprimer en PDF
'Impression du PDF et enregistrement automatique dans le chemin C:\Users\PCBureau48\Desktop\
'avec le nom de la cellule J1
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\PCBureau48\Desktop\" & B & ".pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
'effectue la boucle, dans le cas suivant sur 14 lignes
For i = 1 To 14
If ActiveCell <> "" Then

Bonjour Ergotamine merci pour votre aide , voila j ai essaye d'adapter le code VBA comme ça

Private Sub CommandButton1_Click()

Dim leMail As MailItem

Dim i, Olapp, A, B

Set Olapp = New Outlook.Application

Set leMail = Olapp.CreatItem(olMailItem)

leMail.T ActiveCell.Offset(0, 9).Value

leMail.Subject = "OBJET MESSAGE"

leMail.C = "xxxxx@xxxx.xx"

leMail.Body = "bonjour je vous prie de nous etablir une offre pour les item en attache "

leMail.Display

ActiveCell.Offset(1, 0).Select

Else

Exit Sub

Next i

End Sub

et quand je Click sur exécution j’obtiens un message d erreur

Erreur de compilation , utilisation incorrect de la propriété , pouvez vous m'orienter svp

NB : je cherche a insérer un bouton dans un formulaire e recherche userform pour envoyer des email a une partie de mes fournisseur (liste filtre)

merci d avance

Bonsoir,

Comme ceci peut être :

Private Sub CommandButton1_Click()

Dim leMail As MailItem
Dim i, Olapp, A, B
Set Olapp = New Outlook.Application
Set leMail = Olapp.CreatItem(olMailItem)
leMail.To = ActiveCell.Offset(0, 9).Value
leMail.Subject = "OBJET MESSAGE"
leMail.Body = "bonjour je vous prie de nous etablir une offre pour les item en attache "
leMail.Display
End Sub

Les lignes que j'ai supprimé n'ont pas grand interêt dans ton code.

merci pour votre aide votre code vba marche bien , mais ne correspond pas a ce que je recherche

je vous joint le formulaire vous aurai une meilleur idée , le bouton mail marche mais ne prend pas on considération le fournisseur sélectionnez

NB Je ne suis pas très bon on vba et le formulaire joint n'est pas mon oeuvre

bonjour

jai reglé mon probleme merci pour votre aide a tous

voila le code

Private Sub CommandButton1_Click()

Dim leMail As Variant

Set leMail = CreateObject("Outlook.Application") 'creation d'un objet Outlook

With leMail.CreateItem(olMailItem)

.Subject = " demande proforma "

.To = Me.ListBox1.Column(8)

.CC = ""

.Body = "bonjour je vous prie de nous etablir une offre pour les item en attache "

.Display

End With

End Sub

Rechercher des sujets similaires à "formulaire recherche multicritere"