Je sèche sur un pb élémentaire :
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton
"Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je
ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et
après la chasse. -- Clémenceau***
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
michdenis
Bonjour Georges,
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'------------------------- Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows r.MergeCells = True Next Set MonTableau = Nothing End Sub '-------------------------
Salutations!
"Georges Schell" a écrit dans le message de news:BC5F8FB4.5104% Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
Bonjour Georges,
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'-------------------------
Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows
r.MergeCells = True
Next
Set MonTableau = Nothing
End Sub
'-------------------------
Salutations!
"Georges Schell" <gs@schell--audit.com> a écrit dans le message de news:BC5F8FB4.5104%gs@schell--audit.com...
Bonjour,
Je sèche sur un pb élémentaire :
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton
"Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je
ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et
après la chasse. -- Clémenceau***
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'------------------------- Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows r.MergeCells = True Next Set MonTableau = Nothing End Sub '-------------------------
Salutations!
"Georges Schell" a écrit dans le message de news:BC5F8FB4.5104% Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
Pascal Engelmajer
salut, en sélectionnant le tableau Sub fusionLignes() Dim sel As Range Dim ligne As Range Dim i As Integer Set sel = Selection For i = 1 To sel.Rows.Count sel.Rows(i).Merge Next i End Sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Georges Schell" a écrit dans le message de news: BC5F8FB4.5104%
Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
salut,
en sélectionnant le tableau
Sub fusionLignes()
Dim sel As Range
Dim ligne As Range
Dim i As Integer
Set sel = Selection
For i = 1 To sel.Rows.Count
sel.Rows(i).Merge
Next i
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Georges Schell" <gs@schell--audit.com> a écrit dans le message de news:
BC5F8FB4.5104%gs@schell--audit.com...
Bonjour,
Je sèche sur un pb élémentaire :
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton
"Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je
ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et
après la chasse. -- Clémenceau***
salut, en sélectionnant le tableau Sub fusionLignes() Dim sel As Range Dim ligne As Range Dim i As Integer Set sel = Selection For i = 1 To sel.Rows.Count sel.Rows(i).Merge Next i End Sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Georges Schell" a écrit dans le message de news: BC5F8FB4.5104%
Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
Georges Schell
Merci Pascal, tu es mon sauveur ! Bien amicalement,
Georges
Les pommes de terre cuites sont tellement plus faciles a digérer que les pommes en terre cuite ! (Alphonse Allais) [c'est beaucoup moins élevé comme pensée que Sénèque...]
dans l'article uxK7upg#, Pascal Engelmajer à a écrit le 23/02/04 13:41 :
salut, en sélectionnant le tableau Sub fusionLignes() Dim sel As Range Dim ligne As Range Dim i As Integer Set sel = Selection For i = 1 To sel.Rows.Count sel.Rows(i).Merge Next i End Sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Georges Schell" a écrit dans le message de news: BC5F8FB4.5104%
Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Merci Pascal, tu es mon sauveur !
Bien amicalement,
Georges
Les pommes de terre cuites sont tellement plus faciles a digérer que les
pommes en terre cuite ! (Alphonse Allais) [c'est beaucoup moins élevé comme
pensée que Sénèque...]
dans l'article uxK7upg#DHA.2168@TK2MSFTNGP12.phx.gbl, Pascal Engelmajer à
pascal.engelmajer@ilyapa_spam.net a écrit le 23/02/04 13:41 :
salut,
en sélectionnant le tableau
Sub fusionLignes()
Dim sel As Range
Dim ligne As Range
Dim i As Integer
Set sel = Selection
For i = 1 To sel.Rows.Count
sel.Rows(i).Merge
Next i
End Sub
--
Amicalement.
Pascal
"il n'y a pas de vent favorable pour celui qui ne sait pas ou il va."
Sénèque.
http://www.ilyapa.net/excel
"Georges Schell" <gs@schell--audit.com> a écrit dans le message de news:
BC5F8FB4.5104%gs@schell--audit.com...
Bonjour,
Je sèche sur un pb élémentaire :
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton
"Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je
ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et
après la chasse. -- Clémenceau***
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon
adresse !
Merci Pascal, tu es mon sauveur ! Bien amicalement,
Georges
Les pommes de terre cuites sont tellement plus faciles a digérer que les pommes en terre cuite ! (Alphonse Allais) [c'est beaucoup moins élevé comme pensée que Sénèque...]
dans l'article uxK7upg#, Pascal Engelmajer à a écrit le 23/02/04 13:41 :
salut, en sélectionnant le tableau Sub fusionLignes() Dim sel As Range Dim ligne As Range Dim i As Integer Set sel = Selection For i = 1 To sel.Rows.Count sel.Rows(i).Merge Next i End Sub -- Amicalement. Pascal "il n'y a pas de vent favorable pour celui qui ne sait pas ou il va." Sénèque. http://www.ilyapa.net/excel "Georges Schell" a écrit dans le message de news: BC5F8FB4.5104%
Bonjour,
Je sèche sur un pb élémentaire : Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci pour votre aide !
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
***On ne ment jamais autant qu'avant les élections, pendant la guerre et après la chasse. -- Clémenceau***
Georges
Note : Pour m¹écrire directement, supprimer un des deux tirets dans mon adresse !
Georges Schell
Merci Michdenis et désolé d'accuser réception aussi tard. Je n'obtiens pas le résultat attendu, mais j'ai réglé le pb avec le post de Pascal Engelmajer. Bien amicalement,
Georges
dans l'article #rDe4jg#, michdenis à a écrit le 23/02/04 13:31 :
Bonjour Georges,
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'------------------------- Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows r.MergeCells = True Next Set MonTableau = Nothing End Sub
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
Merci Michdenis et désolé d'accuser réception aussi tard.
Je n'obtiens pas le résultat attendu, mais j'ai réglé le pb avec le post de
Pascal Engelmajer.
Bien amicalement,
Georges
dans l'article #rDe4jg#DHA.2404@TK2MSFTNGP12.phx.gbl, michdenis à
michdenis@hotmail.com a écrit le 23/02/04 13:31 :
Bonjour Georges,
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'-------------------------
Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows
r.MergeCells = True
Next
Set MonTableau = Nothing
End Sub
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton
"Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je
ne sais pas l'écrire (snif !).
Merci Michdenis et désolé d'accuser réception aussi tard. Je n'obtiens pas le résultat attendu, mais j'ai réglé le pb avec le post de Pascal Engelmajer. Bien amicalement,
Georges
dans l'article #rDe4jg#, michdenis à a écrit le 23/02/04 13:31 :
Bonjour Georges,
Ça pourrait donner quelque chose dans le genre : à toi d'adapter...
'------------------------- Sub Fusionner()
Dim MonTableau As Range
Set MonTableau = Worksheets("Feuil1").Range("A1:G10")
For Each r In MonTableau.Rows r.MergeCells = True Next Set MonTableau = Nothing End Sub
Lorsque l'on sélectionne un tableau et que l'on appuie sur le bouton "Fusionner", tout le tableau est fusionné en une seule cellule.
J'ai besoin d'une macro qui fusionnerait le tableau ligne à ligne... Et je ne sais pas l'écrire (snif !).
