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

2 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
Al
he bien, non justement, la cellule insérée n'est pas fusionnée justement,
c'est mon pb....

cç commence bien à la ligne 20 comme je le désirais mais je n'ai pas la
fusion des celules!!!

Merci


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

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

































Avatar
Mgr.Abile
Bonsoir mon fils,
Je suis depuis un moment déjà cet échange avec intérêt et ne puis que vous
suggérer, au point où il en est arrivé, de communiquer ici même un cahier
des charges précis, sur la base duquel l'un ou l'autre paroissien pourra
vous établir un devis, dont j'espère qu'il sera à votre convenance.
--
Allez en paix
T.Abile
"Al" a écrit dans le message de
news:%
he bien, non justement, la cellule insérée n'est pas fusionnée justement,
c'est mon pb....

cç commence bien à la ligne 20 comme je le désirais mais je n'ai pas la
fusion des celules!!!

Merci


"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

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