fusionner par macro sous conditions

Y

Yaloo

XLDnaute Barbatruc

• 18 Avril 2013

• #2

Re : fusionner par macro sous conditions

Bonsoir Pascal,

Avec cette macro :

VB:

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

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 19 Avril 2013

• #3

Re : fusionner par macro sous conditions

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

Code:

Application.DisplayAlerts = False

 

Dernière édition: 19 Avril 2013

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 19 Avril 2013

• #4

Re : fusionner par macro sous conditions

Bonjour Pascal, Yaloo, le forum,

Avec un seul Merge sur deux zones :

Code:

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+

 

Vote positif 0 Vote négatif

Y

Yaloo

XLDnaute Barbatruc

• 19 Avril 2013

• #5

Re : fusionner par macro sous conditions

Salut Job, Pascal,

En effet, c'est plus simple.

A+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 22 Avril 2013

• #6

Re : fusionner par macro sous conditions

job75 à dit:

Bonjour Pascal, Yaloo, le forum,

Avec un seul Merge sur deux zones :

Code:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 22 Avril 2013

• #7

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+

 

Vote positif 0 Vote négatif