Incrémenter valeurs dans macro excel (VBA) Fermé

Question

Bonjour à tous, 

Je suis un total newbie en VBA et je cherche de l'aide pour réaliser une manip simple:

j'ai un fichier pdf qui comporte 3 colonnes et en faisant un copier-coller dans excel, tout se retrouve sous une seul colonne:

pdf:
A1 B1 C1
A2 B2 C2...

Excel:
A1
B1 
C1
A2 
B2 
C2

Je voudrais donc remettre en forme cette feuille excel.
J'ai fais une macro:

Sub Macro4()
'
' Macro4 Macro
'

'
    Range("A2").Select
    Selection.Cut
    Range("B1").Select
    ActiveSheet.Paste
    Range("A3").Select
    Selection.Cut
    Range("C1").Select
    ActiveSheet.Paste
    Rows("2:3").Select
    Selection.Delete Shift:=xlUp
End Sub

Comment fait-on pour incrémenter les cellules à la fin de la macro ci-dessus ? (A2 devient A3, B1 devient B2... et que la macro s'arrête lorsqu'il n'y a plus de valeurs?

Merci pour votre aide !

Rege

Configuration: Windows XP / Firefox 8.0

eriiic · Accepted Answer

Bonjour,

Tu n'es pas obligé de faire une macro.

En supposant que tes données commencent en A1, en B1 tu mets :
=DECALER($A$1;(LIGNE()-1)*3+COLONNE()-2;)
tu recopies à droite sur 3 colonnes,
tu sélectionnes B1:D1 que tu recopies vers le bas.

eric

Regenium · Answer

Effectivement ça marche parfaitement !
Merci beaucoup 

Je ne connaissais pas cette fonction et après 30min... je viens de comprendre la logique derrière la formule.

Sinon par curiosité, comment  faire pour incrémenter une variable dans une macro?

Merci !

Rege

Incrémenter valeurs dans macro excel (VBA)

2 réponses

Discussions similaires