bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en dessous
merci
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en dessous
merci
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes de
désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes de
désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes de
désignation il en créé automatiquement à l'identique en dessous
merci
excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
%Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL, NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les lignes
de désignation il en créé automatiquement à l'identique en dessous
merci
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:e5YFfzdDIHA.5976@TK2MSFTNGP02.phx.gbl...
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
OM7h7LjDIHA.3884@TK2MSFTNGP05.phx.gbl...
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:e5YFfzdDIHA.5976@TK2MSFTNGP02.phx.gbl...
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:%239L2skyDIHA.3600@TK2MSFTNGP06.phx.gbl...
merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: OM7h7LjDIHA.3884@TK2MSFTNGP05.phx.gbl...
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:e5YFfzdDIHA.5976@TK2MSFTNGP02.phx.gbl...
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela fontionne
seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uIXHT70DIHA.4360@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:%239L2skyDIHA.3600@TK2MSFTNGP06.phx.gbl...
merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: OM7h7LjDIHA.3884@TK2MSFTNGP05.phx.gbl...
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:e5YFfzdDIHA.5976@TK2MSFTNGP02.phx.gbl...
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:
uIXHT70DIHA.4360@TK2MSFTNGP06.phx.gbl...
Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:%239L2skyDIHA.3600@TK2MSFTNGP06.phx.gbl...
merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: OM7h7LjDIHA.3884@TK2MSFTNGP05.phx.gbl...
Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" <mon.email03@caramail.com> a écrit dans le message de
news:e5YFfzdDIHA.5976@TK2MSFTNGP02.phx.gbl...
bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %2364ZUBbDIHA.5160@TK2MSFTNGP05.phx.gbl...
Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" <FA@free.fr> a écrit dans le message de
news:7B26B99E-99D7-4200-894E-762047AE346F@microsoft.com...
excuse moi mais je mets ça où ?
merci
"garnote" <garnote3@ENLEVER.videotron.ca> a écrit dans le message de
news:ufGIXVBDIHA.4584@TK2MSFTNGP03.phx.gbl...
Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" <FA@free.fr> a écrit dans le message de news:
12B8EE52-EC00-4A5B-99CF-FD4DD4465D9D@microsoft.com...
bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci
Génial ça marche encore un petit soucis le code rajoute bien une ligne
mais il ne fusionne pas les cellules qui son précédemment fusionnées
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:Bonsoir,
Avec cette version
Private Sub Worksheet_Change(ByVal Target As Range)
'MPFE le 15/10/2007
if target.row < 20 then exit sub
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:%merci ça marche mais est il possible de faire en sorte que cela
fontionne seulement au bout de tant de ligne rempli
en effet dans ma facture il y à un peu pres 20 lignes de prête et je
voudrais qu'a la vingtieme ligne le code se mette en route, est ce
possible
merci
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:Bonjour,
Chez moi, ça insère un nouveau bloc de cellules fusionnées identique à
celui dans lequel une saisie viens de se faire.
Peut être n'était-ce pas l'effet attendu ?
Pour insérer une ligne juste au dessus du bloc fusionné :
Private Sub Worksheet_Change(ByVal Target As Range)
Target.Offset(1, 0).Select
If Selection.MergeCells = True Then ActiveCell.EntireRow.Insert
Target.Select
End Sub
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"Al" a écrit dans le message de
news:bonsoir,
j'ai eesayé car ça m'interresse aussi mais ça n'insert pas de ligne ça
descend tout seul d'une cellule!!!!
"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news: %Bonjour,
Cette procédure se colle dans le module de la feuille concernée (clic
droit sur l'onglet, "visualiser le code")
--
http://www.excelabo.net/mpfe/connexion.php
http://dj.joss.free.fr/trombine.htm
Avec plaisir
Philippe.R
"FA" a écrit dans le message de
news:excuse moi mais je mets ça où ?
merci
"garnote" a écrit dans le message de
news:Bonjour,
Essaie ceci :
Private Sub Worksheet_Change(ByVal Target As Range)
NL = Target.MergeArea.Rows.Count
NC = Target.MergeArea.Columns.Count
Target.Offset(1, 0).Select
If Selection.MergeCells = False Then ActiveCell.Resize(NL,
NC).Merge
End Sub
Serge
"FA" a écrit dans le message de news:bonjour,
j'ai une facture sur une page avec des lignes fusionnées sous la
désignation et je voudrais que lorsque j'ai consommé toutes les
lignes de désignation il en créé automatiquement à l'identique en
dessous
merci