fusionner par macro sous conditions

[pascal21]

bonsoir
je cherche le code que me permettrait de fusionner deux cellules par macro
je vous donne un exemple
sur le classeur final la colonne C sera aussi celle qui contient les dates pour les autres colonnes j'ai simplifié pour l'exemple mais le principe restera le m^me
merci de votre aide

 

[Yaloo]

Re : fusionner par macro sous conditions

Bonsoir Pascal,

Avec cette macro :

Sub Fusion()
Dim c As Range, Plage As Range
Set Plage = Range("C1:C" & Cells(Rows.Count, 3).End(xlUp).Row)
For Each c In Plage
  If c = c(2, 1) Then c.Range("A1:A2").Offset(, 2).Merge: c.Range("A1:A2").Offset(, 3).Merge
Next
End Sub

A te relire

Martial

 

[pascal21]

Re : fusionner par macro sous conditions

bonjour et merci ça fonctionne parfaitement
j'ai juste rajouté en début de code

Application.DisplayAlerts = False

 

[job75]

Re : fusionner par macro sous conditions

Bonjour Pascal, Yaloo, le forum,

Avec un seul Merge sur deux zones :

Sub Fusion()
Dim c As Range
Application.DisplayAlerts = False
For Each c In Range("C1", Cells(Rows.Count, 3).End(xlUp))
  If c = c(2, 1) Then c.Range("C1:C2,D1:D2").Merge
Next
End Sub

A+

 

[Yaloo]

Re : fusionner par macro sous conditions

Salut Job, Pascal,

En effet, c'est plus simple.

A+

 

[pascal21]

Re : fusionner par macro sous conditions

Bonjour Pascal, Yaloo, le forum,

Avec un seul Merge sur deux zones :

Sub Fusion()
Dim c As Range
Application.DisplayAlerts = False
For Each c In Range("C1", Cells(Rows.Count, 3).End(xlUp))
  If c = c(2, 1) Then c.Range("C1:C2,D1:D2").Merge
Next
End Sub

A+

bonsoir
merci Job
plus simple mais je comprends moins son fonctionnement que la version de Yaloo

 

[job75]

Re : fusionner par macro sous conditions

Bonjour Pascal, Yaloo,

En écrivant c.Range("C1:C2,D1: D2")

la plage est constituée de 2 zones c.Range("C1:C2") et c.Range("D1: D2") comme avec une sélection multiple.

Par ailleurs la numérotation des lignes et colonnes commence en c qui définit donc la 1ère colonne "A".

A+