Report d'info dans un second tableau

Anthonyh · 28 Juin 2012

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 · 28 Juin 2012

Re : Report d'info dans un second tableau

Bonjour à tous,

Je pense que la bonne formule est :

Code:

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

Soit en VBA :

VB:

'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 · 28 Juin 2012

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

Report d'info dans un second tableau

Anthonyh

XLDnaute Nouveau

Pièces jointes

JCGL

XLDnaute Barbatruc

Anthonyh

XLDnaute Nouveau

Discussions similaires