Bonjour,
Voilà j'explique mon souci!
J'ai un classeur de 6 feuilles:
- 1ere -> j'y choisis une date (mensuelle) grâce à une liste déroulante et on y trouve mes 4 macros!
- 2eme -> il y a ma BDD au grand complet
- 3eme -> il y a des données qui s'y mettent automatiquement grâce à la BDD et des diagrammes (c'est une gestion de stock pour savoir ce qui est absent au stock, dispo, etc)
- 4eme -> un patron pour une impression de données
- 5eme -> une fiche mensuelle qui me ressort la liste du matériel dont la viste au SAV a été faite lors du mois choisit dans l'index!
- 6eme -> mes listes pour mes différentes listes déroulantes!
Donc lorsque j'ai choisi ma date dans l'index je clique sur ma premiere macro qui me fait automatiquement la 5eme feuille donc ma mensuelle. Cela fonctionne très bien!
Ensuite je clique sur ma deuxième macro qui elle met à jour la 4eme feuille! Jusque là pas de soucis la mise à jour se déroule bien!
Ma feuille mensuelle:
A B C
Type Numéro Observation
Toutes les données se mettent à jour toutes seules lorsque je clique sur ma macro mais lorsqu'elles s'incérent, je fusionne la cellule dans la colonne A par exemple s'il y a une télé avec le numéro 345 et une autre télé avec le numéro 523 alors par exemple A4 et A5 fusionne et il n'y est inscrit qu'une fois Télé dans le type!
Le problème que je rencontre c'est que dans cette 4eme feuille j'y met des données de la 5eme (de la mensuelle)! Il y a un champs dans cette 5eme feuille qui compte en fait le nombre d'objet par type par exemple combien y a t il de télé , de lecteur dvd etc en sachant que la cellule dans laquelle est indiqué le type a été fusionnée comme il y en a plusieurs! Et c'est cela que je n'arrive pas à faire compter combien il y en a car voilà ce que j'ai fait:
Le soucis c'est que en faisant ça et bien je ne peux pas lire par exemple la cellule A5 qui est fusionnée avec A4! Dans A4 il y a télé de marqué mais A5 n'est pas accessible! Je ne vois pas comment faire!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 cpt_typ = 1 For i = 4 To lig_fin If (Sheets("MENSUELLE").Cells(i, 1) <> Sheets("MENSUELLE").Cells(i + 1, 1)) Then cpt_typ = cpt_typ Sheets("MAT1017").Cells(7, 2).Value = Sheets("MAT1017").Cells(7, 2).Value & vbLf & cpt_typ & Sheets("MENSUELLE").Cells(i, 1) Else cpt_typ = cpt_typ + 1 End If Next i
Partager