copier plage 1 cellule sur 5

[titin]

Bonjour à tous

Suite au problème de copie de cellule simple vers cellules fusionnées, je cherche comment renvoyer les valeurs d'une plage (A1:A30) dans une cellule décalée toute les 5 cellules.
il faut que la valeur A1 vienne en C1
la valeur A2 vienne en C6
A3 --> C11 etc.....


Merci pour votre aide

 

[PascalXLD]

Bonjour

For x = 1 to 30
range('c' & x*5-4)=range('A' & x)
next

Bon courage

 

[Monique]

Bonjour,

Par formule
En C1 :
=DECALER(A$1;(LIGNE()-1)/5
puis copier coller sur C6, C11, etc

Edit
Sans smiley :
=DECALER(A$1;(LIGNE()-1)/5;0)
et tu peux enlever le 0

Message édité par: monique, à: 29/11/2005 15:28

Message édité par: monique, à: 29/11/2005 15:28

 

[titin]

bonjour Pascal76 et Monique

comment intégréer le code de Pascal76
pour obtenir le résultat voulue dans ce morceau de code ci dessous

Sheets('Données').Range('aa1:aa31').Select
Selection.Copy
Sheets('roulement').Select
Range('A1').Select
ActiveSheet.Paste


MERCi

 

[titin]

re bonsoir

j'ai réusi à faire marché le bout de code de Pascal76.
Mais pourquoi si je change la destination du coller de la colonne A en B cela ne marche pas??
comment démarrer le coller en A ouB 4éme ligne??
Peut on incrémenter les une après les autres,à la suite d'autres plages de cellules avec le même décalage.

MERCI

 

[PascalXLD]

Re

Disons que perso j'ai répondu à ta question

je cherche comment renvoyer
les valeurs d'une plage (A1:A30) dans une cellule décalée toute les 5 cellules.
il faut que la valeur A1 vienne en C1
la valeur A2 vienne en C6
A3 --> C11 etc.....

Je n'avais pa sprévu le code modulable

Alors maintenant si ta demande est différente il faut que tu l'expliques plus clairement pour savoir exactement ce que tu veux faire sinon on risque de tourner longtemps en rond

 

[titin]

re bonsoir

oui en effet je vais essayé d'être plus clair.

J'ai 12 plages de cellule correspondant à 12 mois (31 Cells, 29 ou 28, 31, 30 ext..)a1:A1 ; B1:B28 (ouB29) ; C1:C31 ext..
je cherche à incrémenter ces 12 plages les une après les autres dans une colonne sur une autre feuille (travail!)
le démarrage doit se faire 'travail!A4' et s'incrémenter toutes les 5 cellules.(tout cela pour eviter la copie dans des cellules fusionnées)

MERCI

 

[PascalXLD]

Re

Bon si j'ai bien compris cette fois

Tous les chiffres des mois dans une même colonne A dans la feuille travail mais toutes les 5 lignes

Sub toto()

Dim x As Byte
Dim Ligne As Integer, y As Integer
Ligne = 4
For x = 1 To 12
    For y = 1 To Cells(65536, x).End(xlUp).Row
        Sheets('Travail').Range('A' & Ligne) = Cells(y, x)
        Ligne = Ligne + 5
    Next
Next

End Sub

Bon courage

 

[titin]

Merci Pascal76

Avec ton aide je suis parvenu au résultat voulu.

c'est super