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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
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 wrote:
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
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 <DE...@discussions.microsoft.com> wrote:
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.
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 wrote:
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
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
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.
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
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 wrote:
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
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 <DE...@discussions.microsoft.com> wrote:
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.
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 wrote:
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
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
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.
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
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
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 wrote:
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 -
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
On 10 août, 14:36, DENIS <DE...@discussions.microsoft.com> wrote:
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 <DE...@discussions.microsoft.com> wrote:
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 -
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 wrote:
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 -