Discussion :

[vincendie]

Bonjour a tous, je suis nouveau sur le forume et avant tout, merci a tous pour la mine d'or que vous mettez a disposition sur le forum

Ma question est donc la suivante: est-il possible lorsque je fusionne des cellules d'indiquer leur nombre?
je m'explique, si je fusionne A1 et A2 en une seule cellule, indiquer automatiquement 2 (puisqu'il y a 2 cellules fusionnées) et de même si je fusionne 3,4,5,.... cellules?

[SfJ5Rpw8]

bonjour,

Tu nous as pas dit comment tu fusionner tes cellules, et quand avais tu besoin de connaitre le nombre de cellules fusionnées ( au moment de la fusion ou plus tard...?)

Code :

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

MsgBox ThisWorkbook.WorkSheets("feuil1").range("D4").MergeArea.Cells.Count

[vincendie]

bonjour,
en fait j'aurai besoin de cette valeur tout de suite dans cette même cellule.
je fusionne les cellules a l'aide d'un bouton placé sur la feuille en question.

[mercatog]

bonjour,
je fusionne les cellules a l'aide d'un bouton placé sur la feuille en question.

Quel est le code que tu utilises à cet effet?

[vincendie]

j'ai utilisé une makro...
je ne suis pas tres doué en vba

[mercatog]

Je parlais de cette macro.
Elle contient des lignes de code?
Copie ces lignes ici (en utilisant la balise code #) pour pouvoir te montrer quoi ajouter

[vincendie]

voici le code:

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
16
17
18
19
20
Sub fusionner()
'
' fusionner Macro
' Macro enregistrée le 31/12/2012 par blanpainf
'
 
'
    With Selection
        .HorizontalAlignment = xlCenter
        .VerticalAlignment = xlCenter
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Merge
End Sub

désolé pour les réponses tardives mais je suis actuellement au boulot, pas facile de rester connecté en permanence ;-)

[mercatog]

Par #, je parlais du bouton dans l'éditeur

Sinon pour appliquer la solution de Bbil

Code :

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

1
2
3
4
5
6
7
8
9
Sub Fusionner()
 
With Selection
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
    .Merge
    .Value = .Cells(1, 1).MergeArea.Count
End With
End Sub

[vincendie]

oui, je l'ai édité par la suite lol..

le code que vous avez indiqué suffirait ou il faut l'ajouter au code déja présent?

[mercatog]

Peut être qu'il suffit tel.

[vincendie]

voilà, j'ai remplacé mon code par celui que vous m'avez donné mais ca ne fonctionne pas, les cellules fusionnent mais rien ne s'y indique..

[mercatog]

J'avais testé avec succès avant de te proposer la réponse.

[vincendie]

En effet ça fonctionne parfaitement!
Je n'appliquait pas le code au bon bouton
Mille merci pour votre aide, c'est exactement ce dont j'avais besoin