Fusion cellule identiques excel
Résolu
tictac847
-
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
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:
- Excel fusionner automatiquement cellules identiques
- Fusionner deux cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Liste déroulante excel - Guide
- Verrouiller cellules excel - Guide
- Word et excel gratuit - Guide
4 réponses
bonjour,
une proposition
bonne suite
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
re
tu sélectionnes la plage à fusionner avant d'appliquer la macro
ou bien tu modifies le code
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
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
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