Remplir un devis

job75

XLDnaute Barbatruc

• 22 Novembre 2008

• #2

Re : Remplir un devis

Bonsoir ezrielle,

Voir le fichier joint. La formule dans les cellules A19:A23 de "Devis fournisseur" est :

Code:

=SI(ESTNA(EQUIV(C$8&"."&LIGNE()-18;code_produit;0));"";C$8&"."&LIGNE()-18)

Pour la colonne "Désignation", je ne sais que faire avec la feuille "donnée"...

Bonne fin de soirée.

Edit : j'ai rajouté une ligne car le code "B1" comporte 5 produits...

 

Pièces jointes

• suivi d'affaire easy4 formule.zip

  28.1 KB · Affichages: 67

Dernière édition: 23 Novembre 2008

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 22 Novembre 2008

• #3

Re : Remplir un devis

Bonsoir ezrielle,

Voir ton fichier modifié : j'ai remplacé ta cellule C8 par une liste déroulante à laquelle j'ai affecté un code qui se déclenche sur l'événement Change.
Il est facile d'ajouter des cellules à mettre à jour en même temps que la colonne A.
Le code n'est pas optimisé, mais il a le mérite de fonctionner.

Espérant t'avoir aidé(e).

Cordialement.

 

Pièces jointes

• suivi d'affaire easy4.zip

  33 KB · Affichages: 72
• suivi d'affaire easy4.zip

  33 KB · Affichages: 77
• suivi d'affaire easy4.zip

  33 KB · Affichages: 70

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2008

• #4

Re : Remplir un devis

Bonjour ezrielle, Papounet, le forum,

Papounet, je ne comprends pas, la liste de validation en C8 d'ezrielle paraît une solution plus simple...

Voici de mon coté une solution par macro Change (clic droit sur l'onglet "Devis fournisseur" et Visualiser le code) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$8" Then Exit Sub
Dim Cel As Range, i As Byte
Range("A19:F23") = ""
i = 18
For Each Cel In Sheets("Feuil1").Range("code_produit")
If Cel Like Target & ".*" Then
i = i + 1
Cells(i, 1) = Cel
End If
Next
End Sub

Edit : cette solution par macro est préférable si l'on veut en profiter pour entrer d'autres données, sinon je préfère ma solution par formule (mon post précédent)...

A+

 

Pièces jointes

• suivi d'affaire easy4 macro.zip

  31 KB · Affichages: 52
• suivi d'affaire easy4 macro.zip

  31 KB · Affichages: 42
• suivi d'affaire easy4 macro.zip

  31 KB · Affichages: 48

Dernière édition: 23 Novembre 2008

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2008

• #5

Re : Remplir un devis

Re,

J'ai ajouté quelques lignes dans la macro pour masquer les lignes qui sont vides dans la plage A19:A23 de la feuille "Devis fournisseur".

Maintenant, sans réserve, je préfère cette solution avec macro :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$C$8" Then Exit Sub
Dim Cel As Range, i As Byte
Range("A19:F23") = ""
i = 18
For Each Cel In Sheets("Feuil1").Range("code_produit")
If Cel Like Target & ".*" Then
i = i + 1
Cells(i, 1) = Cel
End If
Next
[COLOR="Red"]For Each Cel In Range("A19:A23")
Cel.EntireRow.Hidden = Cel = ""
Next[/COLOR]
End Sub

A+

 

Pièces jointes

• suivi d'affaire easy4 macro.zip

  31.3 KB · Affichages: 82
• suivi d'affaire easy4 macro.zip

  31.3 KB · Affichages: 91
• suivi d'affaire easy4 macro.zip

  31.3 KB · Affichages: 83

Dernière édition: 23 Novembre 2008

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 23 Novembre 2008

• #6

Re : Remplir un devis

Bonsoir le forum,

Job75, pour répondre à ta 1ère question : la validation en C8 paraît plus simple mais il n'en est rien. La gestion par formule est toujours plus délicate, car en cas de fausse manip, il n'est pas toujours évident de récupérer, sauf à l'empêcher en protégeant la feuille.
La solution par macro Change appliquée à la feuille était dans ma démarche initiale, mais cette macro est appelée à chaque changement-recalcul de la feuille, ce qui n'est pas parfois sans poser des problèmes et peut contribuer à certaines erreurs. La liste déroulante, que j'ai prévue dans mon exemple, est tout particulièrement adaptée à ce cas précis, d'autant qu'elle facilite la gestion des cellules adjacentes à la cellule traitée.
Il est certain que mon code, écrit dans la précipitation, est perfectible et optimisable, toutefois il est assez proche de ta proposition dans sa démarche.
Je retiens par ailleurs ta solution de masquer les lignes vides, qui est très astucieuse.

Cordialement.

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2008

• #7

Re : Remplir un devis

Bonsoir Papounet,

Comme je l'ai dit, la solution par formules n'a pas ici ma préférence, mais il ne faut pas cracher dessus, elle est souvent préférable à la solution par macro.

Relisant ta macro, que je trouve très bien, je vois que tu effaces les données jusqu'à la colonne F, tu as raison, je vais modifier mes macros dans les posts.

A+

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 23 Novembre 2008

• #8

Re : Remplir un devis

Bonjour,

wow, c'est genial merci beaucoup.
Je vais rester sur la formule qui me va très bien et étant encore débutante c'est plus à ma porter pour comprendre que le VBA.
J'apprécie bp votre aide c'est super.
Juste une petite précision est-ce qu'il serait possible d'avoir des explications sur la formule svp?
J'aimerai bien comprendre ce que je fais pour pouvoir le refaire.

Encore merci pour votre précieuse aide c'ets parfait

Bonne soirée et bonne semaine

Ezrielle

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 23 Novembre 2008

• #9

Re : Remplir un devis

Bonsoir ezrielle,

J'explique donc la formule :

=SI(ESTNA(EQUIV(C$8&"."&LIGNE()-18;code_produit;0));"";C$8&"."&LIGNE()-18)

C$8&"."&LIGNE()-18
Si en C8 on a "A2", cette expression renvoie "A2.1" en ligne 19 (Ligne() est égal à 19), "A2.2" en ligne 20, etc...

La fonction EQUIV recherche ce texte dans la plage code_produit de la Feuil1 :

- si elle trouve ce texte, elle renvoie sa position dans la plage (un nombre), et la fonction ESTNA renvoie alors FAUX

- si elle ne le trouve pas, elle renvoie la valeur d'erreur #N/A et la fonction ESTNA renvoie VRAI

La fonction SI est bien connue, si elle vous pose problème, voyez l'aide Excel.

Le résultat de la formule est donc un texte du genre "A2.1" ou bien le texte vide "".

Bonne fin de soirée.

 

Vote positif 0 Vote négatif

E

ezrielle

XLDnaute Occasionnel

• 27 Novembre 2008

• #10

Re : Remplir un devis

C'est genial merci beaucoup, d'ici quelques semaines je mettrais mon programme terminé. je vous tiendrai au courant si ca vous interesse pour voir la finalité
Encore merci
bonne soirée
Ezrielle

 

Vote positif 0 Vote négatif