Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Mickael francois
je veux bien en VB mais dans un module ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
je veux bien en VB mais dans un module ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Ellimac
Oui, oui. Et à déclencher via un bouton ou icône par exemple.
Camille
-----Message d'origine----- je veux bien en VB mais dans un module ?
"Ellimac" a écrit dans le
message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
.
Oui, oui. Et à déclencher via un bouton ou icône par
exemple.
Camille
-----Message d'origine-----
je veux bien en VB mais dans un module ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a
écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:=ActiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Oui, oui. Et à déclencher via un bouton ou icône par exemple.
Camille
-----Message d'origine----- je veux bien en VB mais dans un module ?
"Ellimac" a écrit dans le
message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
.
Mickael francois
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne :
Selection.Find(What:="Somme", After:¬tiveCell,
Pourquoi ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Philippe.R
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Bonsoir,
C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Mickael francois" <mic.fra@free.fr> a écrit dans le message de
news:uL9jF4OVDHA.2508@TK2MSFTNGP12.phx.gbl...
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne :
Selection.Find(What:="Somme", After:¬tiveCell,
Pourquoi ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Mickael francois
Bonjour,
Après de multiples essais et le remplacement de la ligne Range(Range("a8"), Range("a8").End(xlDown)).Select par : Range("A1:A1000").Select (pour chaque colonne de sous totaux) m'a permis d'insérer une ligne comme je voulais. C'est bien, mais comme je vais travailler toujours sur un nouveau fichier, je voudrais intégrer mes différentes macros directement dans Excel et pas dans le classeur. Comment faire ?
"Philippe.R" a écrit dans le message de news: #
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Bonjour,
Après de multiples essais et le remplacement de la ligne
Range(Range("a8"), Range("a8").End(xlDown)).Select
par :
Range("A1:A1000").Select (pour chaque colonne de sous totaux)
m'a permis d'insérer une ligne comme je voulais.
C'est bien, mais comme je vais travailler toujours sur un nouveau fichier,
je voudrais intégrer mes différentes macros directement dans Excel et pas
dans le classeur.
Comment faire ?
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#nUeTwUVDHA.2040@TK2MSFTNGP11.phx.gbl...
Bonsoir,
C'est un problème de retour à la ligne inopiné ; place ton curseur à la
fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Mickael francois" <mic.fra@free.fr> a écrit dans le message de
news:uL9jF4OVDHA.2508@TK2MSFTNGP12.phx.gbl...
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de
syntaxe
à la ligne :
Selection.Find(What:="Somme", After:¬tiveCell,
Pourquoi ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Après de multiples essais et le remplacement de la ligne Range(Range("a8"), Range("a8").End(xlDown)).Select par : Range("A1:A1000").Select (pour chaque colonne de sous totaux) m'a permis d'insérer une ligne comme je voulais. C'est bien, mais comme je vais travailler toujours sur un nouveau fichier, je voudrais intégrer mes différentes macros directement dans Excel et pas dans le classeur. Comment faire ?
"Philippe.R" a écrit dans le message de news: #
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Philippe.R
Bonsoir, Le plus simple est AMHA de copier les modules de code vers le fichier perso.xls ; si celui ci n'existe pas, il te suffit de lancer l'enregistrement d'une macro : Outils / Macros / Nouvelle macro / dans la fenêtre qui s'ouvre, choisir d'enregistrer dans "classeur de macros personnelles" au lieu de "Ce classeur". -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Après de multiples essais et le remplacement de la ligne Range(Range("a8"), Range("a8").End(xlDown)).Select par : Range("A1:A1000").Select (pour chaque colonne de sous totaux) m'a permis d'insérer une ligne comme je voulais. C'est bien, mais comme je vais travailler toujours sur un nouveau fichier, je voudrais intégrer mes différentes macros directement dans Excel et pas dans le classeur. Comment faire ?
"Philippe.R" a écrit dans le message de news: #
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
.
Bonsoir,
Le plus simple est AMHA de copier les modules de code vers le fichier perso.xls ; si celui ci n'existe
pas, il te suffit de lancer l'enregistrement d'une macro : Outils / Macros / Nouvelle macro / dans la
fenêtre qui s'ouvre, choisir d'enregistrer dans "classeur de macros personnelles" au lieu de "Ce
classeur".
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Mickael francois" <mic.fra@free.fr> a écrit dans le message de
news:eEUXPfbVDHA.2192@TK2MSFTNGP10.phx.gbl...
Bonjour,
Après de multiples essais et le remplacement de la ligne
Range(Range("a8"), Range("a8").End(xlDown)).Select
par :
Range("A1:A1000").Select (pour chaque colonne de sous totaux)
m'a permis d'insérer une ligne comme je voulais.
C'est bien, mais comme je vais travailler toujours sur un nouveau fichier,
je voudrais intégrer mes différentes macros directement dans Excel et pas
dans le classeur.
Comment faire ?
"Philippe.R" <A_S_rauphil@wanadoo.fr> a écrit dans le message de news:
#nUeTwUVDHA.2040@TK2MSFTNGP11.phx.gbl...
Bonsoir,
C'est un problème de retour à la ligne inopiné ; place ton curseur à la
fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
--
Amicales Salutations
A_S_rauphil@wanadoo.fr
Retirer A_S_ pour répondre.
XL97 / XL2002
"Mickael francois" <mic.fra@free.fr> a écrit dans le message de
news:uL9jF4OVDHA.2508@TK2MSFTNGP12.phx.gbl...
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de
syntaxe
à la ligne :
Selection.Find(What:="Somme", After:¬tiveCell,
Pourquoi ?
"Ellimac" <PAsDepubellimacNispam_cremelier@hotmail.com> a écrit dans le
message de news: 09ca01c352b1$0c1a8720$a401280a@phx.gbl...
Bonjour,
A la main ou par VB ? :)
Sub Toto()
Range(Range("a8"), Range("a8").End(xlDown)).Select
l = Selection.Cells.Count
n = Application.CountIf(Selection, "Somme*")
Selection.Resize(l + n, 1).Select
For cpt = 1 To n
Selection.Find(What:="Somme", After:¬tiveCell,
LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows,
SearchDirection:=xlNext, _
MatchCase:úlse).Activate
ActiveCell.Offset(1, 0).EntireRow.Insert
Next
End Sub
Camille
-----Message d'origine-----
Bonjour,
Comment insérer des lignes automatiquement à la fin de
chaque sous totaux ?
Bonsoir, Le plus simple est AMHA de copier les modules de code vers le fichier perso.xls ; si celui ci n'existe pas, il te suffit de lancer l'enregistrement d'une macro : Outils / Macros / Nouvelle macro / dans la fenêtre qui s'ouvre, choisir d'enregistrer dans "classeur de macros personnelles" au lieu de "Ce classeur". -- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Après de multiples essais et le remplacement de la ligne Range(Range("a8"), Range("a8").End(xlDown)).Select par : Range("A1:A1000").Select (pour chaque colonne de sous totaux) m'a permis d'insérer une ligne comme je voulais. C'est bien, mais comme je vais travailler toujours sur un nouveau fichier, je voudrais intégrer mes différentes macros directement dans Excel et pas dans le classeur. Comment faire ?
"Philippe.R" a écrit dans le message de news: #
Bonsoir, C'est un problème de retour à la ligne inopiné ; place ton curseur à la fin de cette ligne et presse la
touche "sup" et fais de même à la fin de celle ci :
LookAt:=xlPart, SearchOrder:=xlByRows,
-- Amicales Salutations
Retirer A_S_ pour répondre. XL97 / XL2002 "Mickael francois" a écrit dans le message de news:
Bonjour,
Quand j'execute ton code, il me met erreur de compilation, erreur de syntaxe
à la ligne : Selection.Find(What:="Somme", After:¬tiveCell, Pourquoi ?
"Ellimac" a écrit dans le message de news: 09ca01c352b1$0c1a8720$ Bonjour,
A la main ou par VB ? :)
Sub Toto() Range(Range("a8"), Range("a8").End(xlDown)).Select l = Selection.Cells.Count n = Application.CountIf(Selection, "Somme*") Selection.Resize(l + n, 1).Select For cpt = 1 To n Selection.Find(What:="Somme", After:¬tiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:úlse).Activate ActiveCell.Offset(1, 0).EntireRow.Insert Next End Sub
Camille
-----Message d'origine----- Bonjour,
Comment insérer des lignes automatiquement à la fin de chaque sous totaux ?
