Report d'info dans un second tableau

Version imprimable

1 pièce(s) jointe(s)

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:

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 ;)

Bonjour,

Il y avait plusieurs problème dans ton code

La formule n'affiche rien (pas analysé ce qu'elle devrait retourner), mais au moins plus d'erreur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Dim select1 As Range
Dim select2 As Range
 
Set select1 = Range("C5:C" & CDbl(Range("A4")) + 5)
Set select2 = Range("B5:B" & CDbl(Range("A4")) + 5)
 
a = CDbl(Range("A4")) 'nombre de CM
b = a + 11 ' Ligne FSC 1
c = b + 3 ' Ligne FSC 4
d = Cells(b, 2) ' Case FSC 1
 
Range("C" & b & ":Q" & c).FormulaLocal = "=SI(ESTNA(EQUIV(" & d & ";" & select1.Address & ";0));"""";INDEX(" & select2.Address & ";EQUIV(" & d & ";" & select1.Address & ";0)))"

28/06/2012, 23h20
Bear the french

Bonsoir Anthonyh2,

Je rejoins Jérôme : je pense que tu perdrais moins de temps à refaire un code propre que de vouloir essayer de corriger celui que tu nous as présenté. Excuses ma franchise.

Mon avis sur la question :

VBA n'est pas nécessaire pour ce travail. Excel peut suffire sans macro.
Colles la formule suivante dans la cellule jaune de ton exemple :

Code:

=SI(NB.SI(G6:G13;B22)>0;INDEX(B6:B13;EQUIV(B22;G6:G13;0);1);"")

Est-ce que cela te convient ?

Si par contre, tu expérimentes VBA ou si cela fait parti d'un exercice scolaire, je pense que l'on peut faire l'équivalent en VBA. Mais ça sera plus dur.

Bertrand
28/06/2012, 23h26
Anthonyh2

En effet cela marche mais mon problème est qu'il faut que je l'adapte à toutes les cellules du second tableau tout en sachant qu'elle peuvent être décalées vers le bas si le tableau du haut est agrandi. Le tout en cliquant sur un bouton.
28/06/2012, 23h34
Bear the french

1 pièce(s) jointe(s)

Re,

Il te faut figer tes plages ou les désigner par des noms.
Quand on a l'habitude, c'est rapide à faire ;)

Regardes en PJ si c'est cela que tu veux.

Si tu "agrandis" ton tableau, il suffit de modifier les plages désignées par des noms... les formules du second tableau resteront opérationnelles. tu veux que je crée des noms de plages ?

Bertrand
28/06/2012, 23h51
Anthonyh2

C'est exactement ça ! Merci :)

Maintenant il faudrait que je puisse l'insérer dans la macro qui génère ma feuille ...

Comment pourrais-je ajouter cela dans une macro qui crée ma feuille et mes tableaux en fonction d'un chiffre entré (celui du nombre de lignes du premier tableau) ?

Bonsoir,

Voici ce que peut donner le code VBA (pas vraiment plus simple :? )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub test()
Dim select1 As Range, select2 As Range, d As Range
    Set select1 = Range("C6:C" & CDbl(Range("A4")) + 5)
    Set select2 = Range("B6:B" & CDbl(Range("A4")) + 5)
    a = CDbl(Range("A4")) 'nombre de CM
    b = a + 11 ' Ligne FSC 1
    c = b + 3 ' Ligne FSC 4
    Set d = Cells(b, 2) ' Case FSC 1
    Range(Cells(b, 3), Cells(c, 17)).FormulaLocal = "=SI(ESTNA(EQUIV(" & d.Address(RowAbsolute:=False) & ";" & select1.Address(ColumnAbsolute:=False) & _
    ";0));"""";INDEX(" & select2.Address & ";EQUIV(" & d.Address(RowAbsolute:=False) & ";" & select1.Address(ColumnAbsolute:=False) & ";0)))"
    Range(Cells(b, 3), Cells(c, 17)) = Range(Cells(b, 3), Cells(c, 17)).Value
End Sub

Cordialement.

1 pièce(s) jointe(s)

Re,

Citation:

Envoyé par Anthonyh2

Maintenant il faudrait que je puisse l'insérer dans la macro qui génère ma feuille ...

Je te propose une solution :
Tes 7 jours de semaines sont masqués.
Le formulaire fait apparaître le jour sélectionné dans ta ListBox et rend l'onglet visible et actif dès que l'on appuie sur GO.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Private Sub CommandButton1_Click() Dim Fe As Worksheet Dim x As String UserForm2.Hide ' données issues de la listbox x = ListBox1.Value ' on parcours tout le classeur For Each Fe In ThisWorkbook.Worksheets ' quand le nom du jour est trouvé, on rend l'onglet visible et actif If Fe.Name = x Then Sheets(x).Visible = True Worksheets(x).Activate End If Next Fe End Sub
En PJ, le fichier à adapter.

Citation:

Envoyé par Anthonyh2

Comment pourrais-je ajouter cela dans une macro qui crée ma feuille et mes tableaux en fonction d'un chiffre entré (celui du nombre de lignes du premier tableau) ?

Tout à fait faisable mais cela me parait ambitieux pour cumuler tous ces paramètres. La construction empirique de ton projet risque de rendre vite la chose complexe.
Avant de vouloir gérer plusieurs onglets, il faut en gérer un premier parfaitement... Pour gérer un onglet parfaitement, il faut intégrer dès le départ ton paramétrage. Un tableau ajustable était en théorie à réaliser au début de ton processus de création.
L'exercice que tu dois réaliser : créer un tableau qui s'ajuste en nombre de ligne par rapport à une variable ... Avec un peu de recherche, tu dois pouvoir y arriver.

Bertrand

29/06/2012, 00h37
Anthonyh2

Merci gFZT82, ça marche à merveille !! :D

Bear the french, merci aussi, je vais tenter d'appliquer ta solution par la suite dans l'évolution de mon projet.

En tout cas c'est très sympa de vous être décarcassé la tête pour moi, je n'y arrivais plus et vous m'avez sorti d'une belle galère ;)
29/06/2012, 12h26
Anthonyh2

Citation:

Envoyé par Bear the french

Re,

Il te faut figer tes plages ou les désigner par des noms.
Quand on a l'habitude, c'est rapide à faire ;)

Regardes en PJ si c'est cela que tu veux.

Si tu "agrandis" ton tableau, il suffit de modifier les plages désignées par des noms... les formules du second tableau resteront opérationnelles. tu veux que je crée des noms de plages ?

Bertrand

Désolé, je n'avais pas vu ta question mais j'aimerais bien que tu me montres :lol:
11/07/2012, 21h54
Anthonyh2

C'est encore moi ... Mon entreprise fonctionne avec Excel 2003. Est-il possible d'adapter la solution de gFZT82 à cette version du logiciel ?