Accéder à une donnée dans une cellule fusionnée (par un cells) [Résolu]

[biddal]

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:

Code :

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

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

[rvtoulon]

bonjour,
une idée à creuser:
j'ai en A1 une cellule fusionnée jusqu'en D1 donc 4 colonnes. Je soustrais le numéro de la colonne de la cellule suivante ici E1 donc 5 au numéro de la colonne de ma cellule fusionnée ici 1. Résultat 4 voici le code :

Code :

1
2
3
4
5
6
7
8
Sub comter_nbr_cellule_fusionne()
Dim nbitem As Integer
 
If Range("A1").MergeCells = True Then
   nbitem = Range("A1").Offset(0, 1).Column - Range("A1").Column
   MsgBox nbitem
End If
End Sub

essaye de l'adapter a tes besoins

[bbil]

tu pourrai utiliser le même principe que la :

http://www.developpez.net/forums/d11...s/#post6155007

je n'ai pas excel sous la main pour tester mais cela devrai donner (en partant de ton code) un truc du genre :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
cpt_typ = 1
    For i = 4 To lig_fin
 
 
        If (Sheets("MENSUELLE").Cells(i, 1).MergeArea.Cells(1, 1) <> Sheets("MENSUELLE").Cells(i + 1, 1).MergeArea.Cells(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).MergeArea.Cells(1, 1)
 
        Else
 
            cpt_typ = cpt_typ + 1
 
        End If
 
    Next i

[rvtoulon]

Bonjour,
Merci bbil, je ne connaissais pas la propriété MergeArea effectivement elle convient bien.
Vu que je n'arrive pas à dormir j'ai regardé le code de biddal d'un peu plus près et après avoir testé voici un code qui devrait le faire :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
For i = 4 To lig_fin
 'Donne au compteur le nombre de cellule fusionnée de la plage
 'Par exemple A4,A5 fusionnée ici cpt_typ = 2
 'Si A4 pas fusionnée ici cpt_typ = 1
  cpt_typ = Sheets("MENSUELLE").Cells(i, 1).MergeArea.Count
 
  Sheets("MAT1017").Cells(7, 2).Value = Sheets("MAT1017").Cells(7, 2).Value & vbLf & cpt_typ & Sheets("MENSUELLE").Cells(i, 1)
 
 'pour passer a la prochaine plage fusionné
  i = i + cpt_typ - 1
 
Next i

Au plaisir.

[biddal]

Envoyé par rvtoulon

Bonjour,
Merci bbil, je ne connaissais pas la propriété MergeArea effectivement elle convient bien.
Vu que je n'arrive pas à dormir j'ai regardé le code de biddal d'un peu plus près et après avoir testé voici un code qui devrait le faire :

Code :

Au plaisir.

Merci beaucoup pour ce but de code qui fonctionne nikel !!!
Merci pour votre aide!