Sur une colonne j'ai des groupes de cellules de textes les uns en
dessous des autres. Ces groupes sont s=E9par=E9s par une ligne blanche.
La premi=E8re cellule est toujours en gras, c'est le titre. J'aimerai
fusionner les cellules en dessous du tritre, et r=E9p=E9ter l'op=E9ration
jusqu'en bas de la colonne.
J'ai bidouill=E9 un code du style :
Sub fusion()
For each c
If activecell.font.bold=3Dtrue then activecell.offset (1,0).select
Selection.End(xlDown).Select
Selection.Merge
Next
End sub
Dois-je pr=E9ciser que =E7a ne fonctionne pas vraiment ?
Toutes les infos sont les bienvenues !
Merci par avance pour votre aide pr=E9cieuse.=20
A+
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
Elliac
Bonjour Sébastien,
En partant de la 1ère cellule en gras : Sub Toto() While ActiveCell <> "" Range(ActiveCell, ActiveCell.Offset(1)).Merge Range(ActiveCell, ActiveCell.Offset(1)).VerticalAlignment = xlCenter ActiveCell.Offset(1).Select Wend End Sub
Camille
"Sébastien" wrote:
Salut à tous,
Sur une colonne j'ai des groupes de cellules de textes les uns en dessous des autres. Ces groupes sont séparés par une ligne blanche. La première cellule est toujours en gras, c'est le titre. J'aimerai fusionner les cellules en dessous du tritre, et répéter l'opération jusqu'en bas de la colonne. J'ai bidouillé un code du style : Sub fusion()
For each c If activecell.font.bold=true then activecell.offset (1,0).select Selection.End(xlDown).Select Selection.Merge Next
End sub
Dois-je préciser que ça ne fonctionne pas vraiment ? Toutes les infos sont les bienvenues ! Merci par avance pour votre aide précieuse. A+
Bonjour Sébastien,
En partant de la 1ère cellule en gras :
Sub Toto()
While ActiveCell <> ""
Range(ActiveCell, ActiveCell.Offset(1)).Merge
Range(ActiveCell, ActiveCell.Offset(1)).VerticalAlignment = xlCenter
ActiveCell.Offset(1).Select
Wend
End Sub
Camille
"Sébastien" wrote:
Salut à tous,
Sur une colonne j'ai des groupes de cellules de textes les uns en
dessous des autres. Ces groupes sont séparés par une ligne blanche.
La première cellule est toujours en gras, c'est le titre. J'aimerai
fusionner les cellules en dessous du tritre, et répéter l'opération
jusqu'en bas de la colonne.
J'ai bidouillé un code du style :
Sub fusion()
For each c
If activecell.font.bold=true then activecell.offset (1,0).select
Selection.End(xlDown).Select
Selection.Merge
Next
End sub
Dois-je préciser que ça ne fonctionne pas vraiment ?
Toutes les infos sont les bienvenues !
Merci par avance pour votre aide précieuse.
A+
En partant de la 1ère cellule en gras : Sub Toto() While ActiveCell <> "" Range(ActiveCell, ActiveCell.Offset(1)).Merge Range(ActiveCell, ActiveCell.Offset(1)).VerticalAlignment = xlCenter ActiveCell.Offset(1).Select Wend End Sub
Camille
"Sébastien" wrote:
Salut à tous,
Sur une colonne j'ai des groupes de cellules de textes les uns en dessous des autres. Ces groupes sont séparés par une ligne blanche. La première cellule est toujours en gras, c'est le titre. J'aimerai fusionner les cellules en dessous du tritre, et répéter l'opération jusqu'en bas de la colonne. J'ai bidouillé un code du style : Sub fusion()
For each c If activecell.font.bold=true then activecell.offset (1,0).select Selection.End(xlDown).Select Selection.Merge Next
End sub
Dois-je préciser que ça ne fonctionne pas vraiment ? Toutes les infos sont les bienvenues ! Merci par avance pour votre aide précieuse. A+
