Creer un tableau 2 entrées

[natacha]

Bonjour,
Je souhaiterais à partir d'un tableau, créer automatiquement un tableau 2 entrées .
je vous transmets en pièce jointe mon exemple .
Je vous remercie par avance.
Natacha

 

[ERIC S]

Re : Creer un tableau 2 entrées

Bonjour

pas sûr d'avoir compris mais

=B$6*DECALER($D$6;0;EQUIV($A11;$E$2:$G$2;0))

 

[PMO2]

Re : Creer un tableau 2 entrées

Bonjour,

Une piste avec le code suivant

Sub aa()
Dim S As Worksheet
Dim R As Range
Dim var
Dim T()
Dim i&
Dim j&
Dim x&
'---
On Error GoTo Erreur
If TypeName(Selection) <> "Range" Then Exit Sub
Set R = Selection
var = R
x& = ((R.Columns.Count - 1) / 2) + 1
ReDim T(1 To x&, 1 To x&)
'--- Les titres ---
For j& = 2 To x&
  T(1, j&) = var(1, j&)
  T(j&, 1) = var(1, j& + x& - 1)
Next j&
'--- Les calculs ---
For i& = 2 To UBound(T, 1)
  For j& = 2 To x&
    T(i&, j&) = var(UBound(var, 1), j&) * var(UBound(var, 1), i& + x& - 1)
  Next j&
Next i&
'--- Inscription dans une nouvelle feuille ---
Set S = Sheets.Add(after:=Sheets(Sheets.Count))
S.Range(S.Cells(1, 1), S.Cells(UBound(T, 1), UBound(T, 2))) = T
'---
Erreur:
If Err <> 0 Then MsgBox "Erreur " & Err.Number & vbLf & Err.Description
End Sub

Sélectionnez la plage concernée (A2:G6 dans votre exemple) et lancez la macro.
Le résultat s'affiche dans une nouvelle feuille.

 

[JCGL]

Re : Creer un tableau 2 entrées

Bonjour à tous,
Re Eric,

Ou :

=B$6*SOMMEPROD(($E$2:$G$2=$A11)*$E$6:$G$6)

A+ à tous