Transformer un tableau

V

Valérie

Guest

• 18 Avril 2003

• #2

BONJOUR Karibou, et le forum bien entendu,

Il te suffit de copier, puis demander un collage spécial et cocher la case transposé, et de passer un bon WE de paques.

@ très bientôt
Valérie

 

Vote positif 0 Vote négatif

G

Guigui

Guest

• 18 Avril 2003

• #3

Hello,

le collage special ne marche que si il n'y a qu'un seul enregistrement. Si il s'agit d'une liste, il faut faire une petite macro.

@+

 

Vote positif 0 Vote négatif

Z

Zon

Guest

• 18 Avril 2003

• #4

Bonjour à tous les trois et au forum,

Admettons que le 1er nom est en cellule A2 et on veut les copier en ligne à partir de B2, le code suivant


Sub essai2()
Dim i, j As Integer
j = 2
For i = 2 To Range("A65536").End(xlUp).Row Step 5
Range("A" & i, "A" & i + 4).Copy
Range("B" & j).PasteSpecial Transpose:=True
j = j + 1
Next i
End Sub

A+++

 

Vote positif 0 Vote négatif

K

Karibou

Guest

• 22 Avril 2003

• #5

Merci a tous

J'ai effectue le copier /coller avec la case transposé et cela a fonctionne

A+

 

Vote positif 0 Vote négatif