XL 2013 Recherche avec fenetre

vgendron

XLDnaute Barbatruc

• 14 Novembre 2020

• #2

Hello

Voir PJ pour un début de réponse....

 

Pièces jointes

• TEST (1).xlsm

  21.1 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2020

• #3

Bonjour Moreno076, salut vgendron,

2 remarques :

- vous ne dites rien de la colonne H je vais donc l'ignorer

- il n'est pas très judicieux de mélanger suppression et ajout mais si vous y tenez exécutez ce code :

VB:

Sub Macro()
Dim x$, i As Variant
x = InputBox("Code article :")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
    MsgBox "Fiche retirée de la semaine " & Cells(i, "I")
    Rows(i).Delete
Else
    If MsgBox("Fiche non présente, voulez-vous ajouter l'article ?", 4) = 7 Then Exit Sub
    With [A:A].Find("", , xlValues)
        .Value = x
        .Resize(, 9).Borders.Weight = xlThin 'bordures
    End With
End If
End Sub

A+

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 14 Novembre 2020

• #4

Cette nouvelle version te permet d'ajouter directement une nouvelle ligne...
quelques précisions quand meme
1) lorsque tu cliques sur le bouton lancer, un userform s'ouvre
2) le Combobox est automatiquement alimenté par la liste des items existants
3) si tu sélectionnes un de ces items, le bouton "Retirer" s'affiche
4) tu peux saisir directement dans le CB un nouveau numéro ==> quand tu valides, le bouton nouveau s'affiche et permet d'ajouter la nouvelle ref en bas du tableau, et le Combobox est mis à jour avec cette nouvelle référence.

Hello @job75 je n'avais jamais pensé à ta solution pour ajouter un element en bas de tableau..
je note pour une prochaine

 

Pièces jointes

• TEST (1).xlsm

  22.8 KB · Affichages: 12

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #5

job75 à dit:

Bonjour Moreno076, salut vgendron,

2 remarques :

- vous ne dites rien de la colonne H je vais donc l'ignorer

- il n'est pas très judicieux de mélanger suppression et ajout mais si vous y tenez exécutez ce code :

VB:

Sub Macro()
Dim x$, i As Variant
x = InputBox("Code article :")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
    MsgBox "Fiche retirée de la semaine " & Cells(i, "I")
    Rows(i).Delete
Else
    If MsgBox("Fiche non présente, voulez-vous ajouter l'article ?", 4) = 7 Then Exit Sub
    With [A:A].Find("", , xlValues)
        .Value = x
        .Resize(, 9).Borders.Weight = xlThin 'bordures
    End With
End If
End Sub

A+

Cliquez pour agrandir...

Bonjour vgendron, bonjour job75

je me suis probablement mal exprimé.

En fait pour la boite de dialogue, après avoir rentré le code, j'ai simplement besoin d'avoir la réponse si le code est présent dans la liste :

Si oui ca m'indique la semaine où la fiche a été retirée
Si non fiche non présente.

Mais en aucun cas ajout ou suppression de lignes

Merci 🙂

 

Dernière édition: 14 Novembre 2020

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #6

Bonjour à job75 je ne suis pas remonté assez haut je n'avez pas vu toutes les réponses. Désolé

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2020

• #7

Moreno076 à dit:

Mais en aucun cas ajout ou suppression de lignes

Cliquez pour agrandir...

Vous avez raison, alors c'est bien simple :

VB:

Sub Macro()
Dim x$, i As Variant
x = InputBox("Code article :")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
    MsgBox "Fiche de la semaine " & Cells(i, "I") & " " & Cells(i, "H")
Else
    MsgBox "Fiche non présente..."
End If
End Sub

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #8

Merci Job75, j'ai réajusté comme suit :

Sub Macro()
Dim x$, i As Variant
x = InputBox("Code article :")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
MsgBox "Fiche retirée en semaine " & Cells(i, "I")
Else
MsgBox "Fiche non présente"
End If
End Sub

J'aimerais si possible que lors de l'affiche du résultat ca rappelle le code article rentré plus tôt.

Fiche "code article" retirée....

Après cela je rajouterais cette macro au démarrage du fichier je ne sais plus comment on fait mais je vais chercher.

Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2020

• #9

VB:

MsgBox "Fiche code article '" & x & "' retirée en semaine " & Cells(i, "I")

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #10

Parfait merci

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #11

Merci bien. J'ai réussi pour le démarrage. Je voulais rajouter vbCritical lorsque le code n existe pas. Et puis pour les deux cas, je voudrais rajouter la possibilité de faire une nouvelle recherche. Il faudrait donc que dans la boite de dialogue de resultat j'ai un bouton "effectuer une nouvelle recherche" et un autre "fin de recherche" je ne sais pas si on peut personnaliser.

Voici la dernière version :

Private Sub Workbook_Open()
Dim x$, i As Variant
x = InputBox("Rentrer le code article :", "Recherche code article")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
MsgBox "Fiche produit '" & x & "' retirée en semaine " & Cells(i, "I")
Else
MsgBox "Fiche produit '" & x & "' non présente "
End If
End Sub


Merci à tous.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2020

• #12

VB:

Private Sub Workbook_Open()
Dim x$, i As Variant
x = InputBox("Rentrer le code article :", "Recherche code article")
If x = "" Then Exit Sub
i = Application.Match(x, [A:A], 0)
If IsNumeric(i) Then
    MsgBox "Fiche produit '" & x & "' retirée en semaine " & Cells(i, "I")
Else
    MsgBox "Fiche produit '" & x & "' non présente !", vbCritical
End If
If MsgBox("Nouvelle recherche ?", 4) = vbYes Then Workbook_Open
End Sub

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 14 Novembre 2020

• #13

Merci beaucoup ca fonctionne.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Novembre 2020

• #14

Question à 100 sous : ça sert à quoi de demander des codes articles ?

 

Vote positif 0 Vote négatif

M

Moreno076

XLDnaute Impliqué

• 16 Novembre 2020

• #15

job75 à dit:

Question à 100 sous : ça sert à quoi de demander des codes articles ?

Cliquez pour agrandir...

En fait des articles sont supprimés jusqu'à la fermeture de l'établissement. On enlève donc les références qui ne sortent presque plus. Si nous sommes en rupture prématurément ca permet de vérifier que l'article se trouve bien dans la liste des produits supprimés.

 

Vote positif 0 Vote négatif