suite sequence

jeanpierre

Nous a quitté

Repose en paix

• 19 Novembre 2009

• #2

Re : suite sequence

Bonjour jeromear,

Pas sûr d'avoir compris mais comme dans le fichier, peut-être...

Bon après-midi.

Jean-Pierre

 

Pièces jointes

• cartons(1).zip

  2.6 KB · Affichages: 36

Vote positif 0 Vote négatif

jeromear

XLDnaute Junior

• 19 Novembre 2009

• #3

Re : suite sequence

Si si c'est exactement la formule que je cherchais
Merci Jean Pierre, toujours aussi fort.
A bientôt

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Novembre 2009

• #4

Re : suite sequence

Bonjour jeromear, jeanpierre,

La solution de jeanpierre, par formule, est la plus simple.

Si vous voulez une petite macro, pour voir comment ça marche :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E2]) Is Nothing Then Exit Sub
Dim lig As Variant
[F2:G2] = ""
lig = Application.Match([E2], [A:A], 0)
If IsNumeric(lig) Then
  [F2] = Cells(lig, 2)
  [G2] = Cells(lig, 3)
End If
End Sub

A+

 

Pièces jointes

• cartons(1).xls

  29.5 KB · Affichages: 38

Vote positif 0 Vote négatif

jeromear

XLDnaute Junior

• 19 Novembre 2009

• #5

Re : suite sequence

Bonjour Job
Merci, pour cette macro
Je prends la formule de Jean Pierre dans un premier temps
Votre macro devrait me servir dans quelques semaines quand j'arriverai au bout de mon long programme.
A bientôt

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 19 Novembre 2009

• #6

Re : suite sequence

Bonjour à tous,

Un essai avec SOMMEPROD() en F2 et tirer en G2 :

Code:

=SOMMEPROD(($A$2:$A$66=$E$2)*B$2:B$66)

A+ à tous

 

Pièces jointes

• JC Cartons.xls

  18 KB · Affichages: 47

Vote positif 0 Vote négatif

jeromear

XLDnaute Junior

• 19 Novembre 2009

• #7

Re : suite sequence

Eh bien merci JCGL, ça marche aussi très bien, du coup que de choix !
Bonne soirée à tous
Jerome

 

Vote positif 0 Vote négatif