Discussion :

[Anthonyh2]

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 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 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
' 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