Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Copier les lignes sous-total dans un onglet

Copier les lignes sous-total dans un onglet

6 réponses
Avatar
GuyCarca
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy
Signaler un problème avec ce contenu

6 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
Avatar
Jacky
Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy




Avatar
GuyCarca
Bonsoir

Merci Jacky mais

j'ai une trentaine de lignes de sommes sous total
plus la somme par rubrique

Il faut surement que je descende la colonne A
et chaque fois que je trouve "Somme" je
copie la ligne.

Comment faire pour tester ce fameux Somme
quand j'ai "Somme 01/08/2006"
"Somme 02/08/2006"
et ainsi jusqu'au 31/08/2006
Faudrait-il scinder la cellule en 2
Somme en A(n) et date en B(n) ?

Un MID ?

Cordialement
Guy


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

Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy








Avatar
Jacky
Re...
Par exemple:
Avec la feuille source ="feuil1" et la feuille destination= "feuil2" et les
somme en colonne A
'---------
Sub jj()
derlS = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlS)
If Left(UCase(c), 5) = "SOMME" Then
Rows(c.Row).Copy
Sheets("Feuil2").Range("A" & derlD).PasteSpecial Paste:=xlPasteValues
derlD = derlD + 1
End If
Next
Application.CutCopyMode = False
End Sub
'------------
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%23rk%
Bonsoir

Merci Jacky mais

j'ai une trentaine de lignes de sommes sous total
plus la somme par rubrique

Il faut surement que je descende la colonne A
et chaque fois que je trouve "Somme" je
copie la ligne.

Comment faire pour tester ce fameux Somme
quand j'ai "Somme 01/08/2006"
"Somme 02/08/2006"
et ainsi jusqu'au 31/08/2006
Faudrait-il scinder la cellule en 2
Somme en A(n) et date en B(n) ?

Un MID ?

Cordialement
Guy


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

Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy












Avatar
Jacky
Oupssss.
A modifier:
derlD = Sheets("feuil2").Range("a65536").End(3).Row + 1

JJ

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

Re...
Par exemple:
Avec la feuille source ="feuil1" et la feuille destination= "feuil2" et
les
somme en colonne A
'---------
Sub jj()
derlS = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlS)
If Left(UCase(c), 5) = "SOMME" Then
Rows(c.Row).Copy
Sheets("Feuil2").Range("A" & derlD).PasteSpecial Paste:=xlPasteValues
derlD = derlD + 1
End If
Next
Application.CutCopyMode = False
End Sub
'------------
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%23rk%
Bonsoir

Merci Jacky mais

j'ai une trentaine de lignes de sommes sous total
plus la somme par rubrique

Il faut surement que je descende la colonne A
et chaque fois que je trouve "Somme" je
copie la ligne.

Comment faire pour tester ce fameux Somme
quand j'ai "Somme 01/08/2006"
"Somme 02/08/2006"
et ainsi jusqu'au 31/08/2006
Faudrait-il scinder la cellule en 2
Somme en A(n) et date en B(n) ?

Un MID ?

Cordialement
Guy


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

Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy

















Avatar
GuyCarca
Bonsoir

Un grand grand merci.
Je vais essayer ta solution.

J'en étais à chercher la fonction Split partout.

Cordialement
Guy


"Jacky" a écrit dans le message de news:
%
Oupssss.
A modifier:
derlD = Sheets("feuil2").Range("a65536").End(3).Row + 1

JJ

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

Re...
Par exemple:
Avec la feuille source ="feuil1" et la feuille destination= "feuil2" et
les
somme en colonne A
'---------
Sub jj()
derlS = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlS)
If Left(UCase(c), 5) = "SOMME" Then
Rows(c.Row).Copy
Sheets("Feuil2").Range("A" & derlD).PasteSpecial Paste:=xlPasteValues
derlD = derlD + 1
End If
Next
Application.CutCopyMode = False
End Sub
'------------
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%23rk%
Bonsoir

Merci Jacky mais

j'ai une trentaine de lignes de sommes sous total
plus la somme par rubrique

Il faut surement que je descende la colonne A
et chaque fois que je trouve "Somme" je
copie la ligne.

Comment faire pour tester ce fameux Somme
quand j'ai "Somme 01/08/2006"
"Somme 02/08/2006"
et ainsi jusqu'au 31/08/2006
Faudrait-il scinder la cellule en 2
Somme en A(n) et date en B(n) ?

Un MID ?

Cordialement
Guy


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

Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy





















Avatar
GuyCarca
Bonjour

Merci Jacky

Ta macro fonctionne très bien
et est en place.

Merci encore
Cordialement
Guy


"Jacky" a écrit dans le message de news:
%
Oupssss.
A modifier:
derlD = Sheets("feuil2").Range("a65536").End(3).Row + 1

JJ

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

Re...
Par exemple:
Avec la feuille source ="feuil1" et la feuille destination= "feuil2" et
les
somme en colonne A
'---------
Sub jj()
derlS = Sheets("feuil1").Range("a65536").End(3).Row
derlD = Sheets("feuil2").Range("a65536").End(3).Row
For Each c In Range("a1:a" & derlS)
If Left(UCase(c), 5) = "SOMME" Then
Rows(c.Row).Copy
Sheets("Feuil2").Range("A" & derlD).PasteSpecial Paste:=xlPasteValues
derlD = derlD + 1
End If
Next
Application.CutCopyMode = False
End Sub
'------------
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%23rk%
Bonsoir

Merci Jacky mais

j'ai une trentaine de lignes de sommes sous total
plus la somme par rubrique

Il faut surement que je descende la colonne A
et chaque fois que je trouve "Somme" je
copie la ligne.

Comment faire pour tester ce fameux Somme
quand j'ai "Somme 01/08/2006"
"Somme 02/08/2006"
et ainsi jusqu'au 31/08/2006
Faudrait-il scinder la cellule en 2
Somme en A(n) et date en B(n) ?

Un MID ?

Cordialement
Guy


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

Bonsoir,

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.
Par exemple la ligne 4 copier vers la feuille 2 ligne 2

'------------------------
'-----ton code
'-----
Rows("4:4").Copy
Sheets("Feuil2").[a2].PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
'----
'--suite du code
'------------------

--
Salutations
JJ

"GuyCarca" a écrit dans le message de news:
%
Bonjour

Dans une feuille j'ai fait des sous totaux,
Donc j'ai des lignes :
Somme 01/08/2006 ect,..
Somme de BNP

J'aurais besoin de copier toutes les lignes
qui contiennent "Somme" dans un autre onglet
sans les formules de calculs

J'ai bien une astuce pour copier toutes les cellules avec
un formule mais pas les lignes entières.

Si quelqu'un à une idée, elle m'arrangerait bien.

D'avance Merci
Cordialement
Guy