Incrémenter valeurs dans macro excel (VBA)

Fermé
Regenium
Messages postés
84
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
13 décembre 2013
- 9 janv. 2012 à 17:46
Regenium
Messages postés
84
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
13 décembre 2013
- 10 janv. 2012 à 12:04
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

2 réponses

eriiic
Messages postés
24408
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
23 juin 2022
7 090
9 janv. 2012 à 19:31
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
2
Regenium
Messages postés
84
Date d'inscription
vendredi 12 octobre 2007
Statut
Membre
Dernière intervention
13 décembre 2013
1
10 janv. 2012 à 12:04
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
0