Discussion :

[amd64]

Bonjour à tous!

je m'explique:
1) j'ai une colonne avec une valeur numérique dans chaque cellule
2) je voudrais faire un programme qui écrirait la valeur de ces cellules mais en ligne : en gros transformer cette colonne en ligne
3) effacer la derniere valeur sur chaque ligne

J'ai essayé While...Wend mais ça tourne en boucle tout le temps et impossible d'ecrire une autre valeur dans les cases que la première.

Un petit coup de main les gars???

[ouskel'n'or]

Tu as ça dans Excel. Sélectionner les cellules -> Copier -> Sélection d'une cellule en dehors de la plage -> Collage spécial -> Transposé

Pour une macro faisant ça, tu enregistres en le faisant, après, on verra pour arranger ton code...

A+

[amd64]

voilà ce que ça me donne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Macro1()
'
' Macro1 Macro
' 
'
 
'
    Range("A1:A20").Select
    Selection.Copy
    Range("B1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub

Edit
Pour ton code, utilise les balises [Code] Sélection du code, un clic sur le bouton [code] et c'est fait. Et lis les règles du forum, c'est plein de bons conseils comme celui-ci.
Balises gentiment ajoutées par ouskel'n'or

[ouskel'n'or]

Tu as un problème avec le code ?

A+