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???

Si tu donnais ton code on pourrait t'aider à le modifier.
 
@+

Salut Daywalker
 
Voici un exemple de code
 
Range("A1:A4" ).Select 'Sélectionner les cellues A1 à A4
    Selection.Copy 'Copier la sélection
    Range("B1" ).Select 'Sélectionner la cellule B1
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
        , Transpose:=True 'Collage spécial avec fonction transposé
    Range("A1" ).Select Sélectionner la cellule A1
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "40"
    Range("A1:A4" ).Select 'Sélectionner les cellules A1 à A4
    Selection.EntireColumn.Delete 'Supprimer la sélection (pour éviter le doublon
                                              colonne et ligne
 
@+
 
 

Re,
 
Range("D1" ).Select
    Selection.Clear
Pour effacer la dernière cellule.
Bon, c'est pas tip top comme code. A toi de le perfectionner, si tu veux mettre une boucle ou autre chose.

merci bcp!! ca va bcp m'aider!!!

Juste une question conne :
 
Pourquoi ne pas faire un copier / coller ( collage special ) avec transposé ?

Et si tu dois le faire 200 fois? Par exemple, ton tableau a toujours le même nombre de lignes mais tu dois régulièrement modifier les cellules. Bon courage! Tout dépend de l'utilisation qu'il veut faire de sa macro.

 
C'est pour ca que je demande ...