Fusion cellule identiques excel Résolu

Question

Bonjour, 

Je voudrais fusionner toutes les cellule ayant la même valeur sur une plage horizontal predefinie.
Par exemple (K32:BO32).
Je n'ai que très peu de notion en VB et j'ai écris le code suivant qui ne fonctionne pas, mais qui donne une idée sur le chemin que je veux prendre

Dim c As Integer

    For c = 200 To step - 1
        If Cells(c, 32) = ActiveCell.Offset(-1, 0) Then
         range("33" & c & ":33" & c - 1).Merge    
      End If                                                       
     Next c

end sub

Merci


Configuration: Mac OS X / Safari 533.21.1

ccm81 · Accepted Answer

bonjour,

une proposition

Sub fusion()
Dim co As Long
Dim nbco As Long
Dim plage As Range
Set plage = Selection
Application.DisplayAlerts = False
With plage
  nbco = .Columns.Count
  For co = nbco To 2 Step -1
    If .Cells(1, co) = .Cells(1, co - 1) Then
      Range(.Cells(1, co), .Cells(1, co - 1)).MergeCells = True
    End If
  Next co
End With
Application.DisplayAlerts = True
End Sub
bonne suite

tictac847 · Answer

Salut ccm81,

Merci pour ta réponse, j'ai copier ton code mais ça ne fonctionne pas.
Je l'ai copier en tant que tel.
Aurais je dut faire certaine modification comme definir ma plage au préalable.
Si c'est le cas dans quelle partie du code aurais je dut le faire  si par exemple
ma plage était ("K33:Z33")

Merci

ccm81 · Answer

re   
tu sélectionnes la plage à fusionner avant d'appliquer la macro
ou bien tu modifies le code
Set plage = Selectionà remplacer par    
Set plage = sheets"(NomDeTaFeuille").Range("K33:Z33")bonne journée

tictac847 · Answer

re 

Super ca marche,
Merci pour ton aide.

bonne journée.

Fusion cellule identiques excel

4 réponses

Votre réponse

Discussions similaires

Newsletters