fusionner des cellules

Le
DENIS
Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :
http://cjoint.com/?ikmwoq7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fusionnent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ensuite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité beaucoup plus de
données.

Merci à tous.
Denis
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4808471
Bonjour,

Sub merge()
Application.DisplayAlerts = False
i = 5
Do While Cells(i, 3) <> ""
m = i
Do While Cells(i, 3) = Cells(m, 3)
i = i + 1
Loop
Cells(m, 3).Resize(i - m).VerticalAlignment = xlTop
Cells(m, 3).Resize(i - m).MergeCells = True
Loop
End Sub

JB


On 10 août, 12:30, DENIS
Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :http://cjoint.com/?ikmwo q7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fusionn ent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ens uite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité beaucou p plus de
données.

Merci à tous.
Denis


FFO
Le #4808451
Salut Denis

Prenant l'Onglet Feuil1' les cellules à traiter colonne C à partir de C5

Je te propose ce code :

Application.DisplayAlerts = False
Début = Range("C5").Address
For Each c In Worksheets("Feuil1").Range("C5", [C65535].End(xlUp))
If c <> c.Offset(1, 0) Then
Range(Début, c).Merge
With Range(Début, c)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Début = c.Offset(1, 0).Address
End If
Next

Epérant qu'il réponde à ton besoin

Dis moi !!!


Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :
http://cjoint.com/?ikmwoq7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fusionnent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ensuite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité beaucoup plus de
données.

Merci à tous.
Denis




DENIS
Le #4808291
Bonjour,

Excellent, ca fonctionne super bien.

Merci encore
Denis


Bonjour,

Sub merge()
Application.DisplayAlerts = False
i = 5
Do While Cells(i, 3) <> ""
m = i
Do While Cells(i, 3) = Cells(m, 3)
i = i + 1
Loop
Cells(m, 3).Resize(i - m).VerticalAlignment = xlTop
Cells(m, 3).Resize(i - m).MergeCells = True
Loop
End Sub

JB


On 10 août, 12:30, DENIS
Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :http://cjoint.com/?ikmwoq7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fusionnent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ensuite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité beaucoup plus de
données.

Merci à tous.
Denis







DENIS
Le #4808281
Bonjour,

Excellent, ca fonctionne super bien.

Merci encore
Denis


Salut Denis

Prenant l'Onglet Feuil1' les cellules à traiter colonne C à partir de C5

Je te propose ce code :

Application.DisplayAlerts = False
Début = Range("C5").Address
For Each c In Worksheets("Feuil1").Range("C5", [C65535].End(xlUp))
If c <> c.Offset(1, 0) Then
Range(Début, c).Merge
With Range(Début, c)
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
Début = c.Offset(1, 0).Address
End If
Next

Epérant qu'il réponde à ton besoin

Dis moi !!!


Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :
http://cjoint.com/?ikmwoq7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fusionnent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ensuite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité beaucoup plus de
données.

Merci à tous.
Denis






JB
Le #4808121
Pour supprimer la fusion:

Sub Unmerge()
Range([C5], [C65000].End(xlUp)).Unmerge
Range([B5], [B65000].End(xlUp)).Offset(0,
1).SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
Range([C5], [C65000].End(xlUp)).Value = Range([C5],
[C65000].End(xlUp)).Value
End Sub


http://boisgontierjacques.free.fr/fichiers/Cellules/MergeUnMerge.xls

JB

On 10 août, 14:36, DENIS
Bonjour,

Excellent, ca fonctionne super bien.

Merci encore
Denis




Bonjour,

Sub merge()
Application.DisplayAlerts = False
i = 5
Do While Cells(i, 3) <> ""
m = i
Do While Cells(i, 3) = Cells(m, 3)
i = i + 1
Loop
Cells(m, 3).Resize(i - m).VerticalAlignment = xlTop
Cells(m, 3).Resize(i - m).MergeCells = True
Loop
End Sub

JB

On 10 août, 12:30, DENIS
Bonjour à tous,

Je reviens avec mon petit problème de fusion automatique de cellule.
Cette fois, voici un extrait du fichier en lien :http://cjoint.com/?i kmwoq7rF0

La colonne C a été filtrée par n° d'article.
Maintenant, comment faire pour que les n° d'articles identiques fus ionnent ?
Dans le cas présent, il faudrait que les cellules C5:C9 fusionnent, ensuite
C11:C12.
Etant donné que C10 est unique, pas de fusion.

Il s'agit là d'un extrait et le tableau comporte en réalité bea ucoup plus de
données.

Merci à tous.
Denis- Masquer le texte des messages précédents -



- Afficher le texte des messages précédents -




Publicité
Poster une réponse
Anonyme