Fusion cellule identiques excel

Résolu/Fermé

tictac847 - 9 oct. 2011 à 15:24
tictac847 - 10 oct. 2011 à 11:31

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

A voir également:

4 réponses

Réponse 1 / 4

ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 2 404
9 oct. 2011 à 18:16

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

Discussions similaires

remplacer une cellule vide par une autre cell

Formule excel "commence par"

Fonction SI sur excel incluant du texte

EXCEL - "Compter avec une condition"

Excel effacer contenu cellule

Supprimer lettres, ne conserver que chiffres

Discussions similaires

Newsletters