Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" a écrit dans le message de news:Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de news:
9BC94AA2-E95D-4A80-AB97-87833365E0E7@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" a écrit dans le message de news:Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
Salut
Ben, le truc c'est que je l'ais fais en manuel, mais ça donne une macro
énorme (et elle n'est pas finie), mais si tu y tiens. Je voudrais quelque
chose de plus simple. est ce possible?
de plus, cette macro ne dois pas fonctionner.
Je voudrais savoir s'il existe en macro une formule pour insérer une ligne
(ou même 2 lignes), entre chaque ligne d'une sélection.
ça serait pus simple quand même.
YANN
--------
Sub insertion()
'
' Touche de raccourci du clavier: Ctrl+m
'
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B49").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15"
_
), Range( _
"B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36"
_
)).Select
Range("B94").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B95,B96,B97,B98,B99,B100,B101,B102,B103,B104,B105"
_
), Range( _
"B106,B107,B108,B109,B110,B111,B112,B113,B114,B115,B116,B117,B118,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B118").Activate
Selection.EntireRow.insert
Range( _
"B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48"
_
).Select
Range("B48").Activate
ActiveWindow.SmallScroll Down:B
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46"
_
), Range("B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B90").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B6"
_
), Range( _
"B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68"
_
)).Select
Range("B135").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38"
_
),
Range("B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B167").Activate
ActiveWindow.SmallScroll Down:9
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58"
_
), Range("B60,B62,B64,B66,B68")).Select
Range("B211").Activate
ActiveWindow.SmallScroll Down:!
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B213,B215,B217,B219,B221,B223,B225,B227,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42"
_
),
Range("B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B227").Activate
Selection.EntireRow.insert
ActiveWindow.SmallScroll Down:=-3
Range("D4").Select
Selection.Cut Destination:=Range("D5")
Range("E4").Select
Selection.Cut Destination:=Range("D6")
Range("D7").Select
Selection.Cut Destination:=Range("D8")
Range("E7").Select
Selection.Cut Destination:=Range("D9")
Range("D10").Select
Selection.Cut Destination:=Range("D11")
Range("E10").Select
Selection.Cut Destination:=Range("D12")
Range("D12").Select
End Sub
---------------ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" a écrit dans le message de
news:Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint
après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle
E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
Salut
Ben, le truc c'est que je l'ais fais en manuel, mais ça donne une macro
énorme (et elle n'est pas finie), mais si tu y tiens. Je voudrais quelque
chose de plus simple. est ce possible?
de plus, cette macro ne dois pas fonctionner.
Je voudrais savoir s'il existe en macro une formule pour insérer une ligne
(ou même 2 lignes), entre chaque ligne d'une sélection.
ça serait pus simple quand même.
YANN
--------
Sub insertion()
'
' Touche de raccourci du clavier: Ctrl+m
'
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B49").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15"
_
), Range( _
"B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36"
_
)).Select
Range("B94").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B95,B96,B97,B98,B99,B100,B101,B102,B103,B104,B105"
_
), Range( _
"B106,B107,B108,B109,B110,B111,B112,B113,B114,B115,B116,B117,B118,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B118").Activate
Selection.EntireRow.insert
Range( _
"B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48"
_
).Select
Range("B48").Activate
ActiveWindow.SmallScroll Down:B
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46"
_
), Range("B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B90").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B6"
_
), Range( _
"B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68"
_
)).Select
Range("B135").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38"
_
),
Range("B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B167").Activate
ActiveWindow.SmallScroll Down:9
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58"
_
), Range("B60,B62,B64,B66,B68")).Select
Range("B211").Activate
ActiveWindow.SmallScroll Down:!
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B213,B215,B217,B219,B221,B223,B225,B227,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42"
_
),
Range("B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B227").Activate
Selection.EntireRow.insert
ActiveWindow.SmallScroll Down:=-3
Range("D4").Select
Selection.Cut Destination:=Range("D5")
Range("E4").Select
Selection.Cut Destination:=Range("D6")
Range("D7").Select
Selection.Cut Destination:=Range("D8")
Range("E7").Select
Selection.Cut Destination:=Range("D9")
Range("D10").Select
Selection.Cut Destination:=Range("D11")
Range("E10").Select
Selection.Cut Destination:=Range("D12")
Range("D12").Select
End Sub
---------------
ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
sergiofranceENLEVER@wanadoo.fr
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" <YANN24@discussions.microsoft.com> a écrit dans le message de
news:
9BC94AA2-E95D-4A80-AB97-87833365E0E7@microsoft.com...
Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint
après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle
E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
Salut
Ben, le truc c'est que je l'ais fais en manuel, mais ça donne une macro
énorme (et elle n'est pas finie), mais si tu y tiens. Je voudrais quelque
chose de plus simple. est ce possible?
de plus, cette macro ne dois pas fonctionner.
Je voudrais savoir s'il existe en macro une formule pour insérer une ligne
(ou même 2 lignes), entre chaque ligne d'une sélection.
ça serait pus simple quand même.
YANN
--------
Sub insertion()
'
' Touche de raccourci du clavier: Ctrl+m
'
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B49").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15"
_
), Range( _
"B16,B17,B18,B19,B20,B21,B22,B23,B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36"
_
)).Select
Range("B94").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B37,B38,B39,B40,B41,B42,B43,B45,B44,B46,B47,B48,B49,B50,B51,B52,B53,B54,B55,B56,B57,B58,B59,B60,B66,B67,B68,B69,B70,B71,B72,B73"
_
), Range( _
"B75,B74,B76,B77,B78,B79,B80,B81,B82,B83,B84,B85,B86,B87,B88,B89,B90,B91,B92,B93,B94,B95,B96,B97,B98,B99,B100,B101,B102,B103,B104,B105"
_
), Range( _
"B106,B107,B108,B109,B110,B111,B112,B113,B114,B115,B116,B117,B118,B5,B6,B7,B8,B9,B10,B11,B12,B13,B14,B15,B16,B17,B18,B19,B20,B21,B22,B23"
_
),
Range("B24,B25,B26,B27,B28,B29,B30,B31,B32,B33,B34,B35,B36")).Select
Range("B118").Activate
Selection.EntireRow.insert
Range( _
"B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48"
_
).Select
Range("B48").Activate
ActiveWindow.SmallScroll Down:B
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46"
_
), Range("B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B90").Activate
ActiveWindow.SmallScroll Down:E
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B6"
_
), Range( _
"B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68"
_
)).Select
Range("B135").Activate
ActiveWindow.SmallScroll Down:6
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38"
_
),
Range("B40,B42,B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B167").Activate
ActiveWindow.SmallScroll Down:9
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42,B44,B46,B48,B50,B52,B54,B56,B58"
_
), Range("B60,B62,B64,B66,B68")).Select
Range("B211").Activate
ActiveWindow.SmallScroll Down:!
Union(Range( _
"B70,B72,B74,B76,B78,B80,B82,B84,B86,B88,B90,B92,B94,B96,B98,B100,B102,B104,B106,B108,B110,B112,B114,B116,B123,B125,B127,B129,B131,B133,B135,B137"
_
), Range( _
"B139,B141,B143,B145,B147,B149,B151,B153,B155,B157,B159,B161,B163,B165,B167,B169,B171,B173,B175,B177,B179,B181,B183,B185,B187,B189,B191,B193,B195,B197,B199,B201"
_
), Range( _
"B203,B205,B207,B209,B211,B213,B215,B217,B219,B221,B223,B225,B227,B6,B8,B10,B12,B14,B16,B18,B20,B22,B24,B26,B28,B30,B32,B34,B36,B38,B40,B42"
_
),
Range("B44,B46,B48,B50,B52,B54,B56,B58,B60,B62,B64,B66,B68")).Select
Range("B227").Activate
Selection.EntireRow.insert
ActiveWindow.SmallScroll Down:=-3
Range("D4").Select
Selection.Cut Destination:=Range("D5")
Range("E4").Select
Selection.Cut Destination:=Range("D6")
Range("D7").Select
Selection.Cut Destination:=Range("D8")
Range("E7").Select
Selection.Cut Destination:=Range("D9")
Range("D10").Select
Selection.Cut Destination:=Range("D11")
Range("E10").Select
Selection.Cut Destination:=Range("D12")
Range("D12").Select
End Sub
---------------ben commence à le faire et tu nous dis tes soucis!
NB - on ne déplace pas une cellule mais son contenu...(valeur?formule?)
--
Serge CENCI
MVP Microsoft WORKS
NB - adresse : enlever NOSPAM
"YANN24" a écrit dans le message de
news:Bonjour,
je voudrais savoir comment faire pour que dans mon tableau ci-joint
après
pour :
-insérer, après chaque ligne de mon tableau, 2 lignes
- puis déplacer la celulle D4 en E5 (nouvellement créée), et la celulle
E4
en E6 (nouvellement créée), puis la celulle D7 en E8, et E7 en E9, et
ainsi
de suite
- supprimer la colonne D
- insérer une colonne entre B et C
http://cjoint.com/?jqnZl8ZA4l
je vous remercie de votre aide.
YANN
