réarranger les cellules

[kamilouch]

Bonjour, voila ce que je voudrais faire, je vais essayer d'être clair:

Je veux créer une nouvelle colonne à partir d'une autre.
La 1ère ligne de cette nouvelle colonne doit avoir comme contenu celui de la 10ème ligne de la colonne de référence.
La 2ème ligne de la nouvelle colonne doit avoir comme contenu celui de la 20ème ligne de la colonne de référence.
...

Comment faire?
une macro est elle indispensable?

 

[MichelXld]

bonjour

places cette formule dans la cellue B1 pour recuperer la 10 eme ligne dans la colonne A

=DECALER($A$1;LIGNE()*10-1;0)

et ensuite tu étires la formule vers le bas pour obtenir la 20eme , 30eme ...etc ...


bonne journée
MichelXld

 

[kamilouch]

merci je vais essayer...

 

[andré]

Salut,

C'est faisable par formule :

Supposons tes données en colonne A à partir de A1, et tes formules en colonne B à partir de B1.

En B1 tu places la formule : =INDIRECT('A'&LIGNE()*10)
que tu peux copier vers le bas.

Si tu commences sur une autre ligne que la 1, il faut adapter la partie LIGNE()*10 de sorte qu'elle renvoit le bon numéro de ligne.

Ândré.

 

[andré]

Salut MichelXLD,

Je ne t'avais pas vu !
Pas de problème, deux solutions pour le même prix (lol).

Ândré.

 

[kamilouch]

super ça marche merci beaucoup!

 

[Caponord38]

Bonjour,
et tu peux essayer ca mais c'est une Macro.
Elle fonctionne

Sub Macro1()
Dim NbLignes, ligne As Integer
Dim Tableau()

Range('A1').Select
Selection.CurrentRegion.Select
NbLignes = Selection.Rows.Count
If NbLignes / 10 > Int(NbLignes / 10) Then
NbLignes = Int(NbLignes / 10)
End If
ReDim Tableau(NbLignes)
ligne = 1
For I = 1 To NbLignes
Tableau(I) = Range('A' & (I * 10))
Next I
For J = 1 To NbLignes
Range('B' & J).Value = Tableau(J)
Next J
End Sub
A+