séparation colonne

Le
STEPH B
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Jean-Claude
Le #23040501
"STEPH B" 4d397cc4$0$7700$
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance




Bonjour,

pourquoi pas simplement par formule :
=INDIRECT(ADRESSE((COLONNE()-2)*20+LIGNE();1))
à recopier dans toutes les cellules de la plage B1:P20

jean-Claude
STEPH B
Le #23040571
et en vba ca donnerait quoi?


"Jean-Claude" 4d397ff8$0$5416$

"STEPH B" 4d397cc4$0$7700$
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance




Bonjour,

pourquoi pas simplement par formule :
=INDIRECT(ADRESSE((COLONNE()-2)*20+LIGNE();1))
à recopier dans toutes les cellules de la plage B1:P20

jean-Claude

STEPH B
Le #23040561
et je pense que le resultat ne serait pas escompté...
ca donnerai pas ce que je cherche a faire je crois.


"STEPH B" 4d3982bc$0$32433$
et en vba ca donnerait quoi?


"Jean-Claude" news: 4d397ff8$0$5416$

"STEPH B" 4d397cc4$0$7700$
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance




Bonjour,

pourquoi pas simplement par formule :
=INDIRECT(ADRESSE((COLONNE()-2)*20+LIGNE();1))
à recopier dans toutes les cellules de la plage B1:P20

jean-Claude





Jean-Claude
Le #23040641
"STEPH B" 4d39845d$0$7700$
et je pense que le resultat ne serait pas escompté...
ca donnerai pas ce que je cherche a faire je crois.




Vous croyez ?
Avec ce que vous avez indiqué il me semble que si, cf.
http://cjoint.com/?0bvoiScgxml
(exemple avec regroupement par 5 au lieu de 20).
A moins qu'il n'y ait une info supplémentaire ?
JC
Jacquouille
Le #23040631
Bonjour
dans le prolongement d'idée de Jean-Claude, je propose:
On laisse B1 à B20
En C1 -->²1 que l'on tire jusque C20
En D1 --> ´1 que l'on tire
Et ainsi de suite. Cela ne fait jamais que 4 formules à copier et à tirer
vers le bas
--
Jacquouille

" Le vin est au repas ce que le parfum est à la femme."

"STEPH B" discussion : 4d397cc4$0$7700$
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance



isabelle
Le #23040701
bonjour Steph,

Sub Macro1()
x = 3
For i = 1 To Range("B65536").End(xlUp).Row Step 20
Range("B" & i & ":B" & i + 19).Copy Cells(1, x)
x = x + 1
Next
Range("B21:B" & Range("B65536").End(xlUp).Row).ClearContents
End Sub

isabelle



Le 2011-01-21 07:31, STEPH B a écrit :
Bonjour
j'ai une colonne B dans une feuille nommée "Feuil4" qui contient de b1 à
b300 des chiffres

J'aimerais que une macro me sépare par serie de 20 nombres cette colonne
dans les colonnes qui suivent

ex en B j ai 68 nombres de b1 à b68
apres traitement cela donnerai
b1 à b20 20 nombres
c1 à c20 20 nombres
d1 à d20 20 nombres
e1 à e8 8 nombres

est ce possible ?
merci d'avance



isabelle
Le #23040691
oups il faut commencer la boucle à 21 au lieu de 1
isabelle

Le 2011-01-21 08:25, isabelle a écrit :
Sub Macro1()
x = 3
For i = 1 To Range("B65536").End(xlUp).Row Step 20
Range("B" & i & ":B" & i + 19).Copy Cells(1, x)
x = x + 1
Next
Range("B21:B" & Range("B65536").End(xlUp).Row).ClearContents
End Sub

isabelle
STEPH B
Le #23040771
merci beaucoup je retiens la solutions d isabelle

"isabelle" ihc1nv$18v$
oups il faut commencer la boucle à 21 au lieu de 1
isabelle

Le 2011-01-21 08:25, isabelle a écrit :
Sub Macro1()
x = 3
For i = 1 To Range("B65536").End(xlUp).Row Step 20
Range("B" & i & ":B" & i + 19).Copy Cells(1, x)
x = x + 1
Next
Range("B21:B" & Range("B65536").End(xlUp).Row).ClearContents
End Sub

isabelle
Publicité
Poster une réponse
Anonyme