Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Ligne automatique

Ligne automatique

12 réponses
Avatar
FA
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
Signaler un problème avec ce contenu

10 réponses

Supprimer
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
1 2
Avatar
garnote
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


Avatar
FA
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






Avatar
Philippe.R
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









Avatar
Al
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












Avatar
Philippe.R
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
















Avatar
Al
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



















Avatar
Philippe.R
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























Avatar
Al
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


























Avatar
Al
y a quelqu'un?


"Al" a écrit dans le message de news:

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






























Avatar
Philippe.R
Bonsoir,
Je ne comprends pas ce que tu attends ; en effet, sur action de ce code, les
cellules précédemment fusionnées restent fusionnées, seule une ligne est
insérée au dessus si la ligne de saisie est la ligne 20 ou au delà.
--
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:
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






























1 2