Microsoft 365 Fleurissement.

blancolie

XLDnaute Impliqué
C est à dire un tableau avec le recensement des plantes par massifs ( cela aide bien l entreprise qui nous prépare la livraison par massifs et un autre tableau pour pour établir le devis, avoir plusieurs ligne ayant la même plante peut être source d oublié si la personne en face n est pas méticuleuse . Je sais qu il y a les filtres etc etc. Nous savons pas si la personne en face se débrouille. Plus on mâche leur travail plus nous, on a notre réponse définitive.
 

job75

XLDnaute Barbatruc
Même s'il y a des doublons dans les feuilles Devis ça n'a guère d'importance.

Moi à votre place j'utiliserai ce fichier (5), plus c'est simple mieux c'est (retenez au moins ça).
 

Fichiers joints

blancolie

XLDnaute Impliqué
j'aime mieux le fichier (4) mais dommage que ds l onglet recherche et choix ne reste pas vierge.

mais merci pour votre travail
 

blancolie

XLDnaute Impliqué
il peut avoir ds des massifs différents , les mêmes plantes. c'est pour cela qu'il y aura des doublons et c'est inevitable ds les conceptions de massifs. Se répéter, c'est la chose la plus facile. innover, c'est la chose la plus compliquer. Innover, c'est se torturer l'esprit ou les ménages.
 

blancolie

XLDnaute Impliqué
bonsoir, je suis entrain de regarder comment mettre la feuille recherche et choix vierge en ayant cette feuiile vierge mais difficile de trouver la ligne ds le code du fichier post 39
 

job75

XLDnaute Barbatruc
Bonsoir blancolie,

Le fait que toute la liste soit affichée quand B2 et C2 sont vides est normal, c'est lié à la méthode de recherche avec le caractère générique *, ce n'est pas du tout gênant.

Maintenant si l'on veut vider le tableau quand on efface B2 et C2 on utilisera la variable booléenne vide = [B2] & [C2] = "" dans le test :
VB:
If Not vide And LCase(IIf(fournisseur = "", "", tablo(i, 3)) & Chr(1) & tablo(i, 1)) Like critere Then
Voyez ce fichier (4 bis).

A+
 

Fichiers joints

blancolie

XLDnaute Impliqué
Bonsoir Job75,

super ce travail, c'est beaucoup plus joli à mon goût.

Sur ce, cette discussion se termine après 47 post. Merci d'avoir été patient.

Par contre le vba est difficile à comprendre à mon niveau.

Merci encore.
 

blancolie

XLDnaute Impliqué
bonsoir, me revoila (lol), dans le fichier 4(bis), peut on rajouter une colonne se nommant Couleur apres la colonne plante et faudrait la rajouter ds les autres onglets après plantes également et idem ds l'onglet BDD technique. J'ai esssayé de le faire mais cela met en carafe le code.

Merci
 

blancolie

XLDnaute Impliqué
Bonjour,

merci pour le travail, j'ai mis la colonne ds le bdd technique et cela ne marche pas je n'arrive pas avoir la liste de fournisseur
 

job75

XLDnaute Barbatruc
j'ai mis la colonne ds le bdd technique et cela ne marche pas je n'arrive pas avoir la liste de fournisseur
Si vous ne comprenez pas cette modification très simple vous n'arriverez jamais à rien, fichier (5) :
VB:
For i = 2 To UBound(tablo)
    If Not vide And LCase(IIf(fournisseur = "", "", tablo(i, 4)) & Chr(1) & tablo(i, 1)) Like critere Then
        n = n + 1
        resu(n, 1) = tablo(i, 4)
        resu(n, 2) = tablo(i, 1)
        resu(n, 3) = tablo(i, 2)
        resu(n, 4) = tablo(i, 5)
        resu(n, 5) = tablo(i, 6)
    End If
Next
Il faut aussi modifier VLOOKUP dans ThisWorkbook.
 

Fichiers joints

blancolie

XLDnaute Impliqué
Bonjour Job et merci. je vais essayer d'adapter ce que vous avez inscrit dans le post 52 ds le fichier post50.

Le problème, actuellement je n'ai pas vraiment beaucoup de temps a consacrer à comprendre le vba et c'est vrai que ce fichier est bien pratique mais il me faut la couleur car cela permettra d'être plus précis.

et ce fichier va me permettre à moi d'être plus rapide c'est pour cela que je cherche à l'avoir plus vite.

alors je vais essayer de l'adapter

merci encore
 

job75

XLDnaute Barbatruc
Fatigué ce soir ? Le fichier (5) du post #52 c'est la fichier du post #50 modifié.
 

blancolie

XLDnaute Impliqué
Rebonsoir,

Avec le fichier(5) post 50 dans l'onglet recherche et choix peut on rajouter 2 autres possibilités de recherche couleur et type à place aupres de la liste déroulante Fournisseur ? Dans l'onglet paramètre, j'ai crée le contenu de la liste déroulante Couleur et Type.

Est ce possible.

En te remerciant.
 

Fichiers joints

job75

XLDnaute Barbatruc
Bonjour brancolie,

Désolé mais le filtrage sur 2 critères que je vous ai donné est amplement suffisant.

Tout ce que j'accepte de faire c'est d'ajouter le filtre automatique sur ce fichier (6) :
VB:
.Cells(0).Resize(n + 1, 7).AutoFilter 'applique le filtre automatique
Vous pouvez filtrer le tableau sur la colonne que vous voulez.

A+
 

Fichiers joints

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas