Fusion cellule identiques excel

Résolu
tictac847 -  
 tictac847 -
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

4 réponses

  1.
    ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    2
  2. ccm81 Messages postés 11033 Statut Membre 2 434
     
    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
    1
  3. tictac847
     
    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
    0
  4. tictac847
     
    re

    Super ca marche,
    Merci pour ton aide.

    bonne journée.
    0