Report d'info dans un second tableau

[Anthonyh]

Bonsoir à tous,

J'ai besoin de vous.
Je suis en train de fignoler une application de planification sous VBA mais un élément m'échappe. Avec un premier Userform je peux créer un nouvel onglet pour chaque jour de la semaine. Dans chaque page, j'ai deux tableaux, un premier dont la taille change en fonction du nombre d'employés présents et le second qui fait office de résumé "qui fait quoi et quand".
J'ai donc (déjà avec l'aide de certains membres) ajouté une macro permettant de remplir ce second tableau automatiquement mais "#NOM?" apparaît dans toutes les cases ...

Tout est expliqué dans l'exemple ci joint et voici ma formule :

' Données

select1 = Range("C5:C" & CDbl(Range("A4")) + 5)
select2 = Range("B5:B" & CDbl(Range("A4")) + 5)

a = CDbl(Range("A4")) 'nombre d'employés
b = a + 11 ' Ligne FSC 1
c = b + 3 ' Ligne FSC 4
d = Cells(b, 2) ' Case FSC 1

Range(Cells(b, 3), Cells(c, 17)).FormulaLocal = "=SI(ESTNA(EQUIV(d;select1;0));"""";INDEX(select2;EQUIV(d;select1;0)))"
Range(Cells(b, 3), Cells(c, 17)) = Range(Cells(b, 3), Cells(c, 17)).Value

Merci d'avance

 

[JCGL]

Re : Report d'info dans un second tableau

Bonjour à tous,

Je pense que la bonne formule est :

=SI(ESTERREUR(EQUIV($B19;C$5:C$13;0));"";INDEX($B$5:$B$13;EQUIV($B19;C$5:C$13;0)))

Soit en VBA :

'Excel 2003
Range("C19:Q22").Formula = "=IF(ISERROR(MATCH(RC2,R5C:R13C,0)),"""",INDEX(R5C2:R13C2,MATCH(RC2,R5C:R13C,0)))"
Range("C19:Q22") = Range("C19:Q22").Value

A + à tous

 

[Anthonyh]

Re : Report d'info dans un second tableau

Cela marche en effet mais les cellules ne doivent pas être fixes car la taille de mon premier tableau peut et doit changer de feuilles en feuilles. Merci