Discussion :

[Pompaero]

Bonjour le Forum

Je me rapproche de vous pour de l'aide
Voilà pour l'exemple, sur une feuil j'ai un tableau de B2 à H10 que je rempli a l'aide d'un bouton qui écrit "bonjour" dans la ou les cellules sélectionnées.
Jusque là ça va.
Ce que je souhaite c'est quand je sélectionne 2 ou plus de cellules concécutif (ex: B2 à E2 ou D5 à G5 ect...) que celles-ci ce fusionnes.

J'ai trouvé un code mais ça bloque

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton1_Click() 'note "bonjour" dans cellule sélectionné
nomchant = CommandButton1.Caption 
 For Each i In Selection
   If i.Column > 2 And i.Row > 3 Then
     col = i.Column Mod 3
     i.Font.Name = "windgins"
     i.Value = nomchant
     i.Interior.ColorIndex = 4
     i.Borders(xlDiagonalUp).LineStyle = xlNone
     i.Range.MergeCells = True '(MON BLOQUAGE EST LA)
   End If
  Next i
End Sub

Merçi encore pour l'aide

ENSUITE il me faut l'info pour défusionner.

Cordialement a vous.

[gFZT82]

Bonjour,

Pourquoi pas simplement

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    With Selection
        If .Column >= 2 And .Row >= 2 Then
            .MergeCells = True
            .Font.Name = "windgins"
            .Value = CommandButton1.Caption
            .Interior.ColorIndex = 4
        End If
    End With
End Sub

Cordialement.

[Pompaero]

Bonsoir gFZT82

Merçi d'avoir répondu aussi rapidement

Ton code est plus simple et ça marche,

Maintenant
pour défusionner je fais comment ?

Merçi

Cordialement

[Pompaero]

Bonsoir

J'ai trouvé ma solution

Merçi à vous tous

Cordialement