et je pense que le resultat ne serait pas escompté... ca donnerai pas ce que je cherche a faire je crois.
"STEPH B" a écrit dans le message de news: 4d3982bc$0$32433$
et en vba ca donnerait quoi?
"Jean-Claude" a écrit dans le message de news: 4d397ff8$0$5416$
"STEPH B" a écrit dans le message de news: 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
"STEPH B" a écrit dans le message de news: 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
"STEPH B" <stephol@prodiag.fr> a écrit dans le message de news:
4d39845d$0$7700$ba4acef3@reader.news.orange.fr...
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
"STEPH B" a écrit dans le message de news: 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
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" a écrit dans le message de groupe de 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
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" <stephol@prodiag.fr> a écrit dans le message de groupe de
discussion : 4d397cc4$0$7700$ba4acef3@reader.news.orange.fr...
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
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" a écrit dans le message de groupe de 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
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
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
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
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
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
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
merci beaucoup je retiens la solutions d isabelle
"isabelle" a écrit dans le message de news: 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
merci beaucoup je retiens la solutions d isabelle
"isabelle" <i@v.org> a écrit dans le message de news:
ihc1nv$18v$2@speranza.aioe.org...
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" a écrit dans le message de news: 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